Listbox is selected the name and corresponding phone number should be should

[hennas]

Basically i want to design a membership Name and Telephone List form using the following command buttons.

Edit
Add New;
Update;
Delete;
Cancel;
Save;
Clear, and
Exit

The names and phone numbers of members are stored in a sequential text file called MEMBERS.TXT which i have created.

When the program is loaded, names and telephone numbers should be read from the file and stored in an array or arrays in memory and then, from memory, the names and telephone numbers are displayed in alphabetical names sequence in a list box.


I used two textboxs to hold the Name and the other to hold the Number

When a name in the listbox is selected (clicked) the name and corresponding phone number should be should be displayed in the textboxes but i cant manage to do this.

To change any fields, the user first uses the Edit button to enable the textboxes to be changed.

The user makes the amendments to the textboxes and uses the update button to effect the change in memory. I need your help on this too.

To delete an item, Delete is used. But i dont know how to do this using sequantial Files. Thanks for your help.

Code sofar

Public Class MembersForm

Private Sub ExitButton_Clic k(ByVal sender As Object, ByVal e As System.EventArg s) Handles ExitButton.Clic k
Close()
End Sub

Private Sub MembersForm_Loa d(ByVal sender As Object, ByVal e As System.EventArg s) Handles Me.Load

Dim intButton As Integer, objStreamWriter As System.IO.Strea mWriter

'display the form immediately
Me.Show()
'determine if the user wants to create a new file
intButton = MessageBox.Show ("Create new File?", "Members Phone List", _
MessageBoxButto ns.YesNo, MessageBoxIcon. Exclamation, MessageBoxDefau ltButton.Button 2)
'create new sequential acces file, if necessary
If intButton = Windows.Forms.D ialogResult.Yes Then
objStreamWriter = System.IO.File. CreateText("Mem bers.txt")
objStreamWriter .Close()
Else
objStreamWriter = System.IO.File. AppendText("Mem bers.txt")
objStreamWriter .Close()
End If

Dim strMembers As String, objStreamReader As System.IO.Strea mReader
'load members to listbox
If System.IO.File. Exists("Members .txt") = True Then
objStreamReader = System.IO.File. OpenText("Membe rs.txt")
Do While objStreamReader .Peek <> -1
strMembers = objStreamReader .ReadLine()
Me.MembersListB ox.Items.Add(st rMembers)
Loop
objStreamReader .Close()
Else
MessageBox.Show ("File does not exits.", "Members Phone List", _
MessageBoxButto ns.OK, MessageBoxIcon. Information)

End If
End Sub

Private Sub AddButton_Click (ByVal sender As Object, ByVal e As System.EventArg s) Handles AddButton.Click

Dim objStreamWriter As System.IO.Strea mWriter
objStreamWriter = System.IO.File. AppendText("Mem bers.txt")

objStreamWriter .Write(Me.NameT extBox.Text.Pad Right(30))
'objStreamWrite r.Write(Space(5 ))
objStreamWriter .WriteLine(Me.N umberTextBox.Te xt.PadRight(10) )
'objStreamWrite r.WriteLine()
objStreamWriter .Close()

Me.NameTextBox. Text = ""
Me.NumberTextBo x.Text = ""
Me.NameTextBox. Focus()

End Sub

Private Sub UpdateButton_Cl ick(ByVal sender As Object, ByVal e As System.EventArg s) Handles UpdateButton.Cl ick
Dim strMembers As String, objStreamReader As System.IO.Strea mReader
'update members to memberslistbox
If System.IO.File. Exists("Members .txt") = True Then
objStreamReader = System.IO.File. OpenText("Membe rs.txt")
Me.MembersListB ox.Items.Clear( )
Do While objStreamReader .Peek <> -1
strMembers = objStreamReader .ReadLine()
Me.MembersListB ox.Items.Add(st rMembers)
Loop
objStreamReader .Close()
Me.MembersListB ox.SelectedInde x = 0

End If
End Sub

Private Sub SaveButton_Clic k(ByVal sender As Object, ByVal e As System.EventArg s) Handles SaveButton.Clic k
Dim objStreamWriter As System.IO.Strea mWriter
objStreamWriter = System.IO.File. AppendText("Mem bers.txt")

objStreamWriter .Write(Me.NameT extBox.Text.Pad Right(30))
objStreamWriter .Write(Space(5) )
objStreamWriter .Write(Me.Numbe rTextBox.Text.P adLeft(10))
objStreamWriter .WriteLine()
objStreamWriter .Close()

Me.NameTextBox. Text = ""
Me.NumberTextBo x.Text = ""
Me.NameTextBox. Focus()
End Sub

Private Sub MembersListBox_ Click(ByVal sender As Object, ByVal e As System.EventArg s) Handles MembersListBox. Click

Me.NameTextBox. Text = MembersListBox. SelectedItem()

End Sub

End Class