16,721
社区成员




'点击关闭时确认是关闭窗口还是最小化到System Tray
Private Sub frmmain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MsgBox("提示:退出程序前请检查数据是否保存! ", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "是否退出程序!") = MsgBoxResult.Yes Then
e.Cancel = False
Else
e.Cancel = True
Exit Sub
End If