关于退出程序

Question

请问,我想写一个退出程序,按了退出之后就会弹出来个msgbox,当按下"是"的时候就退出.按"否"的话就回到窗口,不做改变.请问,这个按"否"的程序怎么写?

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)End Sub
这个事件里用msgbox接收用户的按键并决定是exit sub还是end

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  dim i as integer
  i=msgbox("确定推出？"，vbYesNo + vbCritical + vbExclamation ,"确定")
  if i=6 then
    end '结束程序
    else 
    cancel=true
  end if
End Sub

Answer 3

cancel=true 是什么意思?他有什么作用?

Answer 4

Private Sub Command1_Click()
a = MsgBox("是否退出该程序？", 1, "确认退出")
  If a = 1 Then End
End Sub这样写可不可以？？

Answer 5

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
    Case 0
        Cancel = True        
    Case 1
        End
    End Select
End Sub这样是最好的书写方法。

Answer 6

'这样也可以Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = MsgBox("真的退出吗?", vbYesNo) - 6
End Sub

Answer 7

i=msgbox("确定推出？"，vbYesNo + vbCritical + vbExclamation ,"确定")
IF 按"是" 即i=6 
if 按"否" 即i=7
这样就可以达到你的目的了吧