.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Post New Resource Bookmark and Share   

How to show text files records in a listview

Posted By:satyapriyanayak       Posted Date: August 30, 2013    Points: 40    Category:    URL: http://www.dotnetspark.com  

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


     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend