Visual Basic Programming Code Examples

Visual Basic > Forms Code Examples

Create a progress bar from a PictureBox



Create a progress bar from a PictureBox

The following code demonstrates a simple technique for turning a VB PictureBox into a progress bar.

'Purpose   :    Creates a progress bar from a picture box
'Inputs    :    pbProgress              The picture box.
'               lPercentComplete        The percentage complete of the progress bar.
'               [lBackColor]            The backcolor of the progress bar (default uses system backcolor).
'               [lForeColor]            The forecolor of the progress bar (default uses blue).
'Outputs   :    Returns 0 on success, else returns an error code
'Notes     :    Example usuage:
'               DrawProgressBar Picture1, 10  'Draws the progress bar 10% complete

Function DrawProgressBar(pbProgress As PictureBox, lPercentComplete As Long, Optional lBackColor As OLE_COLOR = &H8000000F, Optional lForeColor As OLE_COLOR = vbBlue) As Long
    Dim fPercent As Single
    Dim lLenBar As Integer
    
    On Error GoTo ErrFailed
    fPercent = lPercentComplete / 100

    lLenBar = fPercent * pbProgress.ScaleWidth
    'Fill both sides of the bar (incase a backwards progress bar is required)
    pbProgress.AutoRedraw = True
    pbProgress.BackColor = lBackColor
    pbProgress.ForeColor = lForeColor
    pbProgress.Line (0, 0)-(lLenBar, pbProgress.Height), pbProgress.ForeColor, BF
    pbProgress.Line (lLenBar + 1, 0)-(pbProgress.ScaleWidth, pbProgress.Height), pbProgress.BackColor, BF
    DrawProgressBar = 0
    Exit Function

ErrFailed:
    Debug.Print "Error in DrawProgressBar: " & Err.Description
    Debug.Assert False
    DrawProgressBar = Err.Number
End Function