追蹤
虛幻與現實之間
關於部落格
  • 2509

    累積人氣

  • 1

    今日人氣

    0

    追蹤人氣

[VB6]Form_QueryUnload事件

'Form_QueryUnload事件 右上角叉叉的指令
'與Form_Unload事件 類似
'但Form_Unload是只關閉式窗後執行的動作,Form_QueryUnload則是要直行關閉時的動作
'故Form_QueryUnload事件是在Form_Unload事件之前


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    If MsgBox("   " & Me.Caption & "   " & Chr$(13) & Chr$(13) & "  確定結束嗎?", 49, "關閉程式") = 1 Then
           
        End     '系統結束3
   
    Else
       
        Cancel = True
   
    End If

End Sub

or

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Dim n As Integer

    n = MsgBox("確定結束嗎?", vbInformation + vbOKCancel)

    If n = 1 Then
   
        Cancel = False

    Else
   
        Cancel = True
   
    End If

End Sub

'Cancel 為False 時 輸出為 0 為繼續執行關閉動作
'Cancel 為True 時 輸出為 -1  為不要執行關閉動作
'但Cancel 只是是非0  就可以實現True

相簿設定
標籤設定
相簿狀態