我正在制作服务器控制应用程序(使用一些按钮来启动/停止服务器很简单) 当用户想要关闭应用程序时,将会提示确认框。
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关闭”或“关闭窗口”关闭它时,系统会提示我,直到我点击“否”,然后它将关闭。 它是一个循环,当你第一次点击是,然后点击否时它会停止。
有人可以帮我解决这个问题吗?
答案 0 :(得分:4)
只需删除Close()
来电,因为Form
已经关闭。没必要那样做。