【填上如下代码,就算窗体改变大小,也会自动拉伸】
Private Sub Form_Resize()
With Image1
.Top = 0
.Left = 0
.Height = Me.Height
.Width = Me.Width
End With
End Sub
将一个image控件填满窗体,strech属性设置为true,然后载入图片
设置picture的autosize这个属性为false
图片的大小等于窗体大小 height width