| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 页面集合 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127680) |
| -- 作者：qaz17909 -- 发布时间：2018/11/19 23:19:00 -- 页面集合 页面集合，遍历某个页面的所有控件不可用，如何写代码 |
| -- 作者：有点蓝 -- 发布时间：2018/11/19 23:26:00 -- For Each c As WinForm.Control In e.Form..Controls("TabControl1").TabPages(1).Children |
| -- 作者：qaz17909 -- 发布时间：2018/11/20 20:59:00 -- 好像不行，我的代码如下，当不是经理的时候，第一个页面的表格和所有按钮不可用，我的代码哪里有问题 窗口afterload事件
Dim t1 As Table = e.Form.Controls("Table1").Table If User.IsRole("经理") Then Return Else t1.AllowEdit = False For Each c1 As WinForm.Control In e.Form.Controls("TabControl1").TabPages(0).Children If Typeof c1 Is WinForm.Button Then c1.Enabled = False End If Next End If |
| -- 作者：有点蓝 -- 发布时间：2018/11/20 21:20:00 -- 代码我测试没有问题。请上传实例说明 |
| -- 作者：qaz17909 -- 发布时间：2018/11/20 23:15:00 -- 我知道了，我的控件是放在分区面板里面的，所以无效，只要放在分区面板外即可。请问如果是针对页面中的分区面板内的控件，怎么写代码 |
| -- 作者：有点甜 -- 发布时间：2018/11/21 8:55:00 -- 以下是引用qaz17909在2018/11/20 23:15:00的发言：
我知道了，我的控件是放在分区面板里面的，所以无效，只要放在分区面板外即可。请问如果是针对页面中的分区面板内的控件，怎么写代码
那就遍历分区面板，如
Dim sp As WinForm.SplitContainer = e.Form.controls("SplitContainer1") |