Question

vb代码中可以使用什么语句加载控件数组元素

Answer 1

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 3
Load Text1(i) '加载控件数组
Text1(i).Left = Text1(i - 1).Left
Text1(i).Top = Text1(i - 1).Top + 500
Text1(i).Visible = True '使其显示
Next i
End Sub

Private Sub Form_Unload(Cancel As Integer) '
Dim i As Integer
For i = 1 To Text1.UBound
Unload Text1(i) '退出时卸载控件数组
Next
End Sub