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

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

谢谢！

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

谢谢老师的回复。

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

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

谢谢！

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