End Class

Public Class Form1

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

Dim g As Graphics = e.Graphics

Dim rect As New Rectangle(10, 10, 100, 200)

Dim pn As New Pen(Color.Blue, 10)

pn.Alignment = Drawing2D.PenAlignment.Outset

g.DrawEllipse(pn, rect)

Dim lgb As New Drawing2D.LinearGradientBrush(rect, Color.Red, Color.Yellow, Drawing2D.LinearGradientMode.BackwardDiagonal)

g.FillEllipse(lgb, rect)

End Sub

Геометричні структури

Лінія

Метод DrawLine класу Graphics дозволяє створювати лінії. У цьому методі є три параметри — перо, що її створює, а також дві точки, що сполучаються лінією.

e.Graphics.DrawLine(New Pen(Color.Red, 3), 10, 10, 100, 100)

Dim pen As Pen = New Pen(Color.Black, 3)

Dim ptl As New Point(30, 10)

Dim pt2 As New Point(120, 100)

e.Graphics.DrawLine(pen, ptl, pt2)

Ламана лінія

Ламану лінію можна створити за допомогою одного з двох методів DrawLines. Першим параметром кожного із цих методів є перо, що створює лінію, а другим — масив точок, що задає її вершини.

Малювання ламаної лінії

Дата добавления: 2015-05-24