Question

vb2010使控件位置和大小自动适应窗体变化 还请高手指点！！

错误为：表达式的类型为"System.Windows.Forms.Form",该类型不是集合类

Private FormOldWidth As Long '保存窗体的原始宽度Private FormOldHeight As Long '保存窗体的原始高度
Private Sub Form4_Load() Call ResizeInit(Me) '在程序装入时必须加入
End Sub
Private Sub Form4_Resize() Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub
'在调用ResizeForm前先调用本函数 Public Sub ResizeInit(ByVal FormName As Form)
Dim Obj As Control
FormOldWidth = Me.Width
FormOldHeight = Me.Height
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub
'按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数 Public Sub ResizeForm(ByVal FormName As Form)
Dim Pos(4) As Double
Dim i As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double
ScaleX = Me.Width / FormOldWidth '保存窗体宽度缩放比例
ScaleY = Me.Width / FormOldHeight '保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1
For i = 0 To 4
'读取控件的原始位置与大小
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
On Error GoTo 0
End Sub

Answer 1

从代码看是VB6.0的，2010没这么复杂
比较简单的做法是拖进一个TableLayoutPanel控件，Dock属性设为Fill,把你的控件设计好,运行时自然会按比例变化了。

追问

假设控件比较多时，用TableLayoutPanel时其它控件感觉不怎么好布局。

追答

TableLayoutPanel容器内的控件都有rowspan和columnspan属性，可以让控件换行，再怎么难设计也比用代码容易些。

Answer 2

vb.net不是有dock和anchor属性的吗？为什么你还要手工编写？