以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132022)

--  作者:裴保民
--  发布时间:2019/3/12 8:52:00
--  关闭程序

在BeforeCloseProject事件中写了如下代码


Dim Result As DialogResult
Result = Messagebox.Show("退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,0, Windows.forms.MessageBoxOptions.ServiceNotification)
If Result = DialogResult.No Then \'如果用户选择否
    e.Cancel = True \'取消关闭项目
Else
DataTables.Save
e.SkipSave = False
    nfi.dispose
End If

为了在退出程序的时候给客户一个提醒,怎么控制在程序启动的时候,要求注册的时候,如果不注册,直接退出程序不弹出该提示框呢?

--  作者:有点甜
--  发布时间:2019/3/12 9:09:00
--  

方法一:直接kill关闭项目

 

System.Diagnostics.Process.GetCurrentProcess().Kill

 

方法二:用vars变量记录信息,如

 

vars("不注册") = true

 

---------------

 

If vars("不注册") = False Then
    Dim Result As DialogResult
    Result = Messagebox.Show("退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,0, Windows.forms.MessageBoxOptions.ServiceNotification)
    If Result = DialogResult.No Then \'如果用户选择否
        e.Cancel = True \'取消关闭项目
    Else
        DataTables.Save
        e.SkipSave = False
        nfi.dispose
    End If
Else
    e.SkipSave = True
End If