Re: [VB6 ] 關閉程式的問題

[chinoyan (chino)]

※ 引述《k6k4vfd7 (喪氣的獅子男)》之銘言：
: 我再結束程式的時候想要跑出一個MsgBox來詢問是否結束程式
: 在Form中的按鈕都做的出來，
: 但是點選右上角的"X"那部份卡住了...
: 我想法是在MDIForm_QueryUnload這邊加入程式碼，
: 可是點選否還是一樣會結束程式...
: 想法錯了?還是只是沒寫好而已...
: 用MDIForm跟Form有差嗎@@?
: 先感謝大大們的解答啦>"<

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1 '取消關閉程式,反之則反
Ans = MsgBox("Exit Y/N", vbYesNo)
If Ans = vbYes Then Cancel = 0

End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.129.161.76
推 k6k4vfd7:感謝>"<