现在要求点击关闭时：
如果程序正在运算，则禁止关闭，
如果已经运算完，则询问是否保存，选择是，保存的指定的一小部分表，其他的不保存，选择否不保存直接退出。
下面是代码，现在出现的问题是，有时点击关闭的时候，程序有时直接响应，有时要反应几秒或十几秒，是我这里面代码有问题吗，还是其他原因导致，点击关闭时反应时间长呢
在BeforeCloseProject里的事件：
If ysjsbzcs_x1 = 1 OrElse ysjsbzcs_x2 = 1 OrElse ysjsbzcs_x3 = 1 OrElse ysjsbzcs_x4 = 1 Then
MessageBox.Show("程序正在运行,请停止计算后再关闭程序!","程序运行提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning,0, System.Windows.forms.MessageBoxOptions.ServiceNotification)
e.Cancel=True
Else
Dim Result As DialogResult
Result = MessageBox.Show("是否保存设计输入信息及合格方案参数!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Result = DialogResult.No Then '如果用户选择否
e.SkipSave=True '不保存直接退出
Else
DataTables("设计输入表").Save()
DataTables("合格方案主参数").Save()
DataTables("合格方案主参数一").Save()
DataTables("合格方案主参数二").Save()
DataTables("合格方案主参数三").Save()
DataTables("合格方案主参数四").Save()
DataTables("绝缘半径表").Save()
DataTables("计算方案输出").Save()
DataTables("铁芯尺寸表").Save()
e.SkipSave=True '不保存直接退出
End If
End If
加好友 
发短信
Post By：2019/6/17 13:55:00 [只看该作者]
