Question

vb 窗体最大化时怎么使背景图片跟着改变大小

Answer 1

一个简便的方法。
代码如下。
＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
AutoRedraw = True
Picture = Icon
End Sub

Private Sub Form_Resize()
Cls
PaintPicture Picture, 0, 0, Width, Height
End Sub

Answer 2

Form_Resize 事件
下面是例子，具体设多少自己定
Private Sub Form_Resize()
'if Picture1.Height < ** then ...觉得有必要的条件自己加
Picture1.Height =Me.Height- 100
Picture1.Width= Me.Width -100
End Sub

Answer 3

这个方法最好
Private Sub Form_Resize()
'if Picture1.Height < ** then ...觉得有必要的条件自己加
Picture1.Height =Me.Height- 100
Picture1.Width= Me.Width -100
End Sub

Answer 4

Option Explicit

Private BackGround As StdPicture

Private Sub Form_Load()
Set BackGround = Me.Picture
Me.Picture = LoadPicture("")
Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
Me.PaintPicture BackGround, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub