在vb编程窗体上,有从label1到label100共100个label控件,还有一个command1,一个text1
这100个label中,绝大多数的caption是0,但至少有1个的caption是1。现在点击command1,要求找出从1到100这100个label中顺次下来,第一...
这100个label中,绝大多数的caption是0,但至少有1个的caption是1。现在点击command1,要求找出从1到100这100个label中顺次下来,第一个caption是1的label,在text1中输出该label的控件名。请问该怎么写代码?
展开
展开全部
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
建议使用控件数组
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
建议使用控件数组
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询