VB实现控件与窗体不能同步缩放呢?

为什么会出现这种情况呢?原因很简单:当窗体的尺寸缩放(如最大化)时,窗体内的控件的尺寸以及在窗体内的相对位置没有得到相应的调整。事实上,窗体和控件的大小分别是由窗体和控件的Width属性和Height属性确定的。所以,当程序界面设计完成之后,窗体及其内部各控件的Width、Height属性便随之确定下来;从而窗体相对于每一个控件,它们的宽度之比、高度之比也被确定下来。
   例如:如果窗体Form1内的一个文本框控件Text1的宽度(Width)为3600,高度(Height)为1900,;而窗体Form1的这两个值分别为4900和3700,则它们的宽度之比和高度之比分别为:3600/4900、1900/3700。而当用户在程序启动后调整了窗体的尺寸,则窗体的宽度和高度分别为Form1.ScaleWidth和Form1.ScaleHeight。由此可以看出,要保证控件与窗体之间的原有比例,只要按比例来调整文本框控件Text1的高度和宽度值即可。即:

  调整后的Text1WidthΚ(36004900)×Form1.ScaleWidth

  调整后的Text1HeightΚ(19003700)×Form1.ScaleHeight

  将上面的例子中得出的结论推而广之:一般而言,当窗体尺寸调整后,窗体内控件的尺寸应按以下公式同步进行调整:调整后的控件的WidthΚ(控件原Width值/窗体原Width窗体.ScaleWidth;调整后的控件的Height属性值Κ(控件原Height值/窗体原Height窗体.ScaleHeight

  窗体尺寸缩放的同时,窗体内的控件在窗体中的相对位置应如何同步调整呢?控件在窗体中的位置由该控件的LeftTop属性确定。程序启动后如果窗体被缩放,只要按照缩放的比例来重新调整窗体内各控件的LeftTop属性值即可。因此,根据上面介绍的同步调整控件尺寸的原理,在窗体被缩放的同时,只要按照下面的关系来设置控件的LeftTop值即可;调整后控件的LeftΚ(控件原Left值/窗体原Left窗体.ScaleWidth;调整后控件的TopΚ(控件原Top值/窗体原Top窗体.ScaleHeight

  上面谈了控件与窗体同步缩放及保持相对位置的原理,下面看看在VB程序中实现的具体方法。我们知道,Resize事件是窗体响应的一个事件;当窗体第一次显示或当窗体的状态被改变时(如窗体被最大化、最小化或被还原时)该事件发生。所以,只要将对控件大小和位置的调整代码写入窗体的Resize事件中便可达到目的。具体可在窗体的Re size事件过程中使用对象的Move方法:

  PrivateSubForm-Resize()

  Object.moveNewleftNewtopNewWidthNewHeight

  EndSub

  其中:Object是需要调整大小和位置的任意一个控件的名称;NewLeftNewTopNewWidthNewHeight分别是窗体缩放后控件应有的新的LeftTopWidthHeight的属性值,它们确定了当窗体被缩放后控件的大小和位置。NewWidthNewHeightNewLeftNewTop可直接使用文中给出的相应公式的表达式。

  最后要注意的是,不要对窗体内的不可见控件(如果有的话)进行类似的处理,否则会出错。


下面的代码可以实现,vb窗口最大化的时候,里面的控件一起变化

Option Explicit
Private InitWidth As Long       ' Form
的原始大小

Private InitHeight As Long

Private Sub Form_Load()
InitWidth = ScaleWidth
InitHeight = ScaleHeight
Dim Ctl As Control
'
记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中

On Error Resume Next '
确保left, top, width, height, Tag属性没有全有的Control
For Each Ctl In Me   '
也能正常执行

    Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "
    Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
Next Ctl
On Error GoTo 0
End Sub

Private Sub Form_Resize()
Dim D(4) As Double
Dim I As Long
Dim TempPos As Long
Dim StartPos As Long
Dim Ctl As Control
Dim TempVisible As Boolean
Dim ScaleX As Double
Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
On Error Resume Next
For Each Ctl In Me
    TempVisible = Ctl.Visible
    Ctl.Visible = False
    StartPos = 1
    '
读取 Control 的原始位置、大小、字型大小

    For I = 0 To 4
        TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare)
        If TempPos > 0 Then
            D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos)
            StartPos = TempPos + 1
        Else
            D(I) = 0
        End If
        '
根据比例设定 Control 的位置、大小、字型大小
        Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY
        'Ctl.Width = D(2) * ScaleX
        'Ctl.Height = D(3) * ScaleY
        If ScaleX < ScaleY Then
            Ctl.FontSize = D(4) * ScaleX
        Else
            Ctl.FontSize = D(4) * ScaleY
        End If
    Next I
    Ctl.Visible = TempVisible
Next Ctl
On Error GoTo 0
End Sub