先上效果圖：

背景色，前景色，字體，字號，字色，字的對齊方式都可以設置。

開始寫代碼：

窗體上加一個timer控件，目的是讓進度條值不斷增加。timer 的 interval 設置為100，并且啟用.

全部窗體代碼如下：

Public Class Form1Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickIf MyProgressBar1.Value < 100 ThenMyProgressBar1.Value += 1End IfEnd Sub End ClassPublic Class MyProgressBarInherits ProgressBarPublic Property CharColor As ColorPublic Property CharTop As Single = 0Public Property CharFont As FontPublic Property CharPositonType As PositionTypePublic Property ShowPercent As BooleanPublic Enum PositionTypeleft = 0middle = 1right = 2auto = 3auto2 = 4End EnumPublic Sub New()CharFont = New Font("candara", 14, FontStyle.Regular)CharPositonType = PositionType.autoCharColor = Color.WhiteBackColor = Color.MediumPurpleForeColor = Color.SlateBlueMe.SetStyle(ControlStyles.UserPaint, True)End SubProtected Overrides Sub OnPaint(e As PaintEventArgs)Dim percentage As UInt16, x As Int16percentage = CType((Value * 100) / Maximum, UInt16)Dim percent_str As String = percentage & IIf(ShowPercent, "%", "")Dim Rect As Rectangle = e.ClipRectangleRect.Width = CType((Rect.Width * Value / Maximum), UInt16) - 4Rect.Height = Rect.Height - 4e.Graphics.FillRectangle(New SolidBrush(BackColor), 0, 0, e.ClipRectangle.Width, e.ClipRectangle.Height)e.Graphics.FillRectangle(New SolidBrush(ForeColor), 2, 2, Rect.Width, Rect.Height)Dim myfont As New Font(CharFont.FontFamily, CharFont.Size, FontStyle.Regular)Dim size As Size = TextRenderer.MeasureText(percent_str, myfont)If CharPositonType = 4 ThenIf Rect.Width - size.Width / 2 > 0 ThenIf (Rect.Width < e.ClipRectangle.Width - size.Width / 2) Thenx = (Rect.Width - size.Width / 2)Elsex = e.ClipRectangle.Width - size.Width - 2End IfElsex = 2End IfElseIf (CharPositonType = 3) ThenIf (Rect.Width - size.Width > 0) Thenx = (Rect.Width - size.Width) / 2Elsex = 2End IfElseIf CharPositonType = 2 Thenx = e.ClipRectangle.Width - size.Width - 2ElseIf CharPositonType = 1 Thenx = (e.ClipRectangle.Width - size.Width) / 2ElseIf CharPositonType = 0 Thenx = 2End Ife.Graphics.DrawString(percent_str, New Font(CharFont.FontFamily, CharFont.Size, FontStyle.Regular), New SolidBrush(CharColor), New Point(x, CharTop))MyBase.OnPaint(e)End SubEnd Class

代碼寫上以后（先把timer的代碼注釋掉。因為這時候還沒有自定義的控件），點運行，然后關閉窗體。這時候，在工具箱就能看見我們的 MyProgressBar了。拖到窗體上，timer的代碼取消注釋，再運行，就能看到效果了。

可以設置的屬性：

BackColor：進度條的背景色

CharColor：文字的顏色

CharFont：文字的字體和字號

CharPositionType：文字對齊方式。left 居左，middle 居中間，right 居右，auto 根據進度居于進度的中間。比如如果value是50，那么left就是1/4進度條的大小。auto2 始終位于當前進度的最大處，并且文字居于其中間。關于不同的取值的效果，請見下圖。

CharTop：文字距離頂部的距離。由于不同的字體會有不同的結果，所以給出了這個屬性。以便于根據字體來調整。

ForeColor：進度條的顏色。

ShowPercent：是否顯示%這個符號? 取值為false時，只顯示百分數，否則顯示為 xx%

總結

以上是生活随笔為你收集整理的vb.net 自定义progressbar的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。