Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.70
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.70

Me.CreateGraphics.FillRectangle (New SolidBrush _

(Color. Brown), 300, 400, 150, 100)

Dim a () As Point = {New Point (500, 300), New

Point (600, 400), New Point (700, 300), New_ Point (600, 100)}

Me.CreateGraphics.FillPolygon (New Solid_Brush _

(Color. Black), a) End Sub

Если вам непонятны некоторые названия геометрических фигур, постройте их, попробуйте поменять размеры, в кодах «построение пути» добавьте другие фигуры и многое станет понятно. Кстати, построение графики поддается строгим математическим расчетам. Так что программист, обладающий определенными знаниями и опытом, может создавать очень сложные рисунки.

Заполнение фигур

Существует несколько классов, каждый из которых представляет различные способы заполнения (окраски) рисунков:

> SolidBrush (окраска однородным цветом);

> TextureBrush (заполнение на основе какого-либо изображения);

> HatchBrush (окраска в виде штриховки);

> LinearGradientBrush (градиентная заливка);

> PathGradientBrush (градиентная заливка).

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Заполнение фигур

SolidBrush

С этим видом окраски мы уже ознакомились. Фигура окрашивается в однотонный цвет.

Заполненный четырехугольник:

е.Graphics.FillRectangle (New SolidBrush(Color. _ Red), 10, 10, 100, 150)

Заполненный сектор:

Dim i As Integer For i = 0 To 359 Step 20 e.Graphics.FillPie (New SolidBrush (Color. Blue), _ 300, 300, 200, 200, i, 10) Next

Texture Brush

В данном случае для заполнения фигуры используются рисунки:

Dim a As New Bitmap ("С:\Documents And SettingsX _ All иегз\Документы\Моирисунки\образцы рисунков\ _ Закат.jpg")

Dim b As New Texture Brush (a, Drawing2D.WrapMode. TileFlipX)

e. Graphics. FillEllipse (b, 10, 10, 200, 350)

HatchBrush

Данный класс служит для заполнения фигуры текстурным изображением, обратите внимание на задание в этом коде полного имени:

Dim a As New System.Drawing.Drawing2D.HatchBrush_ (Drawing2D.HatchStyle.BackwardDiagonal,Color Blue, Color.Brown) e.Graphics.FillEllipse (a, 10, 10, 100, 150)


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta