We help IT Professionals succeed at work.
Get Started

Add Progress bar to my Winform (VB.NET 2003)

1,064 Views
Last Modified: 2012-05-10
Hi Experts,

I have a simple Winform with a Listbox & RichTextBox. The Listbox loads RTF files from DIR into Listbox names... If I click on ListboxItem... it loads contents of that file into the RichTextBox.

Because the RFT files are located on a server, some of the files are 11mb.... & this takes time to streamread it into the RichTextBox... I would like to know how to add a progress bar to show loading progress.

Thanks,
Rob
Option Explicit On 
Imports System.IO
Imports System.Threading
Imports System.Diagnostics

Public Class Form1
    Inherits System.Windows.Forms.Form

Dim aDate As Date
Dim dateString As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LoadFiles()
        Try
            ' folder exists
            Dim path As String
            Dim di As System.IO.DirectoryInfo

            path = "\\server\share\folderA\"
            di = New System.IO.DirectoryInfo(path)

            If (Not di.Exists) Then
                di.Create()
            End If
        Catch ex As Exception
            MsgBox("Error code 22: The Dir doesn't exist!")
        End Try
        Label3.Text = ListBox1.Items.Count.ToString()
    End Sub

    Private Sub LoadFiles()
        Try
            Dim sourceFolder As String = "\\server\share\folderA\"
            ListBox1.BeginUpdate()
            ListBox1.Items.Clear()
            ListBox1.Items.AddRange((New System.IO.DirectoryInfo(sourceFolder)).GetFiles("*.rtf"))
            ListBox1.EndUpdate()
        Catch ex As Exception
            MsgBox("Error!")
        End Try

    End Sub

Private Sub LoadFiles()
        Try
            Dim sourceFolder As String = "\\server\share\folderA\"
            ListBox1.BeginUpdate()
            ListBox1.Items.Clear()
            ListBox1.Items.AddRange((New System.IO.DirectoryInfo(sourceFolder)).GetFiles("*.rtf"))
            ListBox1.EndUpdate()
        Catch ex As Exception
            MsgBox("Error code 45: The repository is empty!")
        End Try

    End Sub

 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        
	dateString = aDate.Now.ToString("ddMMyyyy")
        Try
            If Not (ListBox1.SelectedItem Is Nothing) Then
                RichTextBox1.Rtf = CType(ListBox1.SelectedItem, System.IO.FileInfo).OpenText.ReadToEnd
            End If
            
            Dim filename As String = IO.Path.GetFileNameWithoutExtension(ListBox1.Text)
            Label1.Text = filename

        Catch ex As Exception
            MsgBox("Error!")
        End Try
     End Sub

Open in new window

Comment
Watch Question
Top Expert 2010
Commented:
This problem has been solved!
Unlock 1 Answer and 8 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE