• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Percent Bar Transforms a PictureBox into a Percent Bar

Percent Bar Transforms a PictureBox into a Percent Bar

I thought this code might help those struggling to make a percent bar. This code transforms a normal picturebox into a Percent Bar (progress bar with % in the middle). Choose from 2 different borders.

Inputs
pic As PictureBox, ByVal Percent As Integer, Optional ByVal Flat As Boolean = False

Rate Percent Bar Transforms a PictureBox into a Percent Bar

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Sub UpdateProgress(pic As PictureBox, ByVal Percent As Single, Optional ByVal Flat As Boolean = False)
 With pic
 'Configure PictureBox
 .AutoRedraw = True
 .Appearance = Flat + 1
 .ScaleWidth = 100
 .ForeColor = vbHighlight
 .BackColor = vbButtonFace
 .DrawMode = vbNotXorPen
 
 'Clear the PictureBox
 .Cls
 
 'Draw the text
 .CurrentX = (.ScaleWidth - .TextWidth(Int(Percent) & "%")) \ 2
 .CurrentY = (.ScaleHeight - .TextHeight(Int(Percent) & "%")) \ 2
 pic.Print Int(Percent) & "%"
 
 'Draw the progress
 pic.Line (0, 0)-(Percent, .ScaleHeight), , BF
 End With
End Sub