Question

我正在为我的Visual Basic类开发一个项目，需要在正确的方向上轻推。我不打算完全考虑到程序应该做什么，因为我还没到那时。我现在坚持的步骤就是这个。

我们应该有两个列表框，一个用于Ingredients（我已经命名为lstIngredients），第二个用于Recipe（lstRecipe），我们也应该有一个标记为Quantity的文本框，供用户输入许多选定项目要添加到“配方”列表中。例如，如果用户选择“鸡蛋”并输入3作为数量，“鸡蛋”应在配方列表框中出现3次。此外，如果未在数量框中输入任何内容，则默认情况下应将所选项目中的一个添加到“配方”列表框中。

使用我编写的代码，只要我在数量文本框中输入内容，我就可以将项目添加到配方列表中，但是当文本框中没有输入任何内容时，我无法让程序添加一个。这是我到目前为止的代码。

   Public Class Form1

    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim i As Integer = lstIngredients.SelectedIndex
        If txtQuantity.text= "" Then
            lstRecipe.Items.Add(1)
        End If
        Dim intCount As Integer = 0
        While intCount < txtQuantity.Text
            lstRecipe.Items.Add(lstIngredients.Items(i))
            intCount += 1
        End While
    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        lstRecipe.Items.Clear()
        txtQuantity.Clear()
    End Sub

非常感谢您对此步骤的任何帮助。我确信随着编码的进一步深入，我可能会有更多的问题，但是我会编辑这个问题，以便在时机成熟时加入这些问题。

Answer 1

首先，您需要将Quantity文本框中的值转换为整数。为此，您可以使用Integer.Parse或Integer.TryParse。例如：

Dim value As Integer = Integer.Parse(Quantity.Text)

然后你可以使用For循环多次添加相同的项目，例如：

For x As Integer = 1 to value
    lstRecipe.Items.Add(lstIngredients.Items(i))
Next

在Visual Basic中将默认数量的项添加到列表框

1 个答案: