美化窗体——VB窗体的背景图充满整个窗体

美化窗体——VB窗体的背景图充满整个窗体

• 方法一

  窗体属性设为：Stretch = True

Private Sub Form_Load()
  '调入图片
  imgMain.Picture = LoadPicture("E:VB机房收费系统机房收费系统所需素材你的名字1.jpg")
End Sub

Private Sub Form_Resize() 'resize调整大小

  '改变图片控件大小,让图片充满窗口;
  imgMain.Move 0,0,Me.Width,Me.Height

End Sub

• 方法二

Private Sub Form_Load()
  'AutoRedraw是VB中的自动重绘窗口，当窗口被某个东西遮蔽了之后，窗口上那个位置原来绘制的图像被遮盖后可以用它把遮蔽的那部分重新绘制出来。
  Me.AutoRedraw = True 

End Sub 

Private Sub Form_Resize() 

  Me.PaintPicture Me.Picture,Me.ScaleWidth,Me.ScaleHeight 

End Sub

在网上下载一张喜欢的背景图，根据方法做，就能把自己的窗体背景设置的美美哒~