web-dev-qa-db-ja.com

YesNoCancelのMessageBox-いいえ&キャンセルは同じイベントをトリガーします

YesNoCancelボタンのあるメッセージボックスがあります...

  • Yesを押すと、何らかのアクションが実行され、アプリケーションが閉じられます-正常に動作します
  • Noを押しても何も実行されず、アプリケーションが閉じられます-(以下を参照)
  • Cancelを押しても何も実行されず、アプリケーションが開いたままになります(以下を参照)。

私はDialogResult.Noを使用しています No ボタンとDialogResult.Cancel Cancel ボタン。しかし、それらのいずれかを押すと、DialogResult.Cancelイベントがトリガーされます。どうしたの?

44
Bibhas Debnath

これはうまくいくはずです:

Dim result As Integer = MessageBox.Show("message", "caption", MessageBoxButtons.YesNoCancel)
If result = DialogResult.Cancel Then
    MessageBox.Show("Cancel pressed")
ElseIf result = DialogResult.No Then
    MessageBox.Show("No pressed")
ElseIf result = DialogResult.Yes Then
    MessageBox.Show("Yes pressed")
End If
111
Darin Dimitrov

すべての答えが正しいと思います。ちょっと違うコードを書きたいだけです。私の意見では、それを行うことができますdialogBoxの結果を保存するために追加の変数を使用せずに。ご覧ください:

VBコード

Select Case MsgBox("Your Message", MsgBoxStyle.YesNoCancel, "caption")
                    Case MsgBoxResult.Yes
                        MessageBox.Show("Yes button")
                    Case MsgBoxResult.Cancel
                        MessageBox.Show("Cancel button")
                    Case MsgBoxResult.No
                        MessageBox.Show("NO button")
 End Select

C#コード

switch (MessageBox.Show("Message", "caption", MessageBoxButtons.YesNoCancel))
        {
            case DialogResult.Yes: MessageBox.Show("Yes"); break;
            case DialogResult.No: MessageBox.Show("No"); break;
            case DialogResult.Cancel: MessageBox.Show("Cancel");  break;
        }
32
Orlando Herrera

つかいます:

Dim n As String = MsgBox("Do you really want to exit?", MsgBoxStyle.YesNo, "Confirmation Dialog Box")
If n = vbYes Then
    MsgBox("Current Form is closed....")
    Me.Close() 'Current Form Closed
    Yogi_Cottex.Show() 'Form Name.show()
End If
3
Prashant Koli
dim result as dialogresult
result = MessageBox.Show("message", "caption", MessageBoxButtons.YesNoCancel)
If result = DialogResult.Cancel Then
    MessageBox.Show("Cancel pressed")
ElseIf result = DialogResult.No Then
    MessageBox.Show("No pressed")
ElseIf result = DialogResult.Yes Then
    MessageBox.Show("Yes pressed")
End If
3
yousafkamal

閉会警告

Private Sub cmd_exit_click()

    ' By clicking on the button the MsgBox will appear
    If MsgBox("Are you sure want to exit now?", MsgBoxStyle.YesNo, "closing warning") = MsgBoxResult.Yes Then ' If you select yes in the MsgBox then it will close the window
               Me.Close() ' Close the window
    Else
        ' Will not close the application
    End If
End Sub
2
Suji

Darinの例に少しだけ追加するために、以下にボックス付きのアイコンを示します。 http://msdn.Microsoft.com/en-us/library/system.windows.forms.messagebox(v = vs.110).aspx

Dim result = MessageBox.Show("Message To Display", "MessageBox Title", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

If result = DialogResult.Cancel Then

    MessageBox.Show("Cancel Button Pressed", "MessageBox Title",MessageBoxButtons.OK , MessageBoxIcon.Exclamation)

ElseIf result = DialogResult.No Then

    MessageBox.Show("No Button Pressed", "MessageBox Title", MessageBoxButtons.OK, MessageBoxIcon.Error)

ElseIf result = DialogResult.Yes Then

    MessageBox.Show("Yes Button Pressed", "MessageBox Title", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If
2
David Kittell

はい/いいえプロンプトを使用する方法は次のとおりです。

If MsgBox("Are you sure?", MsgBoxStyle.YesNo) <> MsgBoxResults.Yes Then
    Exit Sub
End If
2
DLS Discovery

これは、Dimを使用せずに、MsgBoxの代わりにMessageBox.Showを使用して実行する方法です。私の意見では、これが最もクリーンな書き方です!

Select Case MessageBox.Show("Message", "Title", MessageBoxButtons.YesNo)
    Case vbYes
        ' Other Code goes here
    Case vbNo
        ' Other Code goes here
End Select

Ifを使用して、さらに短くすることができます。

If MessageBox.Show("Message", "Title", MessageBoxButtons.YesNo) = vbYes Then
    ' Other Code goes here
End If
1
Elias Wick