VB窗体的背景图充满整个窗体,怎样设置?

2025-02-23 15:27:31
推荐回答(3个)
回答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

回答2:

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

回答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