加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

获取对象的接口信息(方法/属性/事件)(VB6代码)

发布时间:2020-12-17 07:39:10 所属栏目:百科 来源:网络整理
导读:获取对象的接口信息(方法/属性/事件)(VB6代码) 作者:admin 日期:2009-06-29 字体大小: 小 中 大 要不是WS的超级绿豆提起这东西,我还不知道呢.... 真是个好玩意!!能列出一个对象的接口,包括方法,属性,事件.....微软直接做了啊. 记录一下,以后要用到时免得忘了

获取对象的接口信息(方法/属性/事件)(VB6代码)

要不是WS的超级绿豆提起这东西,我还不知道呢....

真是个好玩意!!能列出一个对象的接口,包括方法,属性,事件.....微软直接做了啊.

记录一下,以后要用到时免得忘了:

复制内容到剪贴板 程序代码

Option Explicit

'引用Library TLI
' C:WINDOWSsystem32TLBINF32.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'


上一篇: 把首页折腾了一下,放了几个游戏上去
下一篇: 无论如何,I 都 Like You!(摘于网络)

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读