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)......
THIS IS THE FIRST FORM (for adding data)
Hope you can help :) xx
recipe.zip
THIS IS THE SECOND FORM (for displaying data)......
Code:
Public 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)
Code:
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 ClassHope you can help :) xx