[dominion_vortar]

Hi guys!

I have a form which allows me to search through a binary file for a record, but it takes a while, so I want to use a progress bar so the user knows the program is working!

My search code is as follows

  filename1 = "F:\Program\CustomersFile.bin"
		Dim RecordNumber As Integer
		Dim found As Boolean
		Dim searchcustid As String

		searchcustid = txtSearchCustID.Text
		found = False



		FileOpen(1, filename1, OpenMode.Random, , , Len(OneCustomer))

		Do While (Not EOF(1)) And (found = False)

			RecordNumber = RecordNumber + 1
			' FileGet(1, filename, RecordNumber)'error in book should be like below!!!!
			FileGet(1, OneCustomer, RecordNumber)
			If OneCustomer.CustID = searchcustid Then
				found = True
			End If
		Loop

		If found Then
			Call DisplayOneCustomer(OneCustomer)
			'FileClose(1)
		Else
			MsgBox("Customer ID CANNOT BE FOUND!!", MsgBoxStyle.Critical)

		End If
		FileClose(1)

I have no experience with progress bars at all. I've looked at a few examples, but struggle to link it with my search code, please could someone advise me on how I would go about this? It would be much appreciated

Thanks very much.

[Jack Eagles1]

Hmm. You can use Progressbar1.Value += 1 to add more progress to a progressbar. The only problem would be trying to find an appropriette time to do it. Especially if you're using a backgroundworker.

[billyboy630]

Couple of ways I do it,
1 if i have several steps my program is going through
i wil do something like
progressbar1. value = 10
progressbar1.value = 20
etc... create intervals after each step program goes through till you get to 100
then progressbar1.visible = false when done

2 you can guesstimate the time your program takes and put the progressbar with a timer, so its showing it might not be in perfect sync but it will give user the appearence something is happening

I am still new and these might be the "BEST way" but they work for me especially the first one

But like Jack said finding the time to start and end and increase value might be a challenge with your code
Make the progressbar visible as soon as you want the user to see it then think through the steps your code does and try and put a value increase as it goes through those steps

[motcom]

Hi,

You can set the Progress bar's Style to "Marquee" if you have "Visual Styles" enabled in Win Xp or you can set it to "Continuous" when "Visual Styles" is not enabled. This is great if you do not know how many items are being searched (maximum number)

So how to use it...

Option 1

Add the Progress bar and make sure the Style Property is set to "Blocks".

When you start searching the file you set the Style Property to "Marquee"

When you have finished searching set the Style Property back to "Blocks"

   ProgressBar1.Style = ProgressBarStyle.Marquee
   'start searching your file here


   'You might need to add this to your code (loop)
   'Application.DoEvents()

   'when finished set it to blocks
   ProgressBar1.Style = ProgressBarStyle.Blocks

Option 2

Add the Progress bar and set the Style Property to "Marquee".

Make the Progess bar invisible

When you start searching the file make the Progess bar visible

When you have finished searching make the Progess bar in-visible.

   ProgressBar1.Visible = True
   'start searching your file here


   'You might need to add this to your code (loop)
   'Application.DoEvents()

   'when finished set it to blocks
   ProgressBar1.Visible = False

Bear in mind that with some operations, the progress bar seems to hang. Thus you would use a background worker, but thats a bit more advanced.

[Jack Eagles1]

Why was I so thick that I didn't think of marquee before? lol.

[motcom]

hehe, it took me quite a while to figure that one out, but that was way back....

[dominion_vortar]

Thanks very much for all your responses, I appreciate them. Will try to implement the ideas into my code tonight, and report back!

Thanks again