在VB中安全关闭活动窗口的实用指南

老张最近在VB论坛看到个求助帖，楼主说自己开发的库存管理系统经常在关闭窗口时卡死，用户数据都没保存。这让我想起自己刚学VB那会儿，为了关个窗口把整个程序都搞崩溃的糗事——当时老板的脸黑得跟锅底似的，吓得我赶紧买了杯奶茶赔罪。

一、窗口关闭的基本功

周末帮表弟调试他写的计算器程序时，发现他用的是这种写法：

• 直接调用Close方法：Me.Close
• 卸载窗体：Unload Me
• 强制终止：End

1.1 最常用的关闭方式

就像咱们关灯要按开关而不是拔插头，Me.Close是微软官方推荐的标准做法。上周帮邻居王婶修电脑，发现她家孩子写的作业管理系统里就有这么段代码：

Private Sub btnExit_Click
If MessageBox.Show("确定要退出？", "提示", MessageBoxButtons.YesNo) = DialogResult.Yes Then
Me.Close
End If
End Sub

方法	适用场景	注意事项	数据来源
Me.Close	普通窗体关闭	触发Closing事件	MSDN文档
Unload Me	兼容旧版本程序	可能引发对象引用问题	《VB6编程指南》
End	紧急终止程序	不执行清理操作	Stack Overflow技术问答

二、那些年踩过的坑

记得前年帮开超市的李叔开发收银系统时，有次关闭窗口导致打印机队列卡死。后来发现是用了这种写法：

Private Sub Form_Unload
Printer.KillDoc  '直接终止打印作业
End  '暴力退出
End Sub

2.1 内存泄漏的隐形杀手

• 未释放的数据库连接（就像用完水龙头不关）
• 残留的定时器对象（像忘记关的闹钟）
• 未注销的事件监听（好比挂了电话没挂断）

参考《.NET内存管理实战》的建议，我后来改成这样处理：

Private Sub FormClosing(sender As Object, e As FormClosingEventArgs)
If _dbConnection.State = ConnectionState.Open Then
_dbConnection.Close
End If
_timer.Enabled = False
RemoveHandler btnSave.Click, AddressOf SaveData
End Sub

三、高级工程师的私房技巧

去年参加微软技术峰会时，跟VB产品组的老王学到个绝活。他们在处理重要数据保存时，会这样写关闭逻辑：

Private Async Sub Form_Closing(sender As Object, e As CancelEventArgs)
If _isDataDirty Then
e.Cancel = True
Using saveDialog As New SaveFileDialog
If saveDialog.ShowDialog = DialogResult.OK Then
Await SaveDataAsync(saveDialog.FileName)
MyBase.Close
End If
End Using
End If
End Sub

这种写法就像给窗口关闭加了智能管家，既能防止误操作，又能确保数据安全。有次帮开美容院的老同学调试预约系统，用这个方法解决了他最头疼的客户预约丢失问题。

3.1 多窗口协同作战

当主窗口需要控制子窗口关闭时，可以参考《VB企业级应用开发》里的模式：

Public Class MainForm
Private _childForm As ChildForm
Private Sub OpenChild_Click
If _childForm IsNot Nothing AndAlso Not _childForm.IsDisposed Then
_childForm.Close
End If
_childForm = New ChildForm
_childForm.Show(Me)
End Sub
End Class

窗外的梧桐叶沙沙作响，电脑屏幕上的代码还在跳动。保存好今天的修改，我顺手给刚写完的订单管理模块加上关闭校验——这次应该不会再被客户投诉数据丢失了吧？