小博Note

這個方法必需先建立一個要動態產生的控制項，並將index設成0，然後就可以由程式來動態建立控制項陣列了。

1.在form1建立一個Text1的控制項，將屬性Index設為0，此控制項變成控制項陣列0。

2.利用Load 控制項(index)的方式來建立控制項。

For Example：

在Form_Load中輸入以下程式：

For i = 1 To 10
Load Text1(i)
Set Text1(i).Container = Form1
Text1(i).Left = i * 1000 + 2000
Text1(i).Top = 1500
Text1(i).Text = i
Text1(i).Visible = True
Next i

這樣便會在Form1建立十個text1控制項陣列，加上第一個原本就建立的總共是十一個。

若要使用events來控制，可以輸入以下的程式：

Private Sub Text1_change(Index As Integer)
Select Case Index

Case 0

MsgBox (”The text in the first TextBox has changed”)

Case 1

MsgBox (”The text in the second TextBox has changed”)

Case 2

MsgBox (”The text in the third TextBox has changed”)

End Select
End Sub

程式可以利用控制項的index來做處理。

來源：http://3ck.twbbs.org/tag/vb/