http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Windows.Forms%2FControlPaintVB.Net by API/System.Windows.Forms/ControlPaint - История изменений2026-04-05T23:47:40ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/ControlPaint&diff=2738&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:16Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Windows.Forms/ControlPaint&diff=2739&oldid=prevAdmin: 1 версия2010-05-26T12:52:16Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==ControlPaint.DrawButton==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
Imports System.ruponentModel<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1)<br />
<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
"<br />
"ControlPaintExample<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Name = "ControlPaintExample"<br />
Me.Text = "ControlPaint Example"<br />
End Sub<br />
#End Region<br />
Private Sub ControlPaintExample_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(10, 10, 50, 50), ButtonState.Checked)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(70, 10, 30, 30), ButtonState.Normal)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(110, 10, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(10, 80, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(50, 80, 20, 20), ButtonState.Flat)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(90, 80, 20, 20), ButtonState.Normal)<br />
ControlPaint.DrawFocusRectangle(e.Graphics, New Rectangle(130, 80, 20, 20))<br />
ControlPaint.DrawGrid(e.Graphics, New Rectangle(10, 120, 250, 50), New Size(5, 5), Color.Blue)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(10, 180, 20, 20), ScrollButton.Left, ButtonState.Normal)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(50, 180, 20, 20), ScrollButton.Max, ButtonState.Pushed)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(90, 180, 20, 20), ScrollButton.Up, ButtonState.Normal)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(10, 220, 20, 20), MenuGlyph.Arrow)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(50, 220, 20, 20), MenuGlyph.Checkmark)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(90, 220, 20, 20), MenuGlyph.Max)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==ControlPaint.DrawCheckBox==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
Imports System.ruponentModel<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1)<br />
<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
"<br />
"ControlPaintExample<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Name = "ControlPaintExample"<br />
Me.Text = "ControlPaint Example"<br />
End Sub<br />
#End Region<br />
Private Sub ControlPaintExample_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(10, 10, 50, 50), ButtonState.Checked)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(70, 10, 30, 30), ButtonState.Normal)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(110, 10, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(10, 80, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(50, 80, 20, 20), ButtonState.Flat)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(90, 80, 20, 20), ButtonState.Normal)<br />
ControlPaint.DrawFocusRectangle(e.Graphics, New Rectangle(130, 80, 20, 20))<br />
ControlPaint.DrawGrid(e.Graphics, New Rectangle(10, 120, 250, 50), New Size(5, 5), Color.Blue)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(10, 180, 20, 20), ScrollButton.Left, ButtonState.Normal)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(50, 180, 20, 20), ScrollButton.Max, ButtonState.Pushed)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(90, 180, 20, 20), ScrollButton.Up, ButtonState.Normal)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(10, 220, 20, 20), MenuGlyph.Arrow)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(50, 220, 20, 20), MenuGlyph.Checkmark)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(90, 220, 20, 20), MenuGlyph.Max)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==ControlPaint.DrawFocusRectangle==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
Imports System.ruponentModel<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1)<br />
<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
"<br />
"ControlPaintExample<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Name = "ControlPaintExample"<br />
Me.Text = "ControlPaint Example"<br />
End Sub<br />
#End Region<br />
Private Sub ControlPaintExample_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(10, 10, 50, 50), ButtonState.Checked)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(70, 10, 30, 30), ButtonState.Normal)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(110, 10, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(10, 80, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(50, 80, 20, 20), ButtonState.Flat)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(90, 80, 20, 20), ButtonState.Normal)<br />
ControlPaint.DrawFocusRectangle(e.Graphics, New Rectangle(130, 80, 20, 20))<br />
ControlPaint.DrawGrid(e.Graphics, New Rectangle(10, 120, 250, 50), New Size(5, 5), Color.Blue)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(10, 180, 20, 20), ScrollButton.Left, ButtonState.Normal)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(50, 180, 20, 20), ScrollButton.Max, ButtonState.Pushed)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(90, 180, 20, 20), ScrollButton.Up, ButtonState.Normal)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(10, 220, 20, 20), MenuGlyph.Arrow)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(50, 220, 20, 20), MenuGlyph.Checkmark)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(90, 220, 20, 20), MenuGlyph.Max)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==ControlPaint.DrawGrid==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
Imports System.ruponentModel<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1)<br />
<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
"<br />
"ControlPaintExample<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Name = "ControlPaintExample"<br />
Me.Text = "ControlPaint Example"<br />
End Sub<br />
#End Region<br />
Private Sub ControlPaintExample_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(10, 10, 50, 50), ButtonState.Checked)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(70, 10, 30, 30), ButtonState.Normal)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(110, 10, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(10, 80, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(50, 80, 20, 20), ButtonState.Flat)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(90, 80, 20, 20), ButtonState.Normal)<br />
ControlPaint.DrawFocusRectangle(e.Graphics, New Rectangle(130, 80, 20, 20))<br />
ControlPaint.DrawGrid(e.Graphics, New Rectangle(10, 120, 250, 50), New Size(5, 5), Color.Blue)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(10, 180, 20, 20), ScrollButton.Left, ButtonState.Normal)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(50, 180, 20, 20), ScrollButton.Max, ButtonState.Pushed)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(90, 180, 20, 20), ScrollButton.Up, ButtonState.Normal)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(10, 220, 20, 20), MenuGlyph.Arrow)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(50, 220, 20, 20), MenuGlyph.Checkmark)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(90, 220, 20, 20), MenuGlyph.Max)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==ControlPaint.DrawMenuGlyph==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
Imports System.ruponentModel<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1)<br />
<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
"<br />
"ControlPaintExample<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Name = "ControlPaintExample"<br />
Me.Text = "ControlPaint Example"<br />
End Sub<br />
#End Region<br />
Private Sub ControlPaintExample_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(10, 10, 50, 50), ButtonState.Checked)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(70, 10, 30, 30), ButtonState.Normal)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(110, 10, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(10, 80, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(50, 80, 20, 20), ButtonState.Flat)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(90, 80, 20, 20), ButtonState.Normal)<br />
ControlPaint.DrawFocusRectangle(e.Graphics, New Rectangle(130, 80, 20, 20))<br />
ControlPaint.DrawGrid(e.Graphics, New Rectangle(10, 120, 250, 50), New Size(5, 5), Color.Blue)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(10, 180, 20, 20), ScrollButton.Left, ButtonState.Normal)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(50, 180, 20, 20), ScrollButton.Max, ButtonState.Pushed)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(90, 180, 20, 20), ScrollButton.Up, ButtonState.Normal)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(10, 220, 20, 20), MenuGlyph.Arrow)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(50, 220, 20, 20), MenuGlyph.Checkmark)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(90, 220, 20, 20), MenuGlyph.Max)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==ControlPaint.DrawScrollButton==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System<br />
Imports System.Collections<br />
Imports System.Data<br />
Imports System.Drawing<br />
Imports System.Windows.Forms<br />
Imports System.ruponentModel<br />
Imports System.Drawing.Drawing2D<br />
Imports System.IO<br />
Public Class MainClass<br />
<br />
Shared Sub Main()<br />
Dim form1 As Form = New Form1<br />
Application.Run(form1)<br />
<br />
End Sub<br />
End Class<br />
<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
#Region " Windows Form Designer generated code "<br />
Public Sub New()<br />
MyBase.New()<br />
"This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
"Add any initialization after the InitializeComponent() call<br />
End Sub<br />
"Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
"Required by the Windows Form Designer<br />
Private components As System.ruponentModel.IContainer<br />
"NOTE: The following procedure is required by the Windows Form Designer<br />
"It can be modified using the Windows Form Designer. <br />
"Do not modify it using the code editor.<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
"<br />
"ControlPaintExample<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Name = "ControlPaintExample"<br />
Me.Text = "ControlPaint Example"<br />
End Sub<br />
#End Region<br />
Private Sub ControlPaintExample_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(10, 10, 50, 50), ButtonState.Checked)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(70, 10, 30, 30), ButtonState.Normal)<br />
ControlPaint.DrawCheckBox(e.Graphics, New Rectangle(110, 10, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(10, 80, 20, 20), ButtonState.Checked)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(50, 80, 20, 20), ButtonState.Flat)<br />
ControlPaint.DrawButton(e.Graphics, New Rectangle(90, 80, 20, 20), ButtonState.Normal)<br />
ControlPaint.DrawFocusRectangle(e.Graphics, New Rectangle(130, 80, 20, 20))<br />
ControlPaint.DrawGrid(e.Graphics, New Rectangle(10, 120, 250, 50), New Size(5, 5), Color.Blue)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(10, 180, 20, 20), ScrollButton.Left, ButtonState.Normal)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(50, 180, 20, 20), ScrollButton.Max, ButtonState.Pushed)<br />
ControlPaint.DrawScrollButton(e.Graphics, New Rectangle(90, 180, 20, 20), ScrollButton.Up, ButtonState.Normal)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(10, 220, 20, 20), MenuGlyph.Arrow)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(50, 220, 20, 20), MenuGlyph.Checkmark)<br />
ControlPaint.DrawMenuGlyph(e.Graphics, New Rectangle(90, 220, 20, 20), MenuGlyph.Max)<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>Admin