7,763
社区成员
发帖
与我相关
我的任务
分享
'需要引用Typelib Infomation对象(TLBINF32.DLL)
Option Explicit
Private Sub Command1_Click()
Call listfun(List1)
End Sub
Private Sub listfun(ByVal pObject As Object)
Dim TypeLib As TLI.InterfaceInfo
Dim Prop As TLI.MemberInfo
Set TypeLib = TLI.InterfaceInfoFromObject(pObject)
For Each Prop In TypeLib.Members
'列出所有的方法,可读,可写属性
If Prop.InvokeKind = INVOKE_FUNC Or _
Prop.InvokeKind = INVOKE_PROPERTYGET Or _
Prop.InvokeKind = INVOKE_PROPERTYPUT Then
List1.AddItem Prop.Name
End If
Next
End Sub