| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗口关闭问题请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87651) |
| -- 作者：llh0824 -- 发布时间：2016/7/16 10:24:00 -- 窗口关闭问题请教 Dim sqbm As WinForm.ComboBox = e.Form.Controls("申请部门") If sqbm.Value Is Nothing Then MessageBox.Show("申请部门不能为空!") sqbm.Select e.Cancel = True end if 保存按钮中写上述代码，beforeclose中模拟该按钮，但是点击关闭以后窗口直接关闭了，e.Cancel = True代码没有生效
|
| -- 作者：Hyphen -- 发布时间：2016/7/16 10:50:00 -- 有没有弹出不能为空的提示，如果没有说明没有进入if，代码没有执行 e.Cancel = True在按钮事件和beforeclose的e.Cancel 没有关系的，写到beforeclose才行 |
| -- 作者：llh0824 -- 发布时间：2016/7/16 12:02:00 -- 有弹出不能为空的提示 |
| -- 作者：llh0824 -- 发布时间：2016/7/16 12:04:00 -- Dim bc As WinForm.Button = e.Form.Controls("保存") bc.PerformClick在beforeclose中写了模拟单击按钮
|
| -- 作者：Hyphen -- 发布时间：2016/7/16 14:01:00 -- e.Cancel = True在按钮事件和beforeclose的e.Cancel 没有关系的，写到beforeclose才行 |
| -- 作者：llh0824 -- 发布时间：2016/7/16 14:22:00 -- 那在这里模拟单击按钮就用不了，是吗？ |
| -- 作者：Hyphen -- 发布时间：2016/7/16 14:42:00 -- 代码做成函数，把e参数传递进去 |
| -- 作者：llh0824 -- 发布时间：2016/7/16 15:39:00 -- 嗯嗯，谢谢老师 |