In this blog we will know how to show text files records in
a listview.
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim Id As String
Dim Name
As String
Dim
Gender As String
Dim
Address As String
Try
Dim
sr As StreamReader
Dim
fs As FileStream
fs = New
FileStream(("C:\temp\a.txt"),
FileMode.OpenOrCreate)
sr = New
StreamReader(fs)
Dim
itm As Object
itm = sr.ReadLine
While
Not itm = Nothing
Dim
split As String()
= itm.Split(New [Char]() {" "})
Id = split(0)
Name = split(1)
Gender = split(2)
Address = split(3)
ListView1.Items.Add(Id)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Name)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Gender)
ListView1.Items(ListView1.Items.Count
- 1).SubItems.Add(Address)
itm = sr.ReadLine
End
While
sr.Close()
fs.Close()
ListView1.Columns.Add("Id", 70, HorizontalAlignment.Center)
ListView1.Columns.Add("Name", 70, HorizontalAlignment.Center)
ListView1.Columns.Add("Gender", 70,
HorizontalAlignment.Center)
ListView1.Columns.Add("Address", 70,
HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.BackColor = Color.Aqua
ListView1.ForeColor = Color.Blue
Catch
ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message, "Load Tool Data Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
End Class