Question

VB窗体的背景图充满整个窗体，怎样设置？

Answer 1

'1、设置BorderStyle属性设置为“0-None”
'2、使用 网海1书生
上面说的代码
如果做封面的话，还需要在窗体上放一个Timer
'1、设置BorderStyle属性设置为“0-None”
'2、窗体上放一个Timer，默认名称为Timer1'
Private Sub Form_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Interval = 3000
Timer1.Enabled = True
End Sub

Private Sub Form_Paint()
Timer1.Enabled = False
End Sub
Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Unload Me
Form2.Show
End Sub

Answer 2

窗体上一个Image1 把stretch 属性改为true
加载你想要加 的图片。
在窗体的Resize事件里写以下代码
Private Sub Form_Resize()
Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Answer 3

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

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