| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 窗口关闭 和 最小化 问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76206) |
| -- 作者：15986720145 -- 发布时间：2015/10/23 15:40:00 -- [求助] 窗口关闭 和 最小化 问题 怎么样设置才能 根据登录者权限设置按钮权限： A:只显示 “最小化” 而不显示 “关闭”（或者让关闭失效） B:显示 “最小化” 显示 “关闭”.
|
| -- 作者：Hyphen -- 发布时间：2015/10/23 17:40:00 -- if 没有权限 then Dim f As WinForm.Form = Forms("窗口10")
f.BaseForm.MinimizeBox= false end if |
| -- 作者：15986720145 -- 发布时间：2015/10/24 8:03:00 -- 设置成下面这样，结果：最大、最小、关闭 都没有显示。求指点！！！ 窗口AfterLoad事件代码 ================================ e.Form.BaseForm.MaximizeBox = False e.Form.BaseForm.MinimizeBox= True e.Form.BaseForm.ControlBox= True ================================
[此贴子已经被作者于2015/10/24 8:04:07编辑过]
|
| -- 作者：Hyphen -- 发布时间：2015/10/24 9:09:00 -- 测试没问题。关闭按钮默认都会有的 |
| -- 作者：15986720145 -- 发布时间：2015/10/25 8:26:00 -- 将代码改到窗口的Enter事件中，代码有效，不得其解，求指点！！ |
| -- 作者：游 -- 发布时间：2015/10/25 12:45:00 -- 别弄得这么复杂，直接在窗口的BeforeClose事件中判断
IF 没有权限 then e.Cancel = True end if
|