如何使用Select Case爲MessageBox輸入提供輸出？

你如何給出基於MessageBox輸入的輸出？如何使用Select Case爲MessageBox輸入提供輸出？

即，我有一個應用程序顯示按鈕單擊一個MessageBox。 MessageBox具有Abort，Retry和Ignore按鈕。
我想在單擊每個按鈕時這樣做，我想用不同的文本顯示一個MessageBox。

例如：單擊中止時，我想要顯示帶有文本「中止」的消息框。
單擊重試時，我想顯示帶有「Retried」文本的MessageBox。
單擊忽略時，我想顯示一個文本爲「忽略」的消息框。

我的嘗試是：（我得到一個錯誤：在Microsoft.VisualBasic.dll中發生了類型'System.InvalidCastException'的第一次機會異常
附加信息：從字符串「輸入」轉換爲類型'整數'不是有效。
如果對於這個異常的處理程序，該程序可以安全地繼續。）
公共類Form1中私人小組Input_Click（發送者爲對象，例如作爲EventArgs的）把手Input.Click 暗淡了作爲的DialogResult = MSGBOX （「Click something。」，「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將是首選。

來源

2013-05-29 Meraj99

在這裏你去交配。

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-29 12:59:11 Moondustt

不，同樣的錯誤。 – Meraj99

行動，對不起，我編輯了這篇文章。改變它，然後再試一次。 – Moondustt

：D工作！奇怪你必須使用MessageBox.Show。 MsgBox曾經爲我工作。 – Meraj99

如何使用Select Case爲MessageBox輸入提供輸出？

回答

相關問題