Question

一个窗体，窗体里面有几个控件，请大侠们帮忙：怎样在调整窗体大小时，里面的控件也随窗体大小改变？

Answer 1

窗体布局调整没有千篇一律的，要看具体情况，比如文件夹窗口，文件显示区会调整宽度和高度，但左边的面板区只调整了高度，并没调整宽度。

如果你想玩玩，把控件全部同比率的调整大小和位置，可以在窗体载入时把窗口的原尺寸保存起来，以后就按新尺寸与原尺寸的比率来调整控件和位置。

Dim oldWidth As Single, oldHeight As Single
Private Sub Form_Load()
    oldWidth = Me.Width
    oldHeight = Me.Height
End Sub
Private Sub Form_Resize()
Dim item As Control
Dim RX As Single
Dim RY As Single
RX = Me.Width / oldWidth
RY = Me.Height / oldHeight
On Error Resume Next
For Each item In Controls
    item.Left = item.Left * RX
    item.Width = item.Width * RX
    item.Top = item.Top * RY
    item.Height = item.Height * RY
Next
oldWidth = Me.Width
oldHeight = Me.Height'当然，要把当前窗口尺寸保存
End Sub