Paso 9: El código: abrir
después de la operación de guardar añadir lo siguiente:
Privada Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) maneja OpenToolStripMenuItem.Click
OpenFileDialog1.Filter = "data|*.txt|all|*. *" ' muestra sólo archivos .txt
OpenFileDialog1.ShowDialog() ' muestra opendialog
p = OpenFileDialog1.FileName
c = 0 ' reiniciar el contador a 0 c
Dim s como nuevo System.IO.StreamReader(p)
Hasta s.EndOfStream
fila = s.ReadLine
Para l = 0 a 7
GF (l, c) = fila. Split(",")(l)
Siguiente
c += 1
Lazo
s.Close() ' cierra opendialog
ListBox1.Items.Clear()
ad()
sort()
End Sub
