Blog

How to show text files records in a listview

Posted 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
PREMIUM SPONSORS
MCN is your source for developing solutions involving websites, mobile apps, cloud-computing, databases, BI, back-end services and processes and client-server applications.
SPONSORED BY
  • MCN is your source for developing solutions involving websites, mobile apps, cloud-computing, databases, BI, back-end services and processes and client-server applications.
Employers - Post Free Jobs