Question

在vb编程窗体上，有从label1到label100共100个label控件，还有一个command1，一个text1

这100个label中，绝大多数的caption是0，但至少有1个的caption是1。现在点击command1,要求找出从1到100这100个label中顺次下来，第一个caption是1的label,在text1中输出该label的控件名。请问该怎么写代码？

Answer 1

label是控件数组吗？如果是直接用
for i = 1 to 100
if label1(i).caption = 1 then text1 = label1(i).name
next
如果不是
Dim ml As Label
For i = 0 To Controls.Count - 1
If TypeName(Me.Controls.Item(i)) = "Label" Then
Set ml = Me.Controls.Item(i)
If ml.Caption = "1" Then text1 = ml.Name
End If
Next
Set ml = Nothing
建议使用控件数组