当窗体最大化或大小改变时，窗体上的控件的位置不能跟随窗体变化，有什么办法可以解决？

在窗体的Resize事件里调整控件大小就可以，比如一个控件名称为Text1

Private sub Form1_Resize()
     text1.width=Form1.Width
End Sub

这样文本框的宽度就可以随窗体变化。

单是这样还不够，当有很多个控件时，它们间的位置就会变得很混乱。
而且有些控件并不需要它的大小随窗体变化，只是希望它与窗体和其他控件的相对位置固定，比如说按钮。
可有办法解决？
谢谢

'-------------------------------------- ' 自 动 改 变 控 件 大 小 '-------------------------------------- ' 洪恩在线 求知无限 '-------------------------------------- '本例实现一个控件大小随窗体大小改变而自动改变的文本编辑器

'定义 FormOldWidth, FormOldHeight 为全局变量，这样其他模块才能调用它 Public FormOldWidth, FormOldHeight

Private Sub Form_Load() Call ResizeInit(Me) End Sub

'确保窗体改变时控件随之改变 Private Sub Form_Resize() Call ResizeForm(Me) End Sub

'在调用ResizeForm前先调用本函数 Public Sub ResizeInit(FormName As Form) 'Control是一个对象，表示所有 Visual Basic 内部控件的类名。 '可以将一个变量标为 Control 对象，象引把控件放到窗体上的一样来引用它。例如： 'Dim C As Control 'Set C = Command1 Dim Obj As Control FormOldWidth = FormName.ScaleWidth FormOldHeight = FormName.ScaleHeight On Error Resume Next 'Each是一个关键字，作用是针对一个数组或集合中的每个元素，重复执行一组语句。 '语法 'For Each element In Group For Each Obj In FormName 'Tag返回或设置一个表达式用来存储程序中需要的额外数据。 Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " " Next Obj On Error GoTo 0

End Sub

'按比例改变表单内各元件的大小， '在调用ReSizeForm前先调用ReSizeInit函数 Public Sub ResizeForm(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 = FormName.ScaleWidth / FormOldWidth '保存窗体高度缩放比例 ScaleY = FormName.ScaleHeight / FormOldHeight On Error Resume Next For Each Obj In FormName StartPos = 1 '读取控件的原始位置与大小 For i = 0 To 4 'InStr函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法:InStr([start, ]string1, string2[, compare]) TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare) If TempPos > 0 Then 'Mid函数，返回Variant (String)，其中包含字符串中指定数量的字符。语法：Mid(string, start[, length]) Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else Pos(i) = 0 End If '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小 'Move方法，用以移动 MDIForm、Form 或控件。语法:object.Move Left, Top, Width, Height If Not TypeOf Obj Is ComboBox Then Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY Else Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX End If Next i Next Obj On Error GoTo 0

End Sub

多谢版主胖baby,只不过比想象中的要复杂些

是很复杂，我在实现自动调整控件大小时都是直接在每个窗体的 Resize 事件中设定的。