Writing to files in visual basic

Hi :) I'm creating a programme that saves lists of ingredients to text files and then opens them again so they can be edited via the programme but I'm having trouble saving the files. Below is my code. I have two forms. The bit of code that I'm stuck on, is in bold, underlined and bigger than the rest so you should see it easily. I want to save all of the ingredients to a file so that I can retrieve them at a later date. Attached is the programme itself if you wish to see view it in runtime.
recipe.zip

THIS IS THE SECOND FORM (for displaying data)......

ublic Class frmdisplaydata
Dim index As Integer
Public Sub displayplayer(ByVal index As Integer)
With players(index)
lblplayer.Text = .playername
lblteam.Text = .teamname
lblgames.Text = .games
lblgoals.Text = .goals

End With
End Sub
Private Sub frmdisplaydata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim index As Integer
btnprevious.Enabled = False
If numberofplayers = 0 Then
btnnext.Enabled = False
Call displayplayer(0)
Else
btnnext.Enabled = True
Call displayplayer(0)
End If
For index = 0 To numberofplayers - 1
ComboBox1.Items.Add(players(index).playername)

Next index

End Sub

Private Sub btnprevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprevious.Click
index = index - 1
Call displayplayer(index)

End Sub

Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click
index = index + 1
Call displayplayer(index)
btnprevious.Enabled = True
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim recordnumber As Integer
recordnumber = ComboBox1.SelectedIndex
Call displayplayer(recordnumber)

End Sub

Private Sub GroupBox1_Enter(sender As System.Object, e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "text|*.txt"
saveFileDialog1.Title = "Save an Image File"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Dim fs As System.IO.FileStream = CType _
(saveFileDialog1.OpenFile(), System.IO.FileStream)


THIS IS THE FIRST FORM (for adding data)

Public Class Form1
Dim index As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btnaddrecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddrecord.Click
players(index).playername = txtplayer.Text
players(index).teamname = cboteams.Text
players(index).games = txtgames.Text
players(index).goals = txtgoals.Text
numberofplayers = numberofplayers + 1
index = index + 1
txtplayer.Text = ""
cboteams.Text = ""
txtgames.Text = ""
txtgoals.Text = ""
txtplayer.Focus()


End Sub

Private Sub btndisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndisplay.Click
Dim secondform As New frmdisplaydata
secondform.Show()

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Dim filename As String

End Sub
End Class



Hope you can help :) xx

Attached Files

• recipe.zip (79.6 KB)