0

你如何根据 MessageBox 输入给出输出？

IE。我有一个应用程序，它在按钮单击时显示一个 MessageBox。MessageBox 有按钮 Abort、Retry 和 Ignore。
我想在单击每个按钮时做到这一点，我想显示一个带有不同文本的 MessageBox。

例如：单击 Abort 时，我想显示一个带有“Aborted”文本的 MessageBox。
单击重试时，我想显示一个带有文本“重试”的消息框。
单击忽略时，我想显示一个带有文本“已忽略”的消息框。

我的尝试是：（我收到一个错误：Microsoft.VisualBasic.dll 中出现“System.InvalidCastException”类型的第一次机会异常。
附加信息：从字符串“Input”到“Integer”类型的转换无效。
如果有此异常的处理程序，程序可以安全地继续。）
Public Class Form1 Private Sub Input_Click(sender As Object, e As EventArgs) Handles Input.Click Dim a As DialogResult = MsgBox("Click any.", "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 回答