Инструменты рисования

Инструмент Pen

Imports System.Drawing.Drawing2D

Public Class frm1

Inherits System.Windows.Forms.Form

Dim Холст As Graphics, P1 As Pen

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

Холст = Me.CreateGraphics()

' Горизонтальная линия x1,y1,x2,y2

If chk1.Checked = True Then Холст.DrawLine(Pens.Blue, 200, 50, 500, 50)

' Прямоугольник x,y-лев.верх, ширина, высота

If chk2.Checked = True Then Холст.DrawRectangle(Pens.DarkGoldenrod, 200, 100, 300, 50)

' Квадрат x,y-лев.верх, ширина, высота

If chk3.Checked = True Then Холст.DrawRectangle(Pens.DarkRed, 200, 200, 100, 100)

' Круг x,y-лев.верх, ширина, высота

If chk4.Checked = True Then Холст.DrawEllipse(Pens.DarkViolet, 400, 200, 100, 100)

' Эллипс x,y-лев.верх, ширина, высота

If chk5.Checked = True Then Холст.DrawEllipse(Pens.RosyBrown, 600, 50, 100, 250)

' Дуга x,y-лев.верх, ширина, высота, начало дуги, размер дуги

If chk6.Checked = True Then Холст.DrawArc(Pens.Orange, 200, 300, 100, 100, 45, 90)

' Сектор x,y-лев.верх, ширина, высота, начало дуги, размер дуги

If chk7.Checked = True Then Холст.DrawPie(Pens.Green, 400, 300, 100, 100, 45, 90)

End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

Холст.Clear(Me.BackColor)

End Sub

Инструмент Brush

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click

Холст = Me.CreateGraphics()

' Горизонтальная линия x1,y1,x2,y2

If chk1.Checked = True Then Холст.DrawLine(Pens.Blue, 200, 50, 500, 50)

' Прямоугольник x,y-лев.верх, ширина, высота

If chk2.Checked = True Then Холст.FillRectangle(Brushes.DarkGoldenrod, 200, 100, 300, 50)

' Квадрат x,y-лев.верх, ширина, высота

If chk3.Checked = True Then Холст.FillRectangle(Brushes.DarkRed, 200, 200, 100, 100)

' Круг x,y-лев.верх, ширина, высота

If chk4.Checked = True Then Холст.FillEllipse(Brushes.DarkViolet, 400, 200, 100, 100)

' Эллипс x,y-лев.верх, ширина, высота

If chk5.Checked = True Then Холст.FillEllipse(Brushes.RosyBrown, 600, 50, 100, 250)

' Дуга x,y-лев.верх, ширина, высота, начало дуги, размер дуги

If chk6.Checked = True Then Холст.DrawArc(Pens.Orange, 200, 300, 100, 100, 45, 90)

' Сектор x,y-лев.верх, ширина, высота , начало дуги, размер дуги

If chk7.Checked = True Then Холст.FillPie(Brushes.Green, 400, 300, 100, 100, 45, 90)

End Sub

Стили пера

Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click

Холст = Me.CreateGraphics()

P1 = New Pen(Color.Blue, 5)

If chk1.Checked = True Then Холст.DrawLine(P1, 200, 50, 500, 50) '

P1.Color = Color.Goldenrod

P1.DashStyle = DashStyle.Dash 'стиль линии пунктир

If chk2.Checked = True Then Холст.DrawRectangle(P1,200,100,300,50)

P1.Color = Color.DarkRed

P1.DashStyle = DashStyle.DashDot 'стиль пунктир - точка

If chk3.Checked = True Then Холст.DrawRectangle(P1,200,200,100,100)

P1.Color = Color.DarkViolet

P1.DashStyle = DashStyle.DashDotDot 'стиль пунктир - точка - точка

If chk4.Checked = True Then Холст.DrawEllipse(P1, 400, 200, 100, 100)

P1.Color = Color.RosyBrown

P1.DashStyle = DashStyle.Dot 'стиль линии пунктир - точка - точка

P1.Width = 10

If chk5.Checked = True Then Холст.DrawEllipse(P1, 600, 50, 100, 250)

P1.Color = Color.Orange

P1.StartCap = LineCap.ArrowAnchor 'стиль начала линии стрелка

P1.EndCap = LineCap.ArrowAnchor 'стиль конца линии стрелка

P1.DashStyle = DashStyle.Solid 'стиль линии сплошная

P1.Width = 5

If chk6.Checked = True Then Холст.DrawArc(P1,200,300,100,100,45,90)

P1.Color = Color.Green

P1.StartCap = LineCap.RoundAnchor 'стиль начала линии круг

P1.EndCap = LineCap.RoundAnchor 'стиль конца линии круг

P1.DashStyle = DashStyle.Solid 'стиль линии сплошная

If chk7.Checked = True Then Холст.DrawArc(P1,400,300,100,100,45,90)

End Sub

Стили кисти

Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click

Dim B1 As SolidBrush = New SolidBrush(Color.Blue) 'кисть сплошной заливки

Dim T1 As New Point(200, 200)

Dim T2 As New Point(300, 300)

'кисть градиентной заливки

Dim B2 As New LinearGradientBrush(T1, T2, Color.Blue, Color.Red)

'кисть заливки штриховкой

Dim B3 As New HatchBrush(HatchStyle.BackwardDiagonal, Color.Aqua, Color.Orchid)

Холст = Me.CreateGraphics()

If chk1.Checked = True Then Холст.DrawLine(Pens.Blue, 200, 50, 500, 50)

If chk2.Checked = True Then Холст.FillRectangle(B1, 200, 100, 300, 50)

If chk3.Checked = True Then Холст.FillRectangle(B2, 200, 200, 100, 100)

If chk4.Checked = True Then Холст.FillEllipse(B3, 400, 200, 100, 100) '

'кисть заливки штриховкой

Dim B4 As New HatchBrush(HatchStyle.Wave, Color.Red, Color.White)

If chk5.Checked = True Then Холст.FillEllipse(B4, 600, 50, 100, 250)

If chk6.Checked = True Then Холст.DrawArc(Pens.Orange,200,300,100,100, 45, 90)

'кисть заливки штриховкой

Dim B5 As New HatchBrush(HatchStyle.WideDownwardDiagonal, Color.Green, Color.White)

If chk7.Checked = True Then Холст.FillPie(B5,400,300,100,100,45,90)

End Sub

End Class