如何使用visual basic 2010 express中的組合框更改msgbox上的按鈕？

我想顯示一個msgbox，其中包含由組合框提供的信息。具體來說，如果組合框包含「警告」，我希望msgbox顯示警告圖標。如何使用visual basic 2010 express中的組合框更改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

希望我的問題是清楚的。

來源

2016-11-10 Lucas7yoshi

你應該用vb而不是vbscript來標記你的問題。並編輯：標記您的代碼並點擊'{}' – LotPings

爲什麼沒有工作？什麼是ComboOutput聲明？ MessageBox.Show代碼在哪裏？ – LarsTech

'Dim ComboOutput as MessageBoxIcon' then'ComboOutput = MessageBoxIcon.Warning' inside your if statement？ –

以下內容應該有效：

我們加載了表單加載的所有枚舉值。然後點擊我們解析名稱並顯示消息框。

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

來源

2016-11-11 00:52:20 FloatingKiwi

如何使用visual basic 2010 express中的組合框更改msgbox上的按鈕？

回答

相關問題