以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口关闭问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116114)

--  作者:wangjh8888
--  发布时间:2018/3/20 10:15:00
--  窗口关闭问题
老师:早,一独立窗口的BeforeClose事件是下面代码,有时运行正常,有时按“y”或者“n” 都关闭窗口,问题在哪里?

e.Cancel = True
Dim Result As DialogResult = MessageBox.Show("关闭该窗口请慎重!" + chr(13) + "确定关闭吗?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question ,MessageBoxDefaultButton.button2)
If Result = DialogResult.Yes Then
    e.Cancel = False
Else
    e.Cancel = True
End If
Return

--  作者:有点甜
--  发布时间:2018/3/20 10:51:00
--  
代码没问题,升级到最新版,如果还有问题,实例发上来测试。
--  作者:wangjh8888
--  发布时间:2018/3/20 14:30:00
--  
好的   我也在观察下
另外  如何设置这个窗口最小化到主窗口的范围里(例如缩到主窗口的最下边),现在是最小化就缩到 windows 桌面最下面

--  作者:有点甜
--  发布时间:2018/3/20 15:19:00
--  

窗口AfterLoad事件,写代码

 

e.Form.BaseForm.ShowInTaskbar = True


--  作者:乡里出城
--  发布时间:2018/3/27 15:40:00
--  
我也出现这情况,窗口BeforeClose事件的在e.Cancel =true 有时正常,有时不正常


版本已最新2018-3月份的版本了
[此贴子已经被作者于2018/3/27 15:45:44编辑过]

--  作者:乡里出城
--  发布时间:2018/3/27 15:43:00
--  
If Result = DialogResult.Yes Then
            MessageBox.Show("UD!","提示")  代码能执行到这行,然后就直接关掉了
            e.Cancel = True
           
            Return
Else
            Tables(_tbl).Current.Delete()
            DataTables(_tbl).Save()
 End If



--  作者:有点甜
--  发布时间:2018/3/27 15:52:00
--  
以下是引用乡里出城在2018/3/27 15:40:00的发言:
我也出现这情况,窗口BeforeClose事件的在e.Cancel =true 有时正常,有时不正常

 

是在预览的时候有问题,还是真正使用的时候有问题?有没有实例可以测试?

 

有可能是多个窗口一起打开相互关联导致的自动关闭,比如这种情况 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96907&skin=0

 


--  作者:乡里出城
--  发布时间:2018/3/27 16:04:00
--  
是正常使用测试,同时是打开了两个窗口,先是打开了独立窗口,然后从独立窗口的控件上再打开模式窗口
--  作者:有点甜
--  发布时间:2018/3/27 16:35:00
--  
以下是引用乡里出城在2018/3/27 16:04:00的发言:
是正常使用测试,同时是打开了两个窗口,先是打开了独立窗口,然后从独立窗口的控件上再打开模式窗口

 

我测试没问题,实例发上来,说明测试步骤。