更新选择案件与新的组合框项目

我想更新案件，当我创建一个新的组合框项目时，我没有找到办法做到这一点，因为我创建了一个选择案例，我只控制最初在我的程序上的项目。更新选择案件与新的组合框项目

我已经创建了一个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

感谢。

我已经包含了选择案例，以帮助您了解我的问题......现在，在您的帮助，我只能创造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

来源

2014-11-20 Palim321

不明白你的问题，显然，具体是你想要的？ – HaveNoDisplayName 2014-11-20 20:10:00

按照我的想法，你想要处理选择的索引不在你的Case语句中的情况 – HaveNoDisplayName 2014-11-20 20:15:09

也许你必须调用combobox.selectedItem，因为你添加了一个字符串，如组合框项。 – Harval 2014-11-20 20:17:15

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

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

来源

2014-11-20 20:16:38

那么为什么你不完全删除Select Case？ – Steve 2014-11-20 20:23:11

如何控制组合框项？ – Palim321 2014-11-20 20:27:10

@Steve好点，但现在没有迹象表明这些值与案例中的字符串相匹配。 – 2014-11-20 20:38:43

而不是SelectedIndex可以直接得到SelectedValue。

Moneda = CStr(cbMoneda.SelectedValue)

来源

2014-11-20 20:33:58

更新选择案件与新的组合框项目

回答

相关问题