如何用vb把窗体和按钮同时增大时，位置按比例分配？

记得以前cbm666老师说过
后来让我忘了
后悔当时没理解

很简单：关键是要理解有点费劲
我研究了很久终于找到了最简单的办法
就是窗体加载时，用全局变量记录（左距和宽度与窗体缩放宽度(scalewidth)、顶距和高度与缩放高度、字体大小与对角线(勾股定理)等的比值）。窗体大小变化时，再分别乘回来即可。
理不理解看你自己了。

我也很想知道，

要善用吧内搜索呀
http://tieba.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=3193487386&z=315313333&pn=0&rn=30&lm=0&rs16=0&word=vb#3193487386


Option Explicit
Private Type XD相对大小
X1 As Single
X2 As Single
Y1 As Single
Y2 As Single
FontSize As Single
End Type
Dim XD() As XD相对大小
Private Sub Form_Load()
On Error Resume Next
Dim II%, C As Control
For Each C In Me.Controls
ReDim Preserve XD(II)
XD(II).X1 = C.Left / Me.ScaleWidth
XD(II).Y1 = C.Top / Me.ScaleHeight
XD(II).X2 = C.Width / Me.ScaleWidth
XD(II).Y2 = C.Height / Me.ScaleHeight
XD(II).FontSize = C.Font.Size / Sqr(Me.ScaleWidth ^ 2 + Me.ScaleHeight ^ 2)
II = II + 1
Next
End Sub
Private Sub Form_Resize()
On Error Resume Next
Dim II%, C As Control
With Me
For Each C In .Controls
C.Left = XD(II).X1 * .ScaleWidth
C.Top = XD(II).Y1 * .ScaleHeight
C.Width = XD(II).X2 * .ScaleWidth
C.Height = XD(II).Y2 * .ScaleHeight
C.Font.Size = XD(II).FontSize * Sqr(Me.ScaleWidth ^ 2 + .ScaleHeight ^ 2)
II = II + 1
Next
End With
End Sub
'注意！组合框和驱动器列表框的Height只读。