如果不想取消卸載操作,最終拋出Unload事件。使得用戶有最后一次機會阻止窗體的
關閉。大多數情況下.應該利用這次機會提醒用戶保存數據:
Dim Saved As Boolean’定義一個模塊級變且
Private Sub Formes Unload(Cancel As Integer)
If Not Saved Then
MsgBox "Please save data first!"
Cancel-True
End If
End Sub
網友整理
注冊時間:
網站:5 個 小程序:0 個 文章:12 篇
網站
小程序
文章
會員