VB遍歷類的屬性和方法

VB遍歷類的屬性和方法比較麻煩。

參考system32/TLBINF32。動態鏈接庫

私有子窗體_Load()

Dim oTLB作為接口信息

將目標作為對象變暗

set Target = CreateObject(" VBScript。正則表達式”)

設置oTLB = TLI。InterfaceInfoFromObject(目標)

調試。打印oTLB。名字

對於i = 1到oTLB。成員。計數

選擇大小寫oTLB。成員(壹)。發票種類

案例調用_常量

調試。打印“常量”:&；oTLB。成員(壹)。名字

案例調用_事件函數

調試。打印“事件”:&；oTLB。成員(壹)。名字

案例調用_FUNC

調試。打印“方法”:&；oTLB。成員(壹)。名字

案例調用_屬性獲取

調試。print " property(get):" &；oTLB。成員(壹)。名字

案例調用_屬性輸入

調試。print " property(let):" &；oTLB。成員(壹)。名字

Case INVOKE_PROPERTYPUTREF

調試。print " property(set):" &；oTLB。成員(壹)。名字

案例調用_未知

調試。打印“未知”:&；oTLB。成員(壹)。名字

結束選擇

接下來我

末端接頭