怎么让form上的控件随form的最大化按设计时候的比例自动最大化或最小化

Question

怎么让form上的控件随form的最大化按设计时候的比例自动最大化或最小化

Answer 1

RESIZE32.OCX控件加入窗体后，不用写任何代码，一位高人介绍用的

Answer 2

就是怎么比较方便改变width和height的属性到合适
RESIZE32.OCX控件如何加入，怎么用？

Answer 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
End Sub'按比例改变表单内各元件的大小，
Public Sub ResizeForm(FormName As Form)
    Dim Pos(3) 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 3
            '读取控件的原始位置与大小
            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
End Sub

Answer 4

在 form_resize事件写相应程序就可以

Answer 5

MmMVP(做人要厚道)
在 form_resize事件写相应程序就可以在Form_resize里调用如下
ResizeInit Form1
ResizeForm Form1报
实时错误 ‘6’
益出

Answer 6

http://dev.csdn.net/article/27/27195.shtm
窗体控件大小随窗体大小变化而变化

Answer 7

RESIZE32.OCX控件加入窗体后，不用写任何代码，一位高人介绍用的这个东西哪里有哦
给我们介绍一下阿

Answer 8

chendjin(谢谢，我要充电。) 
控件是自动变化大小了，控件上的字体怎么没变化呢

Answer 9

google baidu搜索一下!!同类的OCX挺多的

Answer 10

我觉得还是自己学代码好
private sub form_resize()
text1.move 10,10,Me.width-20,me.height-20
end sub
obj.move left,top,width,height
我觉得最好用的就是 move方法text1的高度,宽度随窗口大小改变
随心所欲