Question

如何基于MessageBox输入提供输出？

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

例如：点击中止后，我想显示一个文本为“已中止”的MessageBox。
单击“重试”时，我想显示一个带有“Retried”文本的MessageBox 单击忽略时，我想显示一个文本为“忽略”的MessageBox。

我的尝试是:(我收到错误：Microsoft.VisualBasic.dll中出现'System.InvalidCastException'类型的第一次机会异常。
附加信息：从字符串“Input”转换为“Integer”类型无效。
如果存在此异常的处理程序，则可以安全地继续该程序。）
公共类Form1 Private Sub Input_Click（sender As Object，e As EventArgs）处理Input.Click Dim a As DialogResult = MsgBox（“Click anything。”，“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：首选使用精选案例。

Answer 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

如何使用Select Case根据MessageBox输入提供输出？

1 个答案: