刚好字段时间也在看这方面的资料,楼主试下面的代码'需要引用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
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