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

其他:'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 窗体上一个Image1 把stretch 属性改为true
加载你想要加 的图片。
在窗体的Resize事件里写以下代码
Private Sub Form_Resize()
Image1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub 

你可能感兴趣的:(VB6,图像)