Question

VB编程，我想在活动子窗体大小改变时让这个子窗体中的文本框大小跟着改变，请问该怎么做？

Answer 1

Private Sub Form_Load()
Text1.Tag = Text1.Left / Me.ScaleWidth & "|" & Text1.Top / Me.ScaleHeight & "|" & Text1.Width / Me.ScaleWidth & "|" & Text1.Height / Me.ScaleHeight
End Sub

Private Sub Form_Resize()
Dim k() As String
k = Split(Text1.Tage,"|")
Text1.Move Me.ScaleWidth * Val(k(0)), Me.ScaleHeight * Val(k(1)), Me.ScaleWidth * Val(k(2)), Me.ScaleHeight * Val(k(3))
End Sub

Answer 2

在子窗体的Resize事件中写文本框大小的代码，用MOVE方法。