获取对象的接口信息(方法/属性/事件)(VB6代码)

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'