vb窗体最大化最小化时，picturebox如何随之变大变小

Posted 2023-03-09

首先在设计时确定窗体与Picturebox之间的关系，例如Picture1.Left=? Picture1.Top=? Picture1.Width 与 me.Width 的比例关系，Picture1.Height 与 me.Height 的比例关系
那么，在Form_Resize事件中就可以按比例放大或缩小控件尺寸，但控件位置不变，例如
Dim X As Single, Y As Single

Private Sub Form_Load()
X = Picture1.Height / Me.Height
Y = Picture1.Width / Me.Width
End Sub

Private Sub Form_Resize()
Picture1.Height = Me.Height * X
Picture1.Width = Me.Width * Y
End Sub 参考技术A 这个要手动调整尺寸的。 参考技术B 始终与窗体一样大
Private Sub Form_Resize()
Picture1.Width = Me.Width
Picture1.Height = Me.Height
End Sub 参考技术C http://wenku.baidu.com/view/b0e3906d783e0912a2162ad6.html
你看看我的文库的方法