Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.40
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.40

brush.SetBlendTriangularShape(0.8,0.9)

и

brush.SetSigmaBellShape(0.8, 0.8)

Эти коды добавлены в приведенный ниже пример предпоследней строкой:

"многоугольник

Dim pointK) As Point = {New Point (180, 20), New Point _

(300, 20), New Point(300, 120), New Point(180, 120)}

Dim brushl As New Systern.Drawing.Drawing2D. _

PathGradientBrush(point1)

brushl.CenterPoint = New PointF(240, 70)

brushl.CenterColor = Color.Gold

Dim col() As Color = {Color.FromArgb(55, 0, 0)}

brushl.SurroundColors = col

brushl.FocusScales = New PointF(0.5, 0.5)

brushl.SetSigmaBellShape(0.4, 0.9)

e.Graphics.FillPolygon(brushl, point1)

"эллипс

Dim rect As New Sys tern. Drawing. Drawing2D.GraphicsPath

rect.AddEllipse(New Rectangle(180, 150, 150, 100))

Dim brush2 As New System.Drawing".Drawing2D. _

PathGradientBrush(rect)

brush2.CenterPoint = New PointF(255, 170)

brush2.CenterColor = Color.Gold

Dim col() As Color ={Color.FromArgb(55, 0, 0)}

brush2.SurroundColors = col

brush2.FocusScales = New PointF(0.5, 0.5)

brush2.SetBlendTriangularShape(0.5, 1)

e.Graphics.FillPath(brush2, rect)

Данная заливка применена к прямоугольнику и эллипсу на рис. 5.4.

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программированияТрусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Рис. 5.4 т Градиентная заливка

5.6. ColorBlend

Данный класс позволяет создавать градиентную заливку чрезвычайно простым способом: достаточно перечислить нужные цвета и указать их месторасположение. Метод этого класса Colors определяет набор цветов, а метод Positions размещает их в направлении от краев рисунка к центру. В приведенном ниже коде создается градиентная заливка треугольника:

Dim point() As Point = {New Point(120, 20), New Point _ (20, 120), New Point(220, 120)} Dim brush As New System.Drawing.Drawing2D. _ PathGradientBrush(point)

Dim col() As Color = {Color.Black, Color.Brown, Color.Gold} Dim pos() As Single = {0, 0.2, 1}

Dim colbl As New System.Drawing.Drawing2D.ColorBlend

colbl.Colors = col

colbl.Positions = pos

brush.InterpolationColors = colbl

e.Graphics.FillPolygon(bru sh,-point)

5.7. Градиентная заливка текста

Чтобы создать градиентную заливку текста, необходимо задать его координаты с помощью экземпляра класса Rectangle,


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