以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  退出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29027)
--  作者：ttitt147
--  发布时间：2013/2/26 9:09:00
--  退出

我用了一个message对话框做退出，但点是的时候总是要按很多次才行。为什么呢？

 

这是 beforecloseproject 代码

 

 

Dim Result As DialogResult
Result = MessageBox.Show("Confirm Quit?", "Info", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Syscmd.Project.Exit()
    Return
Else
    e.Cancel = True
End If
--  作者：狐狸爸爸
--  发布时间：2013/2/26 9:15:00
--  

这么改一下：

 

Dim Result As DialogResult
Static i As Integer
If i = 0 Then
    i = 1
    Result = MessageBox.Show("Confirm Quit?", "Info", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result <> DialogResult.Yes Then
        i = 0
        e.Cancel = True
    End If
End If
--  作者：ttitt147
--  发布时间：2013/2/26 9:24:00
--  
多谢二位