在VB中，如何讓背景圖片鋪滿整個Form是一件不難的事，網上也很許多現成的程式碼，在回答一個csdn網友的問題時，我就寫了一段這樣的程式碼：

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

    由於沒有看清楚問題，後來才知道這個朋友是想讓背景圖片鋪滿整個MDIForm視窗，而MDIForm與Form有一些區別，上述程式碼根本實現不了，於是便重新寫了以下程式碼：

'* ************************************************************** * '* 程式名稱：MDIForm1.frm '* 程式功能：讓背景圖片鋪滿整個MDIForm視窗 '* 作者：lyserver '* 聯絡方式：http://blog.csdn.net/lyserver '* ************************************************************** * Dim WithEvents picBackground As PictureBox Private Sub MDIForm_Load() Set picBackground = Me.Controls.Add("VB.PictureBox", "picBackground") picBackground.Appearance = 0 picBackground.BorderStyle = 0 picBackground.Align = 0 picBackground.ScaleMode = vbPixels picBackground.AutoRedraw = False Set picBackground.Picture = LoadPicture("g:/me.jpg") picBackground.Visible = True End Sub Private Sub MDIForm_Resize() picBackground.Move 0, 0, Me.Width, Me.Height End Sub Private Sub MDIForm_Unload(Cancel As Integer) Me.Controls.Remove "picBackground" End Sub Private Sub picBackground_Paint() Dim i As Long, j As Long, w As Long, h As Long w = picBackground.ScaleX(picBackground.Picture.Width, vbHimetric, vbPixels) h = picBackground.ScaleY(picBackground.Picture.Height, vbHimetric, vbPixels) For i = 0 To Me.Width / 15 / w + 1 For j = 0 To Me.Width / 15 / h + 1 picBackground.PaintPicture picBackground.Picture, i * w, j * h Next Next End Sub

    這個程式碼基本上滿足了設計要求，由於是為了清楚的表達思路，所以使用了一個動態圖片框，在實際使用時，如果MDIForm窗體上還有一些設計時的子控制元件，比如有工具欄，則不使用動態圖片框，而是在設計時直接放置一個PictureBox控制元件，然後工具欄放置到這個PictureBox控制元件裡，再按程式碼中PictureBox的屬性進行逐一設定，這樣就可以既讓背景圖片鋪滿視窗，又可以顯示工具欄，否則，動態載入的圖片框會遮隱住工具欄，造成了顧此失彼。