以下代码可以使窗体背景图随窗口缩放而等比缩放,始终铺满窗体:
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
picture的autosize属性设置成true就行了
如果用的是image控件,那就把其strenth 属性设置成真就ok了
属性里找
要想成比例,可以用imagebox 修改属性streech