Question

vb动态加载控件怎么判断内容

比如我动态加载N个文本框，我想判断在任何一个文本框输入的内容是否等于1怎么写?

Answer 1

Private Sub Command1_Click()
Dim i As Integer
For i = Text1.LBound To Text1.UBound
    If Text1(i).Text = "1" Then
        MsgBox "Text1(" & i & ")中的文本是1"
    End If
Next
End Sub
Private Sub Form_Load()
Dim i As Integer
Text1(0).Text = 0
For i = 1 To 5
    Load Text1(i)
    Text1(i).Text = i
    Text1(i).Top = Text1(i - 1).Top + 300
    Text1(i).Visible = True
Next i
End Sub

Answer 2

用索引来引用动态加载的控件。