Progress Bar Implementation

maria90 · Apr 25th 2016

Dear Experts

My customer list contains geo coordinates which are retrieved with a custom function.
Occasionally, there are some errors: missing values, error messages etc. For this, I have created a userform which contains a list of all customers whose GPS data need to be 'fixed'. That is: connect to Google server and retrieve lat/lng again.

As the progress can take up to 5 seconds per query, I thought it would be nice if I could display a progress bar somewhere on the screen. Users will thank me for this if there are hundreds of customers whose data needs to be updated.

This code retrieves the data from the listbox and with a query, retrieves the coordinates from the Google servers:

Code

Dim bCheck As Boolean




Dim i As Integer
For i = 0 To lstCustomers.ListCount - 1
    If lstCustomers.Selected(i) Then
        bCheck = SetGeoData(lstCustomers.List(i)) 'true = data was updated / false = there was an error retrieving the coordinates
    End If
Next i
      
lstCustomers.Clear
Call getcustomers

Display More

How would you integrate a progress bar which progresses whenever the new coordinates have been saved? (bChecked = true)

Thanks for your help

Maria

**pike** · Apr 26th 2016

Re: Progress Bar Implementation

Hi maria90
Progress bar's are never really accurate
possibly
where lstCustomers.ListCount - 1 = 100% of the bar
and each loop of i to increment the bar

Code

For i = 0 To lstCustomers.ListCount - 1

Grimes0332 · Apr 26th 2016

Re: Progress Bar Implementation

Very simple example using a frame and 2 labels attached (Just so there's no incompatibility issues using the Progress bar in MSCOMCTL.OCX). Displayed when you click the button to Retrieve. You need to edit a few lines to tst.

Code

Private Sub cmdFix_Click()
   Dim bCheck           As Boolean
   Dim i                As Integer


   ShowProgress True


   ' Remove next line - used to test in isolation
   For i = 1 To 45: lstCustomers.AddItem "Item " & i: Next


   For i = 0 To lstCustomers.ListCount - 1


      IncProgress i


      If lstCustomers.Selected(i) Then
         ' Uncomment - Comment added to test
         'bCheck = SetGeoData(lstCustomers.List(i)) 'true = data was updated / false = there was an error retrieving the coordinates
      End If
   Next i

Display More

Progress Bar Implementation

Participate now!

Share