BeforeClose

在关闭窗口前执行。

e参数属性：

Form：  表示要关闭的窗口
Cancel：逻辑型，设为True，将禁止关闭窗口。

如果任何时候Cancel参数都返回True的话，那么窗口将永远不能关闭，直到强
行中止进程，所以在代码中使用Cancel参数的时候，一定要慎重。

示例

请在窗口中加入两个DateTimePicker(日期输入框)，分别命名为StartDate和EndDate。
然后将BeforeClose事件代码设为：

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("StartDate")
ed = e.Form.Controls("EndDate")
If sd.Value Is Nothing OrElse ed.Value Is Nothing Then
    MessageBox.Show("请输入起始日期和终止日期！","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
End If

我做了个窗口测试 发现第一次打开项目后  如果要关闭窗口 是没法关闭的 要输入日期  但是 关闭后 第二次应用窗口  出现不需要输入日期也能关闭 什么情况呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

但是你点了确定后  窗口就自动关闭了~