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 に答える