图片放全屏,有二种放法,
一种是拉伸,一种是平铺.
这里讲拉伸吧.
放一个控件,picture 控件,设为自动大小
窗口重绘设为自动,以得到持久的位图
代码如下:
Option Explicit
Dim 背景图 As Boolean
'设置是否载入的背景图
Private Sub Command1_Click()
'设置背景图
'载入背景图
Picture1.Picture = LoadPicture("C:\WINDOWS\Web\Wallpaper\Stonehenge.jpg")
背景图 = True
'标志设置了背景图
'显示背景
Me.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Command2_Click()
'取消背景图
'设置标志
背景图 = False
'清掉
Me.Cls
End Sub
Private Sub Form_Resize()
'修改大小时,根据是否载入的背景,来决定是否重绘背景
If 背景图 Then
Me.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
Else
Me.Cls
End If
End Sub