ОБЪЕКТ PEN

StartCap/EndCap. Определяет значок в начале/конце отрезка линии. Может принимать значение из перечисления: AnchorMask, ArrovAnchor, Сustom, DiamondAnchor, Flat, NoAnchor, Round, RoundAnchor, Square, SquareAnchor, Triangle.

DashCap. Определяет вид начала и конца штриха пунктирной линии. Может принимать значение из перечисления: Flat, Round, и Triangle.

DashStyle. Определяет стиль пунктирной линии. Может принимать значение из перечисления: Solid, Dash, DashDot, DashDotDot, Dot и Custom.

PenType. Определяет стиль пера. Может принимать значение из перечисления: HatchFilled, LinearGradient, PathGradient, SolidColor и TextureFill.

Alignment Устанавливает и возвращает выравнивание линии, создаваемой пером, относительно воображаемой линии, вдоль которой производится построение. Тип расположения определяется перечислением PenAlignment, имеющего следующие члены: Center, Inset, Left, Outset, Right

Color ­ Устанавливает и возвращает цвет пера

ОБЪЕКТ FONT

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms. PaintEventArgs) Handles MyBase.Paint

Dim G As Graphics

G = Me.CreateGraphics

Dim f As New Font("Times New Roman", 12, _ FontStyle.Regular)

Dim B As New SolidBrush(Color.Magenta)

G.DrawString("Выводимая строка", f, B, 100, 60)

End Sub

КЛАСС COLOR

Класс color пространства имен System. Drawing определяет средства для установки цветов, предоставляющие ARGB­модель цвета, где

А — альфа­составляющая цвета,

R, G, B — красная, зеленая и голубая ее составляющие.

Статические методы FromArgb позволяют создать экземпляр класса color на основе ее

ARGB­модели.

ОБЪЕКТ BRUSH

SolidBrush

Одним цветом

HatchBrush Шаблоном из штрихов

LinearGradientBrush ­ Линейным градиентом

PathGradientBrush Градиентом с одним начальным цветом и несколькими конечными

TextureBrush Растровым изображением

СОБЫТИЕ PAINT

Через событие Paint можно получить доступ к методам класса Graphics.

Пример:

Private Sub Form1_Paint ( )

1 ) e.Graphics.DrawRectengle(New Pen (Color.Red,3),

100,100,100,100)

2) Dim gr as Graphics= e.Graphics

gr.DrawRectengle(New Pen (Color.Red,3), 100, 100, 100, 100)

ЗАПОЛНЕННЫЙ

ПРЯМОУГОЛЬНИК

Dim G As Graphics

G = Me.CreateGraphics

Dim B As New SolidBrush(Color.Magenta)

G.FillRectangle(B, 50, 40, 100, 50)

КЛАСС TEXTUREBRUSH

Свойства:

Image ­ Возвращает экземпляр класса Image, ассоциированный с кистью

Transform ­ Возвращает и устанавливает экземпляр класса Matrix, используемого для преобразования изображения, ассоциированного с кистью

WrapMode ­ Возвращает и устанавливает стиль мозаичного покрытия

КЛАСС TEXTUREBRUSH

wrapMod ­ Создает покрытие из изображения:

Clamp ­ Прижимает изображение к краям

T i l e ­ Создает из изображения мозаику

T i l e F l i p Х ­ Создает мозаику из данного изображения и его зеркального отображения относительно правой границы изображения

TileFlipY­ Создает мозаику из данного изображения и его зеркального отображения относительно нижней границы изображения

TileFlipXY ­Создает мозаику, комбинируя оба преобразования.

ПРИМЕР

TextureBrush создает кисть, которая заполняет закрашиваемую область рисунками. Необходимо указать адрес рисунка. Параметры: distRec­ размер кисти, WrapMode­ способ расположения текстуры.

Dim im as New Bitmap(“c:\R.gif”)

e.Graphics.FillRectangle (New TextureBrush (im), 20,20,250,250)

ПРИМЕР ШТРИХОВКИ

Параметры: HatchStyle­ вид штриховки, ForeColor – цвет штриховки, BackColor­ цвет фона.

Dim br As New System.Drawing.Drawing2D.HatchBrush(2, Color.Aqua, Color.Gold)

e.Graphics.FillRectangle(br, 50, 50, 150, 150)