VB如何实现打开软件最大化且控件随之变化

来源：百度知道 编辑：UC知道 时间：2024/07/07 15:39:12
我想实现打开vb编写的软件时，能够自动实现最大化与显示器大小相匹配且最大化按钮功能还能使用，而软件中的控件也能按比例放大和缩小，使得与显示器相适应。前面发现如果点击最大化但控件不变化使得软件很难看，如果换太小屏幕显示器和控件大小也没变化。请问大家给点建设性意见

在form1的resize事件中把控件的height,width,top,left和form1的对应属性联系起来

'适用于所有带Move方法的控件。

Private Sub Form_Load()
For Each Control In Controls
Control.Tag = Join(Array(Control.Left, Control.Top, Control.Width, Control.Height))
Next
Tag = Join(Array(Width, Height))
End Sub

Private Sub Form_Resize()
Dim sF, sC
sF = Split(Tag)
For Each Control In Controls
sC = Split(Control.Tag)
Control.Move Width / sF(0) * sC(0), Height / sF(1) * sC(1), Width / sF(0) * sC(2), Height / sF(1) * sC(3)
Next
For Each Control In Controls
Control.Tag = Join(Array(Control.Left, Control.Top, Control.Width, Control.Height))
Next
Tag = Join(Array(Width, Height))

End Sub

创建一个PictureBox，改变它的变量Align，然后在它的Resize事件里输代码就行！如果用Form_Resize，那么最大化时Resiza并未触发。