Okay. This is so very basic but I am having an issue getting help on this matter. I am making a program that shows member’s names and phone numbers and allows the user to update the information. When the program loads the names are listed. When the user highlights the names the name and phone number are shown in separate text boxes below the listbox. I can’t seem to write the code that searches the name highlighted and places the correct phone number with it.
Here is what I have so far:
Structure List
Dim name As String
Dim phone As String
End Structure
Dim memberList(7) As List
Private Sub Unit06_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim temp As List
Dim sr As IO.StreamReader = IO.File.OpenText(“MEMBERPHONES.TXT”)
‘place member information into array memberList
For i As Integer = 0 To 7
memberList(i).name = sr.ReadLine
memberList(i).phone = sr.ReadLine
Next
‘bubble sort on member’s name
For i As Integer = 1 To 7
For j As Integer = 1 To 8 – i
If memberList(j – 1).name > memberList(j).name Then
temp = memberList(j – 1)
memberList(j – 1) = memberList(j)
memberList(j) = temp
End If
Next
Next
‘display member list in list box
lstMembers.Items.Clear()
For j As Integer = 0 To 7
lstMembers.Items.Add(memberList(j).name)
Next
sr.Close()
End Sub
Private Sub lstMembers_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstMembers.SelectedIndexChanged
Dim list() As String
Dim name As String
name = txtName.Text.Trim().ToUpper
Dim sr As IO.StreamReader = IO.File.OpenText(“MEMBERPHONES.TXT”)
Do While sr.Peek() <> -1
If name = list(0).ToUpper Then
‘this is where I want mtxtphone to add the number???
End If
Loop
sr.Close()
txtName.Text = lstMembers.Text
End Sub
I know this is basic. Thank you for the help!
