如何取出对象的属性?

bruceyew 2000-02-21 03:08:00
在程序中如何取出一个对象的属性表?
例如写一个过程,Get_All_Properties(objX as object)
然后就能返回一个集合,里面包含此对象的所有属性。
...全文
239 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Un1 2000-02-21
  • 打赏
  • 举报
回复
可以通过引用TypeLib Information(TLBINFO32.DLL)后调用:

dim m as memberinfo
for each m in interfaceinfoformobject(Obj).members
' m.name 等等即可得到属性及过程名
with m
if .InvokeKind =INVOKE_PROPERTYGET then

dim s as string
s = .name
colProps.add callbyname(nothing,s,VbGet,Args()),s
end if
end with
next
flywind 2000-02-21
  • 打赏
  • 举报
回复
大家都说了,我也没有其他的要说了!
xubin_sh 2000-02-21
  • 打赏
  • 举报
回复
好象不可以???
除非用vc或delphi等

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧