Re: [VBA ] 請問如何中止表單的close事件？

[markart (桂子)]

※ 引述《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
推 mindscold:謝謝您！已完成了 *^^*
→ MOONRAKER:這招在VB.NET改成e.cancel=true可以照用 XD