主题：关闭程序

方法一：直接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