Adresboek: Valentijnsdag speciale (9 / 11 stap)

Stap 9: De Code: openen

na het opslaan code toevoegen de volgende handelingen uit:

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt OpenToolStripMenuItem.Click
OpenFileDialog1.Filter = "data|*.txt|all|*. *" ' toont alleen .txt bestanden

OpenFileDialog1.ShowDialog() ' toont opendialog

p = OpenFileDialog1.FileName

c = 0 ' reset van de teller op 0 c

Dim s As New System.IO.StreamReader(p)

Do Until s.EndOfStream

rij = s.ReadLine

Voor l = 0 tot en met 7

GF (l, c) = rij. Split(",")(l)

Volgende

c += 1

Loop

s.Close() ' opendialog sluit

ListBox1.Items.Clear()

AD()

Sort()

End Sub