I cannot figure out what I am doing wrong here. I cannot figure out how to display the price of a stucture variable in a label box when you change the item in a list box? I have it displaying the first price in the structure array but I think it may just be displaying the length of my array? Any help would be appreciated!
Here is my code:
Option Explicit On
Option Strict On
Public Class MainForm
Structure Product
Public itemNum As String
Public price As Decimal
End Structure
Private Sub xExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xExitButton.Click
Me.Close()
End Sub
Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim products(4) As Product
products(0).itemNum = "12AVX"
products(0).price = 5D
products(1).itemNum = "23ABC"
products(1).price = 8.97D
products(2).itemNum = "23TWT"
products(2).price = 4.69D
products(3).itemNum = "34ZAB"
products(3).price = 12.5D
products(4).itemNum = "91BAN"
products(4).price = 34.67D
Me.xNumbersListBox.Items.Add(products(0).itemNum.ToString)
Me.xNumbersListBox.Items.Add(products(1).itemNum.ToString)
Me.xNumbersListBox.Items.Add(products(2).itemNum.ToString)
Me.xNumbersListBox.Items.Add(products(3).itemNum.ToString)
Me.xNumbersListBox.Items.Add(products(4).itemNum.ToString)
End Sub
Private Sub xNumbersListBox_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles xNumbersListBox.SelectedValueChanged
Dim products(4) As Product
products(0).itemNum = "12AVX"
products(0).price = 5D
products(1).itemNum = "23ABC"
products(1).price = 8.97D
products(2).itemNum = "23TWT"
products(2).price = 4.69D
products(3).itemNum = "34ZAB"
products(3).price = 12.5D
products(4).itemNum = "91BAN"
products(4).price = 34.67D
Dim subscript As Integer
Dim searchFor As String
searchFor = CStr(Me.xNumbersListBox.SelectedItem)
Do Until subscript = products.Length OrElse searchFor Is Me.xNumbersListBox.SelectedItem
subscript = subscript + 1
Loop
If subscript < products.Length Then
Me.xPriceLabel.Text = products(subscript).price.ToString("C2")
End If
End Sub
End Class
thank you anyone for some help!
