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

Dim ptl As Point = New Point (100, 100)

А так выглядит код, рисующий массив кривых Безье:

Dim i As Integer Dim al As New Point(10, 10) Dim a2 As New Point(180, 200) Dim a3 As New Point(180, 120) Dim a4 As New Point(300, 250) Dim a5 As New PointF(140, 150) For i = 1 To 15

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

ГЛАВА 4 Т Виды графических изображений

a4.Y = a4.Y - ЗО al.Y = al.Y + 20

e.Graphics.DrawBezier(New Pen(Color.Red, 3), al, a2, аЗ, a4) Next

Результат работы этой программы отражен на рис. 4.1.

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

Рис. 4.1 ▼ Кривые Безье

Замкнутая кривая (сплайн)

Параметром методов DrawClosedCurve и DrawCurve является массив точек. В коде, приведенном ниже, объявляется переменная point, значением которой является массив точек, и по этому параметру строится обычный и замкнутый сплайны (рис. 4.2):

Dim pointlO As Point = {New Point (20, 20), New Point _ (150, 30), New _ Point(220, 50), NewPoint(70, 70), New Point(70, 10)}

Dim point2() As Point = {New Point(20, 150), New Point

(150, 160), New Point(180, 220), New Point(70, 200),

New Point(70, 140)}

Dim pen As New Pen(Color.Red, 5)

e.Graphics.DrawCurve(pen, point1)

e.Graphics.DrawClosedCurve(pen, Point2)

End Sub

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

Рисование геометрических фигур

Рис. 4.2 т Сплайн

Эллипс

Эллипс создается как геометрическая фигура, вписанная в прямоугольник. То есть самого прямоугольника на рисунке не видно, но параметры эллипса одновременно являются параметрами такого прямоугольника. Прямоугольник создается в качестве экземпляра класса Rectangle или сразу в коде, который создает эллипс, с применением метода DrawEllipse:

Private Sub Forml_Paint (ByVal sender As Object, ByVal e _ As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint e.Graphics.DrawEllipse (New Pen (Color.Green, 3), 0, 0, 200, 300) "способ 1 Dim ris As Graphics = e.Graphics Dim pen As Pen = New Pen (Color.Black, 3) Dim rect As Rectangle = New Rectangle (0, 0, 200, 300) ris.DrawEllipse (pen, rect) 'способ 2 End Sub

Значок

Вы, конечно, обращали внимание на значок, расположенный в левом верхнем углу формы. Воспользовавшись свойством Icon в окне Properties, можно выбрать любой значок, например из папки Program Files > Microsoft Office > Office 10 > forms.


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