利用TypeLib information枚举对象属性、利用CallByName反射调用函数
'引用TypeLib information Sub listcontrols() Cells(1,1) = "控件" Cells(1,2) = "属性,方法,事件" Cells(1,3) = "值" [a1:c1].Interior.ColorIndex = 3 On Error Resume Next Dim ctl As Object,n As Long n = 1 For Each ctl In UserForm1.Controls Dim iInf As InterfaceInfo Set iInf = InterfaceInfoFromObject(ctl) If Not (iInf Is nothing) Then Dim mem As MemberInfo For Each mem In iInf.Members If mem.InvokeKind Then n = n + 1 Cells(n,1) = ctl.Name Cells(n,2) = mem.Name Cells(n,3) = CallByName(ctl,mem.Name,VbGet) End If Next End If Next [a1:c65536].Columns.AutoFit End Sub
原文地址:https://www.jb51.cc/vb/262671.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。