vb MDI窗体背景的设置代码

'如果你有任何问题可以发邮件给我,我们一起切磋共同进步,同时我也想多交朋友 'talver@126.com Private Sub MDIForm_Resize() On Error Resume Next SetBack Me, Pic, App.Path & "\bg.jpg" End Sub Private Sub SetBack(FrmMDI As Form, PicBack As PictureBox, PicPath As String) '使用方法在MDI窗体上放置一个PictureBox '在窗体Resize中调用SetBack On Error Resume Next With PicBack .Visible = False .Appearance = 0 .AutoRedraw = True .BorderStyle = 0 .Top = 0 .Left = 0 .Height = Me.ScaleHeight .Width = Me.ScaleWidth End With PicBack.Picture = LoadPicture(PicPath) PicBack.PaintPicture PicBack.Picture, 0, 0, _ PicBack.Width, PicBack.Height FrmMDI.Picture = PicBack.Image FrmMDI.BackColor = FrmMDI.BackColor - 1 End Sub