要創(chuàng)建一個vb控件數(shù)組,首先需要聲明一個控件數(shù)組變量,然后在代碼中使用ReDim語句來定義數(shù)組的大小。以下是一個示例:
Dim myArray() As Control
Private Sub Form_Load()
Dim i As Integer
ReDim myArray(0 To 4) ' 定義數(shù)組大小為0到4
For i = 0 To 4
Set myArray(i) = Me.Controls.Add("VB.TextBox", "TextBox" & i) ' 創(chuàng)建文本框控件并添加到數(shù)組中
With myArray(i)
.Left = 100
.Top = 100 + i * 30
.Width = 100
.Visible = True
End With
Next i
End Sub
在這個例子中,我們聲明了一個名為myArray的控件數(shù)組變量,并在Form_Load事件中使用ReDim語句定義了數(shù)組的大小為0到4。然后通過循環(huán)創(chuàng)建了5個文本框控件,并將它們添加到myArray數(shù)組中。通過設(shè)置每個文本框的Left、Top、Width等屬性,我們可以定位和設(shè)置這些文本框控件的顯示樣式。