在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的控件名。请问该怎么写代码? 展开
 我来答
jxvictorr
2014-08-30 · TA获得超过155个赞
知道小有建树答主
回答量:94
采纳率:100%
帮助的人:48.4万
展开全部
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
建议使用控件数组
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式