VB6中,使用PICTRUEBOX或IMAGE控件,如何让加载在其中的小图片拉伸至整个屏幕大小(当然不覆盖窗体边框、菜单栏、工具栏和状态栏的空间)。
方法有多种,总结如下:
1、用image控件
Private Sub Form_Load()
Image1.Stretch = True
End Sub
Private Sub Form_Resize()
Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
2、用picture控件
用image控件很简单,但用picture控件就麻烦点
Dim TmpPic As IPictureDisp
Private Sub Picture1_Paint(