2012-08-27 34 views
3

我正在製作一個服務器控制應用程序(簡單地用一些按鈕來啓動/停止服務器) 而當用戶想要關閉應用程序時,系統會提示一個確認框。在Visual Basic中的E.cancel循環

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 

    Dim response As Integer 
    response = MsgBox("Are you sure you want to stop the server", vbYesNo, "Stop Server ?") 
    If response = vbYes Then 
     Shell("cscript ""stop.vbs""", 1) 
     Close() 
    Else 
     e.Cancel = True 
    End If 
End Sub 

這就是我現在的代碼。 但是,當我啓動應用程序並關閉它與X按鈕或「關閉窗口」我會提示問題,直到我點擊否,然後它將關閉。 這是一個循環,當你第一次點擊是時,然後停止。

有人可以幫我解決這個問題嗎?

回答

4

剛剛刪除Close()呼叫,因爲Form已關閉。沒有必要這樣做。

+0

哇,謝謝你沒注意到! 我不能投票:D – Ahmed

+0

@艾哈邁德,但你可以接受這個答案:[see here](http://meta.stackexchange.com/questions/5234/how-does-accepting-an-answer-工作) – sloth

+0

我知道它說等待9分鐘我打算在1分鐘後現在;) – Ahmed