Foxtable(狐表)用户栏目专家坐堂 → 如何列出所有窗口名称?如何获取窗口所有控件的名称?


  共有2260人关注过本帖树形打印复制链接

主题:如何列出所有窗口名称?如何获取窗口所有控件的名称?

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3096 积分:20666 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/4/10 15:59:00 [显示全部帖子]

给你个建议,代码能判断所有窗口名称和类型的,用目录树的方式把窗口列出来,点击目录树打开窗口,位置设置为-1000,-1000,让后就可以列出窗口的所有控件了,还有个问题就是按钮放panel里面的,需要去变量panel,授权肯定是根据不同的人授权不停的按钮是否可以使用。
然后做一个按钮,保存你勾选的功能,保存到授权表。使用时根据授权表的授权来判断。
比如这样,但是我这个没你的复杂,我只需要判断常用功能,不需要去判断表

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230410160035.jpg
图片点击可在新窗口打开查看


Dim frm As WinForm.Form = Forms("报名管理")
frm.Open( - 1000, - 1000)
For Each c As WinForm.Control In frm.Controls
    If TypeOf c Is WinForm.Button Then '判断控件是否是按钮  
        Dim nr As Row = Tables("功能导航").AddNew()
        nr("窗口名称") = frm.Name
        nr("功能名称") = c.name 
    End If
Next
[此贴子已经被作者于2023/4/10 16:07:08编辑过]

 回到顶部