比如说我传一个ADO对象过来,如何才么列出他的所有属性,和方法。当然是指程序上自动读取他有那些属性,并列出来。其功能就像VB里的监视窗一样,可以方便的列出任何一个对象的属性和方法。

解决方案 »

  1.   

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