Question

问大家一个关于VB程序窗口的问题

VB程序窗口的大小任意调整，里面组件的大小也跟着按照比例调整大小，请问要怎样写这个程序？

Answer 1

上边的编码太累人了，应该这么做
dim slgX as single
dim slgY as single
sub Command1_Click
slgx=lngOldWidth /lngNewWidth
slgY=lngOldHeight/lngNewWidth
dim objCtl as control

for each objCtl as controls
objctl.width=objctl.width * slgX
objctl.height=objctl.height * slgy
objctl.TOP=objctl.TOP * slgy
objctl.width=objctl.WIDTH * slgy
next
'调整窗体大小的代码略
next
end sub

Answer 2

用按钮做示例，大小自己调。
Private Sub Form_Resize()
Command1.Top = Form1.Height / 10
Command1.Left = Form1.Width / 10
Command1.Height = Form1.Height / 20
Command1.Width = Form1.Width / 20
End Sub