|
Public Class PrBar
Dim Fon As New Bitmap(My.Resources._1)
Dim Glass As New Bitmap(My.Resources._2)
Dim Mode1 As New Bitmap(My.Resources._3)
Dim Mode2 As New Bitmap(My.Resources._4)
Dim Mode3 As New Bitmap(My.Resources._5)
Dim _Value As Integer = 0
Dim _Maximum As Integer = 100
Dim BColor As Color = Color.DarkGreen
Dim _Skin As Bitmap
Dim Sk As Skin
Dim TxtrBr As TextureBrush
Dim Texture As Boolean = False
Dim Br As SolidBrush
Dim sf As New System.Drawing.StringFormat
Dim P As New Pen(Color.Yellow, 1)
Sub New()
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center
InitializeComponent()
Br = New SolidBrush(Color.DarkGreen)
Draw()
End Sub
Enum Skin
Skin1
Skin2
Skin3
End Enum
Private Sub Draw()
Dim BM As New Bitmap(104, 104)
Dim G As Graphics = Graphics.FromImage(BM)
G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
G.DrawImage(Fon, New Rectangle(0, 0, 103, 104))
If Texture = True Then
G.FillPie(TxtrBr, New Rectangle(2, 2, 98, 98), 270, (360 * _Value \ _Maximum))
Else
G.FillPie(Br, New Rectangle(2, 2, 98, 98), 270, (360 * _Value \ _Maximum))
End If
G.DrawPie(P, New Rectangle(2, 2, 98, 98), 270, 360 * _Value \ _Maximum)
G.DrawString(CInt(_Value / _Maximum * 100) & "%", New Font("arial", 15, FontStyle.Bold), Brushes.White, New Rectangle(0, 0, 104, 104), sf)
G.DrawImage(Glass, New Rectangle(0, 0, 104, 104))
Me.BackgroundImage = BM
End Sub
Property Valuev() As Integer
Get
Return _Value
End Get
Set(ByVal val As Integer)
_Value = val
Draw()
End Set
End Property
Property Maximum() As Integer
Get
Return _Maximum
End Get
Set(ByVal val As Integer)
_Maximum = val
End Set
End Property
Property BckColor() As Color
Get
Return BColor
End Get
Set(ByVal val As Color)
BColor = val
Texture = False
Br = New SolidBrush(BColor)
Draw()
End Set
End Property
Property ProgSkin() As Skin
Get
Return Sk
End Get
Set(ByVal val As Skin)
Sk = val
Texture = True
If Sk = Skin.Skin1 Then _Skin = Mode1
If Sk = Skin.Skin2 Then _Skin = Mode2
If Sk = Skin.Skin3 Then _Skin = Mode3
TxtrBr = New TextureBrush(_Skin)
Draw()
End Set
End Property
End Class | 
