Question

我是Visual Studio的新手。我想使用列表框创建货币转换器。但是现在我被这个程序卡住了。我的列表框中有多个案例。该程序的工作方式如下：

用户在列表框“ ListboxMunteenheden”中选择一个值
程序显示一个InputBox。用户在输入框中输入一个数字
所选项目将添加到列表框“ ListBoxWisselkoersen”中，如果适用，将替换“ ListBoxWisselkoersen”中的值。

我不明白最后一点。所选项目将不会出现在ListboxWisselkoersen中，并且我也不会替换旧数据。

有人可以帮助我使用此功能吗？

Private Sub ListBoxMunteenheden_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxMunteenheden.SelectedIndexChanged

'De Cases worden aangemaakt om de verschillende Munteenheden aan ListBox Wisselkoersen toe te voegen.

   Select Case ListBoxMunteenheden.SelectedIndex

      Case 0
         'De Amerikaanse Dollar wordt toegevoegd aan ListBoxWisselkoersen
          Dim AmerikaanseDollar As Decimal
          AmerikaanseDollar = InputBox("Geef de wisselkoers >0 en <500 voor de Euro tov Amerikaanse dollars (1 Euro = .... Amerikaanse Dollar):  ")

          For i = 0 To ListBoxWisselkoersen.Items.Count - 1
              ' Er wordt gezocht in de tekst van de valuta en vervangen hem met de nieuwe waarde.
              If InStr(ListBoxWisselkoersen.Items(i), "Amerikaanse Dollar") > 0 Then
                  ListBoxWisselkoersen.Items(i) = "1 Euro =  " & AmerikaanseDollar.ToString & "  Amerikaanse Dollar"

              Else
              End If
              If AmerikaanseDollar <= 0 Or AmerikaanseDollar >= 500 Then
                   MsgBox("U dient een andere waarde op te geven, tussen de 1 en 499.", MsgBoxStyle.OkOnly)
                   'Er wordt gecontroleerd of de waarde tussen de 0 en de 500 ligt. Als de MessageBox hieraan voldoet, zal de functie uitgevoerd worden.

              End If
          Next

添加和替换数据列表框（Visual Studio 2013）

0 个答案: