小博Note

Dim Db As ADODB.Connection
Set Db = New ADODB.Connection
connstr = "Provider=sqloledb ; Data Source=127.0.0.1,1433;Initial Catalog=dbName;Persist Security Info=True;User ID=123;Password=456"
Db.Open connstr

這個方法必需先建立一個要動態產生的控制項，並將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來做處理。

  Dim   txt1()   As   VB.textbox   
  Dim   i   As   Integer 
  Private   Sub   Command1_Click()
  ReDim   Preserve   txt1(i)   As   VB.textbox