文本框与标签的绑定关系

时　间:2021-06-25 16:54:19
作　者:yihui   ID：45044  城市：上海
摘　要:文本框   与  标签的绑定关系   
正　文:

回答群友一个问题，看群里热闹，自己测试了下，感觉蛮有趣，做一个分享。

群友问题：

如果一个标签是文本框的附属标签，怎么通过标签得到文本框的名称？

我通过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

附   件:

点击下载此附件

效果如下: