0

MessageBox 入力に基づいてどのように出力しますか?

すなわち。ボタンのクリック時に MessageBox を表示するアプリケーションがあります。MessageBox には、[中止]、[再試行]、および [無視] ボタンがあります。
各ボタンをクリックすると、別のテキストで MessageBox を表示したい。

例: [中止] をクリックすると、メッセージ ボックスに「中止」というテキストが表示されます。
[再試行] をクリックすると、「再試行済み」というテキストを含む MessageBox を表示したいと考えています。
[無視] をクリックすると、「無視されました」というテキストを含む MessageBox を表示したいと考えています。

私の試みは: (エラーが発生しました: Microsoft.VisualBasic.dll で「System.InvalidCastException」型の最初のチャンス例外が発生しました。
追加情報: 文字列「入力」から「整数」型への変換が無効です
。この例外のハンドラー、プログラムは安全に続行される可能性があります。)
Public Class Form1 Private Sub Input_Click(sender As Object, e As EventArgs) Handles Input.Click Dim a As DialogResult = MsgBox("何でもクリックしてください。", "Input", MessageBoxButtons.AbortRetryIgnore)

    Select Case a
        Case Windows.Forms.DialogResult.Abort
            MsgBox("Aborted", "Abort")
        Case Windows.Forms.DialogResult.Retry
            MsgBox("Retried", "Retry")
        Case Windows.Forms.DialogResult.Ignore
            MsgBox("Ignored", "Ignore")
    End Select
End Sub

クラス終了

PS: Select Case を使用することをお勧めします。

4

1 に答える 1

1

ほら、どうぞ。

 Dim a As DialogResult = MessageBox.Show("Click anything.", "Input", MessageBoxButtons.AbortRetryIgnore)

Select Case a
            Case Windows.Forms.DialogResult.Abort
                Console.WriteLine("Aborted")
            Case Windows.Forms.DialogResult.Cancel
                Console.WriteLine("Cancel")
        End Select
于 2013-05-29T12:59:11.387 に答える