回答群友一个问题,看群里热闹,自己测试了下,感觉蛮有趣,做一个分享。
群友问题:
如果一个标签是文本框的附属标签,怎么通过标签得到文本框的名称?
我通过label.parent.name,得到的是窗体名称;
我的思路是先遍历 所有控件,用字典记录所有label控件和对应的parent属性;
然后遍历所有控件,对属于文本框控件的 输出其绑定的lalel 名称和标题。
具体代码如下:
Private Sub Command10_Click()
Set dic = CreateObject("scripting.dictionary")
For Each ctr In Controls
If ctr.ControlType = 100 Then
dic(ctr.Parent.Name) = "对应标签名字为" & ctr.Name & ",对应标签标题为" & ctr.Caption
End If
Next
For Each ctr In Controls
If ctr.ControlType = 109 Then
msgbox "文本框" & ctr.Name & dic(ctr.Name)
End If
Next
End Sub
附 件:
点击下载此附件
效果如下: