Alternative To Progressbar - Xtreme Visual Basic Talk

08-24-2005, 09:12 PM

Lintz

Senior Contributor

Join Date: Mar 2003

Location: The 19th Hole

Posts: 989

Alternative To Progressbar

I'm using a picturebox as an alternative to a progressbar however when I update it it's not smooth like a progressbar. Is this just the way the picturebox works or can I "smooth" the updating?

Below is the code I'm using.

Code:

Option Explicit
Dim f As PictureBox
Dim i As Long
Private Sub Form_Load()
Me.Show

   Set f = tbFlood
   
  'initialize the control by setting:
  'white (the text colour)
  'black (the flood panel colour)
  'not Xor pen
  'solid fill
   f.Cls
   f.BackColor = &HFFFFFF
   f.ForeColor = &H800000
   f.DrawMode = 10
   f.FillStyle = 0
   

   f.ScaleWidth = 1000 'upperLimit
     
   f.Cls
   f.Visible = True
   
For i = 0 To 10000

UpdateProgress 1000, i

Next

End Sub


Public Sub UpdateProgress(upperLimit As Double, progress As Long)

Dim sProgressMessage As String

sProgressMessage = "Importing Details...."
   Dim pc As String
   
   If progress <= upperLimit Then

     If progress > tbFlood.ScaleWidth Then progress = tbFlood.ScaleWidth
         
     tbFlood.Cls
     tbFlood.ScaleWidth = upperLimit
        
    'format the progress into a percentage string to display
     pc = Format$(CLng((progress / tbFlood.ScaleWidth) * 100)) + "%"
         
     DoEvents
         
    'calculate the string's X & Y coordinates
    'in the PictureBox ... here, left justified and offset slightly
     tbFlood.CurrentX = 2
     tbFlood.CurrentY = (tbFlood.ScaleHeight - tbFlood.TextHeight(sProgressMessage)) \ 2
         
    'print the percentage string in the text colour
     DoEvents
     tbFlood.Print sProgressMessage & " " & pc
        
    'print the flood bar to the new progress length in the line colour
     tbFlood.Line (0, 0)-(progress, tbFlood.ScaleHeight), tbFlood.ForeColor, BF
     
    'without this Refresh, the progress won't update
    tbFlood.Refresh
   
  End If

End Sub

08-24-2005, 09:42 PM

OnErr0r

Obsessive OPtimizer

Administrator
* Guru *

Join Date: Jun 2002

Location: Debug Window

Posts: 13,685

Try turning AutoRedraw on and doing away with .Refresh. That should cut way down on flicker.

http://www.xtremevbtalk.com/showpost...24&postcount=3

__________________
Quis custodiet ipsos custodues.

08-24-2005, 11:12 PM

the master the master is offline

Tachikoma

Join Date: Mar 2003

Location: Mansfield, UK

Posts: 4,594

i always thought you only used .refresh when auto redraw is on. i thought it wiped your image if it wasnt.

i think you still need to refresh though because with auto redraw it will draw everything but you wont see it until its refreshed by .refresh or .cls or even changing the backbolor seems to work

another good thing about autoredraw that might be worth mentioning as you seem not to have used it before. if another window goes over your progress bar or anything happens so you cant see it on the screen and autoredraw is turned off, it will wipe whatever you draw on it. autoredraw will keep all the information but it slows things down a lot. if you plan to update your progress bar a few times a second then you would notice a difference

__________________
"That which seems simple is often overlooked" ~ me
Halloween Special FX
Web Hosting from Spook Technologies