Étape 9: Le Code : ouvrir
après la sauvegarde code ajouter ce qui suit :
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
OpenFileDialog1.Filter = "data|*.txt|all|*. * « ' montre uniquement les fichiers txt.
OpenFileDialog1.ShowDialog () ' affiche opendialog
p = OpenFileDialog1.FileName
c = 0 ' réinitialiser le compteur à 0 c
Dim s As New System.IO.StreamReader(p)
Jusqu'à s.EndOfStream
ligne = s.ReadLine
Pour l = 0 à 7
GF (l, c) = row. Split(",")(l)
Prochaine
c += 1
Boucle
s.Close() ' ferme opendialog
ListBox1.Items.Clear()
AD()
sort()
End Sub