vb6 枚举对象属性

Option Explicit'引用Library TLI
' C:\WINDOWS\system32\TLBINF32.DLL
' TypeLib InformationPrivate Sub Form_Load()Dim oTLB As InterfaceInfo, I As LongSet oTLB = TLI.InterfaceInfoFromObject(Me)Debug.Print oTLB.NameFor I = 1 To oTLB.Members.CountSelect Case oTLB.Members(I).InvokeKindCase INVOKE_CONSTDebug.Print " 常数:" & oTLB.Members(I).NameCase INVOKE_EVENTFUNCDebug.Print " 事件:" & oTLB.Members(I).NameCase INVOKE_FUNCDebug.Print " 方法:" & oTLB.Members(I).NameCase INVOKE_PROPERTYGETDebug.Print "属性(Get):" & oTLB.Members(I).NameCase INVOKE_PROPERTYPUTDebug.Print "属性(Let):" & oTLB.Members(I).NameCase INVOKE_PROPERTYPUTREFDebug.Print "属性(Set):" & oTLB.Members(I).NameCase INVOKE_UNKNOWNDebug.Print " 未知:" & oTLB.Members(I).NameEnd SelectNext
End Sub'