获取对象的接口信息(方法/属性/事件)(VB6代码)
作者:admin 日期:2009-06-29
要不是WS的超级绿豆提起这东西,我还不知道呢....
真是个好玩意!!能列出一个对象的接口,包括方法,属性,事件.....微软直接做了啊.
记录一下,以后要用到时免得忘了:
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'
真是个好玩意!!能列出一个对象的接口,包括方法,属性,事件.....微软直接做了啊.
记录一下,以后要用到时免得忘了:
复制内容到剪贴板
程序代码
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'
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。