如何在Visual Basic 2010 Express中使用組合框更改msgbox上的按鈕？

Question

我想顯示一個包含組合框提供的信息的msgbox 。 具體來說，如果組合框包含“警告”，則希望msgbox顯示警告圖標。

基本上，我需要知道如何將組合框的輸入放入msgbox，而不必使其具有MsgBoxStyle.Critical或類似的東西。

我認為可行：

Private Sub Button1_Click(ByVal sender As system.object, ByVal e As System.EventArgs) Handles Button1.Click

If ComboBox1.SelectedItem = "Warning" Then
   ComboOutput = Msgboxstyle.critical

希望我的問題很清楚。

Answer 1

以下應該工作：

我們在表單加載時加載所有枚舉值。 然后單擊，我們解析名稱並顯示消息框。

Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ComboBox1.DataSource = [Enum].GetNames(GetType(MessageBoxIcon))
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim value = [Enum].Parse(GetType(MessageBoxIcon), CStr(ComboBox1.SelectedItem))
    MessageBox.Show("Text", "Caption", MessageBoxButtons.OK, CType(value, MessageBoxIcon))
End Sub