Re: [VBA ] 請問如何中止表單的close事件？
※ 引述《mindscold ()》之銘言：
: 請問一下，我希望當使用者按下「X」鈕，VBA即開始對表單上的資料做檢查，檢查不通過
: 即跳出警告視窗並停止、不要關閉表單了，因此我這樣寫：
: Private Sub Form_Close()
: If 判斷式 = TRUE Then
: MsgBox "錯誤：金額錯誤"
: Exit sub
: End If
: End Sub
: 但是這樣當判斷式為真時，雖然依然會跳出視窗顯示字串，但卻還是關閉了表單，
: 請問該怎麼做才能讓表單不要被關閉而停留在現狀呢？
: 謝謝
在事件中
我是這樣寫的
'======================================================================
'表單載出
'======================================================================
Private Sub Form_Unload(Cancel As Integer)
Check_Close = MsgBox("確認是否要離開本程式？", 36, "確認視窗")
Select Case Check_Close
Case vbYes
Unload Form_RegEXP
End
Case Else
Cancel = 1
Exit Sub
End Select
End Sub
重點在於那個Cancel = 1
--
別人笑我癡、眾人罵我瘋
我笑他人看不穿
冷眼看世人戴面具
耳裡聽著眾人裝聖人
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.134.224.116
推
06/12 09:02, , 1F
06/12 09:02, 1F
→
06/14 23:03, , 2F
06/14 23:03, 2F
討論串 (同標題文章)