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 を使用することをお勧めします。