Question

我正在尝试更新一个案例，当我创建一个新的组合框项目时，我找不到这样做的方法，因为我创建了一个Select Case并且我只控制我程序中的项目

我已经创建了一个StripMenu，当我点击这个项目时，它将这个“对象”放在我的Combobox上，但是后来我要用它，我不知道这样做的方法......

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

感谢。

编辑******

我已将Select Case包含在内，以帮助您了解我的问题......现在，在您的帮助下，我只能创建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)

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

2 个答案: