使用新的组合框项目更新选择案例

Question

当我创建新的组合框项目时，我正在尝试更新一个案例，但我找不到这样做的方法，因为我创建了一个选择案例，我只控制最初在我的程序上的项目。

我创建了一个 StripMenu，当我单击此项目时，它会将这个"对象"放在我的组合框上，但随后我必须使用它，我不知道该怎么做......

Private Sub MonedaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MonedaToolStripMenuItem.Click
    Dim NovaMoneda As Object
    NovaMoneda = InputBox("Nueva moneda")
    cbMoneda.Items.Add(NovaMoneda)
End Sub

我像这样选择了案例，问题是它识别新对象......

Select Case (cbMoneda.SelectedIndex)
        Case 0
            Moneda = "Dolars"
        Case 1
            Moneda = "Yenes"
        Case 2
            Moneda = "Lliures"
        Case 3
            Moneda = "Dragmes"
    End Select

谢谢。

编辑******

我

包括了选择案例来帮助您了解我的问题......现在在您的帮助下，我只能再创建 1 种货币......

Private Sub btIgual_Click(sender As Object, e As EventArgs) Handles btIgual.Click
    Dim MonedaEscollida As String
    MonedaEscollida = QuinaMonedaVol(MonedaEscollida)
    Select Case MonedaEscollida
        Case "Dolars"
            If Dolar = 0 Then
                tbNumeros.Text = CType(tbNumeros.Text, Double) * PreguntaValorEuros()
            Else
                tbNumeros.Text = tbNumeros.Text * Dolar
            End If
        Case "Yenes"
            If Yen = 0 Then
                tbNumeros.Text = CType(tbNumeros.Text, Double) * PreguntaValorEuros()
            Else
                tbNumeros.Text = tbNumeros.Text * Yen
            End If
        Case "Lliures"
            If Libra = 0 Then
                tbNumeros.Text = CType(tbNumeros.Text, Double) * PreguntaValorEuros()
            Else
                tbNumeros.Text = tbNumeros.Text * Libra
            End If
        Case "Dragmes"
            If Dragma = 0 Then
                tbNumeros.Text = CType(tbNumeros.Text, Double) * PreguntaValorEuros()
            Else
                tbNumeros.Text = tbNumeros.Text * Dragma
            End If
        Case Else
            If ValorIntroduit = 0 Then
                tbNumeros.Text = CType(tbNumeros.Text, Double) * PreguntaValorEuros()
            Else
                tbNumeros.Text = tbNumeros.Text * ValorIntroduit
            End If
    End Select
End Sub

Answer 1

您可以动态获取运行时生成的项的值。像这样的东西可能会抓取动态生成的项目的名称。

Select Case (cbMoneda.SelectedIndex)
    Case 0
        Moneda = "Dolars"
    Case 1
        Moneda = "Yenes"
    Case 2
        Moneda = "Lliures"
    Case 3
        Moneda = "Dragmes"
    Case Else
        Moneda = cbMoneda.Items(cbMoneda.SelectedIndex).Value.ToString()
End Select

Answer 2

而不是SelectedIndex可以直接获取SelectedValue。

Moneda = CStr(cbMoneda.SelectedValue)