Question

怎样实现VB编程中控件随窗体变化的自适应功能？

Answer 1

Private Sub Form_Resize()
With Text1
.Top = 100
.Left = 100
.Width = Me.ScaleWidth - 2 * .Left
.Height = Me.ScaleHeight - 2 * .Top
End With
End Sub

Answer 2

如窗体变化，文本框也变化：
Private Sub Form_Load()
Form1.Width = 2500
Form1.Height = 1000
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Text1.Left = 100
Text1.Width = Form1.Width - 250
End Sub

Answer 3

在FORM_RESIZE事件里编写代码。
控件随FORM的WIDTH\HEIGHT大小变化。

Answer 4

也可以使用move方法：
object.Move left, top, width, height