以文本方式查看主题

-  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=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