作者chinoyan (chino)
看板Visual_Basic
标题Re: [VB6 ] 关闭程式的问题
时间Tue Apr 17 01:45:07 2007
※ 引述《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
1F：推 k6k4vfd7:感谢>"< 04/17 02:18