学步园

    在VB中，如何让背景图片铺满整个Form是一件不难的事，网上也很许多现成的代码，在回答一个csdn网友的问题时，我就写了一段这样的代码：

 Private Sub Form_Paint()<br /> Dim i As Long, j As Long, w As Long, h As Long </p> <p> Me.ScaleMode = vbPixels<br /> Me.Image1.Visible = False<br /> w = ScaleX(Me.Image1.Picture.Width, vbHimetric, vbPixels)<br /> h = ScaleY(Me.Image1.Picture.Height, vbHimetric, vbPixels)<br /> For i = 0 To Me.ScaleWidth / w + 1<br /> For j = 0 To Me.ScaleHeight / h + 1<br /> Me.PaintPicture Me.Image1.Picture, i * w, j * h<br /> Next<br /> Next<br /> End Sub<br />

    由于没有看清楚问题，后来才知道这个朋友是想让背景图片铺满整个MDIForm窗口，而MDIForm与Form有一些区别，上述代码根本实现不了，于是便重新写了以下代码：

'* ************************************************************** *<br /> '* 程序名称：MDIForm1.frm<br /> '* 程序功能：让背景图片铺满整个MDIForm窗口<br /> '* 作者：lyserver<br /> '* 联系方式：http://blog.csdn.net/lyserver<br /> '* ************************************************************** *<br /> Dim WithEvents picBackground As PictureBox</p> <p>Private Sub MDIForm_Load()<br /> Set picBackground = Me.Controls.Add("VB.PictureBox", "picBackground")<br /> picBackground.Appearance = 0<br /> picBackground.BorderStyle = 0<br /> picBackground.Align = 0<br /> picBackground.ScaleMode = vbPixels<br /> picBackground.AutoRedraw = False<br /> Set picBackground.Picture = LoadPicture("g:/me.jpg")<br /> picBackground.Visible = True<br /> End Sub</p> <p>Private Sub MDIForm_Resize()<br /> picBackground.Move 0, 0, Me.Width, Me.Height<br /> End Sub</p> <p>Private Sub MDIForm_Unload(Cancel As Integer)<br /> Me.Controls.Remove "picBackground"<br /> End Sub</p> <p>Private Sub picBackground_Paint()<br /> Dim i As Long, j As Long, w As Long, h As Long</p> <p> w = picBackground.ScaleX(picBackground.Picture.Width, vbHimetric, vbPixels)<br /> h = picBackground.ScaleY(picBackground.Picture.Height, vbHimetric, vbPixels)<br /> For i = 0 To Me.Width / 15 / w + 1<br /> For j = 0 To Me.Width / 15 / h + 1<br /> picBackground.PaintPicture picBackground.Picture, i * w, j * h<br /> Next<br /> Next<br /> End Sub<br />

    这个代码基本上满足了设计要求，由于是为了清楚的表达思路，所以使用了一个动态图片框，在实际使用时，如果MDIForm窗体上还有一些设计时的子控件，比如有工具栏，则不使用动态图片框，而是在设计时直接放置一个PictureBox控件，然后工具栏放置到这个PictureBox控件里，再按代码中PictureBox的属性进行逐一设置，这样就可以既让背景图片铺满窗口，又可以显示工具栏，否则，动态加载的图片框会遮隐住工具栏，造成了顾此失彼。