[讨论]如何枚舉控件屬性？？？

Ericall

呜呜呜，还不懂啊，留个记号，过段时间了再来看

liucqa

留个记号               

zhyj_88

所列的成员里面只有方法和属性,而没有事件,不知版主还有别的办法吗?

treenewbee

好帖！学习.......

xq4u

修改的northwolves版主的代码，枚举控件的事件、方法、属性、值，代码如下：

1. Sub listcontrols()
   
2. 'VBE界面，工具菜单--->引用--->浏览---->找到 C:\WINDOWS\system32\TLBINF32.DLL 打开即可。或者
   
3. 'VBE界面，工具菜单--->引用--->下拉找到 TypeLib Information-->打勾即可    Cells(1, 1) = "控件"
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5.     Cells(1, 1) = "控件名称"
   
6.     Cells(1, 2) = "常量"
   
7.     Cells(1, 3) = "事件"
   
8.     Cells(1, 4) = "方法"
   
9.     Cells(1, 5) = "Get属性"
   
10.     Cells(1, 6) = "Let属性"
    
11.     Cells(1, 7) = "Set属性"
    
12.     Cells(1, 8) = "未知属性"
    
13.     Cells(1, 9) = "值"
    
14.     [a1:i1].Interior.ColorIndex = 3
    
15.     On Error Resume Next
    
16.     Dim ctl As Object, iInf, n As Long, m(1 To 5) As Long, max As Long
    
17.     Set ctl = CreateObject("scriptcontrol")
    
18.     Set y = CreateObject("TLI.TLIApplication")
    
19.     n = 1
    
20.     For Each ctl In UserForm1.Controls
    
21.         Set iInf = y.InterfaceInfoFromObject(ctl)
    
22.         If Not (iInf Is Nothing) Then
    
23.             Dim mem
    
24.             d.RemoveAll
    
25.             max = 0
    
26.             For i = 1 To 5
    
27.                 If m(i) > max Then
    
28.                     max = m(i)
    
29.                 End If
    
30.             Next i
    
31.             For i = 1 To 5
    
32.                 m(i) = max + 1
    
33.             Next i
    
34.             For Each mem In iInf.Members
    
35.                 n = n + 1
    
36.                
    
37.                 Select Case mem.InvokeKind
    
38.                 Case TLI.INVOKE_CONST '常量
    
39.                     m(1) = m(1) + 1
    
40.                     Cells(m(1), 1) = ctl.Name
    
41.                     Cells(m(1), 2) = mem.Name
    
42.                 Case TLI.INVOKE_EVENTFUNC '事件
    
43.                     m(2) = m(2) + 1
    
44.                     Cells(m(2), 1) = ctl.Name
    
45.                     Cells(m(2), 3) = mem.Name
    
46.                 Case TLI.INVOKE_FUNC '方法
    
47.                     m(3) = m(3) + 1
    
48.                     Cells(m(3), 1) = ctl.Name
    
49.                     Cells(m(3), 4) = mem.Name
    
50.                 Case TLI.INVOKE_PROPERTYPUT 'Let属性
    
51.                     If Not d.Exists(mem.Name) Then
    
52.                         m(4) = m(4) + 1
    
53.                         d(mem.Name) = m(4)
    
54.                         Cells(m(4), 1) = ctl.Name
    
55.                         Cells(m(4), 5) = mem.Name
    
56.                     Else
    
57.                         Cells(d(mem.Name), 1) = ctl.Name
    
58.                         Cells(d(mem.Name), 5) = mem.Name
    
59.                     End If
    
60.                 Case TLI.INVOKE_PROPERTYPUTREF 'Set属性
    
61.                     If Not d.Exists(mem.Name) Then
    
62.                         m(4) = m(4) + 1
    
63.                         d(mem.Name) = m(4)
    
64.                         Cells(m(4), 1) = ctl.Name
    
65.                         Cells(m(4), 6) = mem.Name
    
66.                     Else
    
67.                         Cells(d(mem.Name), 1) = ctl.Name
    
68.                         Cells(d(mem.Name), 6) = mem.Name
    
69.                     End If
    
70.                 Case TLI.INVOKE_PROPERTYGET 'Get属性
    
71.                     If Not d.Exists(mem.Name) Then
    
72.                         m(4) = m(4) + 1
    
73.                         d(mem.Name) = m(4)
    
74.                         Cells(m(4), 1) = ctl.Name
    
75.                         Cells(m(4), 7) = mem.Name
    
76.                     Else
    
77.                         Cells(d(mem.Name), 1) = ctl.Name
    
78.                         Cells(d(mem.Name), 7) = mem.Name
    
79.                     End If
    
80.                 Case TLI.INVOKE_UNKNOWN '未知
    
81.                     m(5) = m(5) + 1
    
82.                     Cells(m(5), 1) = ctl.Name
    
83.                     Cells(m(5), 8) = mem.Name
    
84.                 End Select
    
85.                 Cells(m(4), 9) = CallByName(ctl, mem.Name, VbGet)
    
86.             Next
    
87.         End If
    
88.     Next
    
89.     [a1:c65536].Columns.AutoFit
    
90. End Sub

复制代码