vb6 枚舉對象屬性

標籤：style   blog   color   io   ar   for   sp   div   on   

Option Explicit‘引用Library TLI‘ C:\WINDOWS\system32\TLBINF32.DLL‘ TypeLib InformationPrivate 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 NextEnd Sub‘

 

vb6 枚舉對象屬性