主题：遍历系统窗口与控件的代码问题

狐爸及各位朋友:想请教一下,我想遍历我的系统中的所以窗口,及窗口中的控件,请问怎么写代码

For Each c As Winform.Form In forms
    output.show(c.name)
    For Each d As Winform.Control In c.Controls
        output.show(d.name)
    Next
Next

这个代码通不过,请各位赐教!

窗口没打开的情况下,是不可以遍历控件的.

Bin老师:您好,我的权限现在是设在每个窗口的相应控件中的,现在想来还是有点不方便,想用权限表但蛤如果窗口没有打开就不能遍历控件的话,那我的权限表怎么办才好呢,或者怎么样才能像官方的可视化权限设置一样来设计窗口控件的权限呢,谢谢您指导?

在窗口AlterLoad事件里处理啊.

那这样就不能像狐表提供的可视化权限一样的,在一个表里面来设权限了啊

为什么不可以? 代码放到窗口的AlterLoad事件就可以,甚至可以封装成自定义函数,直接在ALterLoad事件调用即可.

Bin老师:这自定义函数我不会做,有没有相关案例给我参考一下,或给我我得清楚一些,麻烦您了

不写成自定义函数也可以的,直接复制黏贴代码即可.

但这个需要每个窗口都要写代码,我现在做的,就是这种形式的,我是想能不能有个权限表,表中有使用者,窗口名称,控件名称,可用,可见等列,我直接在表中处理什么人能对什么窗口中的什么控件有权限,这样会更明了一点,不知道这种能不能实现呢?

对啊,就是让你这样做. 代码都是统一的,复制黏贴到每个窗口的ALterLoad事件即可.