3

我正在制作一个服务器控制应用程序(简单的一些按钮来启动/停止服务器)当用户想要关闭应用程序时,会提示一个确认框。

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

1 回答 1

4

只需删除Close()呼叫,因为Form已经关闭。没必要那样做。

于 2012-08-27T11:05:42.760 回答