如何在vb.net中同时将许多选定的项目从复选框添加到列表框

Question

I want to be able to add many selected items from a checkbox to a listbox at the same time. This is a sample of the code

If CheckBox1.Checked Then
choice = "Potato soup"
quantity = Val(txtapp1.Text)
price = "80"
If CheckBox2.Checked Then
choice = "Mini tacos"
quantity = Val(txtapp2.Text)
price = "95"

I want to be able to add choice, quantity, and price for each checkbox to the listbox at the same time.

Answer 1

Assuming that your listbox is named ListBoxChoices, the code would be following:

If CheckBox1.Checked Then
choice = "Potato soup"
quantity = Val(txtapp1.Text)
price = "80"
ListBoxChoices.Items.Add(choice)
ListBoxChoices.Items.Add(quantity)
ListBoxChoices.Items.Add(price)
End If
If CheckBox2.Checked Then
choice = "Mini tacos"
quantity = Val(txtapp2.Text)
price = "95"
ListBoxChoices.Items.Add(choice)
ListBoxChoices.Items.Add(quantity)
ListBoxChoices.Items.Add(price)
End If