Blog

How to show text files records in a listview

By Satyapriya Nayak Blogs | Visual Basic .NET Jan 10, 2012
In this blog we will know how to show text files records in a listview.
Download Files: listview1.rar

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

 

 

 

COMMENT USING