dkusske

dkusske

  • NA
  • 7
  • 0

Need Help with list boxes and general

Feb 27 2004 6:13 PM
Hello everybody, Im new here as of now. I just registered to get some help from you guys. I'm building this program that has a combo box and list box. In the combobox i have a list of items and their prices and when the item is selected from the dropdown the item is then copied over into the listbox. In the list box i have the items appearing and when i double click i want to get rid of the item. And when I single click i want to get a picture to show up. When the user has all of the items in the listbox and ready to purchase, the user then clicks on the calculate button and i want to get the total price of the items. I want to know how i can make this happen. So far i have this code. Private Sub Warehouse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtUsername.SelectionStart = 0 txtPassword.SelectionStart = 0 Dim subtotal As Single Dim total As Single Dim gsttax As Single Dim pst As Single Dim grandtotal As Single With cboproducts.Items .Add("1000" & "World Industries Skateboarding" & vbTab & "$95") .Add("1002" & "Hollywood Skateboarding" & vbTab & "$90") .Add("1004" & "Birdhouse Skateboarding" & vbTab & "$100") .Add("1006" & "Status Skateboarding" & vbTab & "$60") .Add("1008" & "Element Skateboarding" & vbTab & "$105") .Add("1010" & "Foundation Skateboarding" & vbTab & "$85") .Add("1012" & "Black Label Skateboarding" & vbTab & "$80") .Add("1014" & "Chocolate Skateboarding" & vbTab & "$110") End With End Sub Private Sub cboproducts_SelectedIndexchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboproducts.SelectedIndexChanged lstProducts.Items.Add(cboproducts.Text) 'cboproducts.Focus() End Sub Private Sub chkOntario_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOntario.CheckedChanged Dim gsttax As Single If chkOntario.Checked = True Then gsttax = 1.08 Else gsttax = 1.0 End If End Sub Private Sub rboStandard_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rboStandard.CheckedChanged Dim choice As Integer Dim subtotal As Single If rboStandard.Checked = True Then subtotal = subtotal * 1.0 ElseIf rboDeluxe.Checked = True Then subtotal = subtotal * 1.2 Else : rboPremium.Checked = True subtotal = subtotal * 1.4 End If End Sub Private Sub txtUsername_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) ToolTip1.SetToolTip(txtUsername, "Enter your User Name") End Sub Private Sub txtPassword_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) ToolTip2.SetToolTip(txtPassword, "Enter your Password") End Sub Private Sub lstproducts_Selectionmode(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstProducts.SelectedIndexChanged Dim TabPos As Integer Dim TheItem As String TheItem = lstProducts.Text 'store the selected item 'find the position of vbTab in the clicked item TabPos = InStr(TheItem, vbTab) If Len(ItemsBot) = 0 Then 'first item, extract the item name ItemsBot = Microsoft.VisualBasic.Mid(TheItem, TabPos - 1) Else 'not the first item, add a comma, a CrLf 'and concatenate the new item ItemsBot = ItemsBot & ", " & vbCrLf & _ Microsoft.VisualBasic.Mid(TheItem, TabPos - 1) End If 'add the purchase price to total Total = Total + CSng(Val(Mid(TheItem, TabPos + 1))) End Sub Private Sub btnCalculate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalculate.Click If Len(ItemsBot) = 0 Then MsgBox("You have not selected any item yet.") Else MsgBox("You have purchased" & vbCrLf & ItemsBot & "." & vbCrLf _ & "The total is " & Format(Total, "Currency") & ".") ItemsBot = "" Total = 0 End If End Sub End Class

Answers (6)