Untuk membaca data dari suatu file Notepad (.txt) kita perlu untuk menggunakan Looping (pengulangan) dalam membaca tiap baris yang ada dalam file tersebut. Berikut contohnya:
Berikut Code lengkapnya:
Imports System.IO
Public Class frmReadData2End
Private Sub btnReadData_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnReadData.Click
Dim sr As StreamReader
sr = File.OpenText("MyData.txt")
lstData.Items.Clear()
Do While sr.Peek <> -1
lstData.Items.Add(sr.ReadLine)
Loop
sr.Close()
End Sub
End Class
