獲取對象的接口信息(方法/屬性/事件)(VB6代碼)

轉自老馬的BLOG

CSDN上的老馬

 

要不是WS的超級綠豆提起這東西,我還不知道呢....

真是個好玩意!!能列出一個對象的接口,包括方法,屬性,事件.....微軟直接 做了啊.

記錄一下,以後要用到時免得忘了:


Option Explicit ' 引用Library TLI ' C:/WINDOWS/system32/TLBINF32.DLL ' TypeLib Information Private Sub Form_Load() Dim oTLB As InterfaceInfo, I As Long Set oTLB = TLI.InterfaceInfoFromObject(Me) Debug.Print oTLB.Name For I = 1 To oTLB.Members.Count Select Case oTLB.Members(I).InvokeKind Case INVOKE_CONST Debug.Print " 常數:" & oTLB.Members(I).Name Case INVOKE_EVENTFUNC Debug.Print " 事件:" & oTLB.Members(I).Name Case INVOKE_FUNC Debug.Print " 方法:" & oTLB.Members(I).Name Case INVOKE_PROPERTYGET Debug.Print "屬性(Get):" & oTLB.Members(I).Name Case INVOKE_PROPERTYPUT Debug.Print "屬性(Let):" & oTLB.Members(I).Name Case INVOKE_PROPERTYPUTREF Debug.Print "屬性(Set):" & oTLB.Members(I).Name Case INVOKE_UNKNOWN Debug.Print " 未知:" & oTLB.Members(I).Name End Select Next End Sub'