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'

?

轉載于:https://www.cnblogs.com/nanfei/p/3994742.html

總結

以上是生活随笔為你收集整理的vb6 枚举对象属性的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。