VB控件随窗体最大化变化的方法

在开发中，往往开发人员需要控制控件大小适应窗口的大小，使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?

有三种方法供选择：1、用代码控制特定的控件随着窗体最大化展现出自己所希望的结果。第一步：窗体LOAD事件时记下每一个控件的位置属性和大小，并取得窗口大小的属性值。第二步：计算缩放比，就是用控件的LEFT和WIDTH属性分别除以窗口的WIDTH属性值得到两个比值X1,X2。再用控件的TOP和height属性值分别除以窗口的HEIGHT属性值得到两个比值Y1,Y2。第三步：在窗体的Resize的事件中，控件的位置和大小=窗体的大小*比值。总结：这样各个控件的位置和大小由窗体的大小决定。这个问题还可以延伸：A;窗体大小改变时，控件位置改变但大小不改变。B;窗体大小改变时，控件大小改变但位置不改变。

这两个问题还可以细化窗体的WIDTH属性和height属性值分别变化对控件的大小和位的影响。总共有六个情况。你可以打开酷狗，当你改变它的窗体大小时，你仔细观察它里面的控件的大小和位置的变化情况，细细的品味这种变化。相信你能自己写出代码，这个并不太难。

2、使用第三方软件，但是效果很差，而且需要安装第三方软件，非常没有必要。

3、比较推荐的一种方法：

'窗体最大化定义

Private FormOldWidth As Long

'原始宽度

Private FormOldHeight As Long

'原始高度

'在调用ResizeForm前先调用本函数

Public Sub ResizeInit(FormName As Form)

Dim Obj As Control

FormOldWidth = FormName.ScaleWidth

FormOldHeight = FormName.ScaleHeight

On Error Resume Next

For Each Obj In FormName

Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "

Next Obj

On Error GoTo 0

End Sub

'按比例改变表单内各元件的大小，

'在调用ReSizeForm前先调用ReSizeInit函数

Public Sub ResizeForm(FormName As Form)

Dim Pos(4) As Double

Dim I As Long, TempPos As Long, StartPos As Long

Dim Obj As Control

Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth

'保存窗体宽度缩放比例

ScaleY = FormName.ScaleHeight / FormOldHeight

'保存窗体高度缩放比例

On Error Resume Next

For Each Obj In FormName

StartPos = 1

For I = 0 To 4

'读取控件的原始位置与大小

TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)

If TempPos > 0 Then

Pos(I) = Mid(Obj.Tag, StartPos, TempPos - StartPos)

StartPos = TempPos + 1

Else

Pos(I) = 0

End If

'根据控件的原始位置及窗体改变大小

'的比例对控件重新定位与改变大小

Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY

Next I

Next Obj

On Error GoTo 0

End Sub

Private Sub Form_Resize()

ResizeForm Me '控件随之改变

End Sub

Private Sub Form_Load()

Call ResizeInit(Me) '确保窗体改变时控件随之改变

End Sub

注意：1、声明语句“Private FormOldWidth As Long”和“Private FormOldHeight As Long”不可以放到“End sub”后

2、如果出现除数为零的情况，需要调整控件的大小。