以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  之前在论坛上看到过一个遍历控件所有属性的例子，现在找不到了，请问谁收藏了。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100268)
--  作者：affixed
--  发布时间：2017/5/8 15:08:00
--  之前在论坛上看到过一个遍历控件所有属性的例子，现在找不到了，请问谁收藏了。

之前在论坛上看到过一个遍历控件所有属性的例子，现在找不到了，请问谁收藏了。

 

谢谢！
--  作者：有点色
--  发布时间：2017/5/8 15:13:00
--  

Dim o = Forms("窗口1")

For Each c As object In o.Gettype.getproperties
    output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
    output.show(c.name)
Next

 
--  作者：affixed
--  发布时间：2017/5/8 15:46:00
--  

谢谢老师的回复。

 

得到了所有属性和方法后，有些属性是枚举类型，请问再如何把这些枚举值遍历出来。

 

比如控件的VisualStyle属性中所有的值和名称。

 

谢谢！
--  作者：有点色
--  发布时间：2017/5/8 16:17:00
--  

For Each item As object In [Enum].GetValues(Gettype(system.io.drivetype))
    Output.Show(item & "-" & item.Tostring())
Next

 

-----------------------

 

For Each item As object In [Enum].GetValues(Gettype(IVisualStyle))
    Output.Show(item & "-" & item.Tostring())
Next
--  作者：linswcfr
--  发布时间：2017/11/30 15:23:00
--  
mark