1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
| Imports System.Drawing.Drawing2D
Public Class Form1
Private _Value As Long = 0
Public Property Value() As Long
Get
Return _Value
End Get
Set(ByVal v As Long)
If v > _Maximum Then v = _Maximum
_Value = v : Invalidate()
End Set
End Property
Private _Maximum As Long = 100
Public Property Maximum() As Long
Get
Return _Maximum
End Get
Set(ByVal v As Long)
If v < 1 Then v = 1
_Maximum = v : Invalidate()
End Set
End Property
Private _Thickness As Integer = 20
Public Property Thickness() As Integer
Get
Return _Thickness
End Get
Set(ByVal v As Integer)
_Thickness = v : Invalidate()
End Set
End Property
'Ручка PaintBackground для предотвращения мерцания----------
Protected Overrides Sub OnPaintBackground(ByVal p As PaintEventArgs)
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
Using B As New Bitmap(Width, Height)
Using G As Graphics = Graphics.FromImage(B)
G.SmoothingMode = SmoothingMode.HighQuality
'Заполнить цветом фона-----------
G.Clear(BackColor)
'цвет кольца------------------
Using T As New LinearGradientBrush(ClientRectangle, Color.Violet, Color.White, LinearGradientMode.Vertical)
Using P As New Pen(T, Thickness)
G.DrawArc(P, CInt(Thickness / 2), CInt(Thickness / 2), Width - Thickness - 1, Height - Thickness - 1, 0, 360)
End Using
End Using
'цвет бегунка----------------------------------------------------
Using T As New LinearGradientBrush(ClientRectangle, Color.White, Color.Gray, LinearGradientMode.Vertical)
Using P As New Pen(T, Thickness)
P.StartCap = LineCap.Round : P.EndCap = LineCap.Round
G.DrawArc(P, CInt(Thickness / 2), CInt(Thickness / 2), Width - Thickness - 1, Height - Thickness - 1, 90, CInt((360 / _Maximum) * _Value))
End Using
End Using
'Здесь можно поменять цвет центра------------------------------------------
Using T As New LinearGradientBrush(ClientRectangle, Color.Transparent, Color.Transparent, LinearGradientMode.Vertical)
G.FillEllipse(T, Thickness, Thickness, Width - Thickness * 2 - 1, Height - Thickness * 2 - 1)
End Using
'Нарисовать строку прогресса-----------
Dim S As SizeF = G.MeasureString(CStr(CInt((100 / _Maximum) * _Value)), Font)
G.DrawString(CStr(CInt((100 / _Maximum) * _Value)), Font, Brushes.White, CInt(Width / 1 - S.Width / 1), CInt(Height / 1 - S.Height / 1))
'наружная граница-----------------------
G.DrawEllipse(Pens.Black, 0, 0, Width - 1, Height - 1)
'внутренние границы--------------------
G.DrawEllipse(Pens.Black, Thickness, Thickness, Width - Thickness * 2 - 1, Height - Thickness * 2 - 1)
'Выход буферизованные изображения--------------------------
e.Graphics.DrawImage(B, 0, 0)
End Using
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Value += 10
End Sub
End Class |
(
Сообщение от MACHOMAN
