Урок 7

Добавляем инструменты рисования

Работая с программой «Карандаш», можно заметить, что при быстром перемещении курсора линия становится прерывистой, состоящей как бы из множества точек. Устраним этот недостаток, создав два инструмента: «Кисть» - для прорисовки кривых; и «Карандаш» - для прорисовки отрезков прямых линий. Обеспечим также возможность изменения ширины линий.

Интерфейс программы «Карандаш» достаточно прост. Сделаем его более похожим на современные редакторы, в которых выбор режимов рисования происходит с помощью специальных панелей инструментов. Для этого нам понадобится элемент управления ToolStrip рис. 7.1.

ToolStrip - это панель инструментов, содержащая кнопки и другие элементы, используемые для запуска часто выполняемых действий;

Установим на форму елемент ToolStrip, присвоив имя TS1 и обратимся к его свойству Items. Откроется окно редактора коллекции кнопок рис. 7.2. С помощью кнопки «Добавить» на панель можно добавить элементы рис. 7.3.:

· Button - кнопка;

· Label - метка;

· SplitButton – объединяет функциональные возможности кнопки и кнопки с раскрывающимся меню;

· DropDownButton – раскрывающееся меню;

· Separatop – разделитель;

· ComboBox – поле со списком;

· TextBox – текстовое окно;

· ScrollBar – окно ожидания выполнения процесса.

Рис. 7.1. панель инструментов

Рис. 7.2. Редактор коллекции кнопок

Рис. 7.3. Выбор устанавливаемых элементов

Установим на панель 5 кнопок и поле со списком, в соответствии с образцом рис. 7.4.

Рис. 7.4. Панель инструментов программы

произвольная кривая

линия

выбор цвета

настройка

очистить рисунок

Рисунки для кнопок: берутся из библиотеки изображений. Размер элементов в коллекции устанавливается свойством ImageScalingSize равным 36х36 пикселей. С помощью выпадающего списка будем задавать ширину рисуемых линий. Ещё один элемент «Метка»(Label) расположим в левом нижнем углу формы. Цвет фона метки будет сигнализировать о выбранном цвете.

Устраним прерывистость рисуемых линий. Она связана с тем, что в качестве инструмента рисования выбран метод DrawEllipse отображающий окружность в точке нахождения курсора. В нашем примере это е.х –координаты по оси х и е.y – координаты по оси у. Для прорисовки непрерывных линий воспользуемся методом DrawLine. При этом недостаточно знать только текущие координаты курсора. Необходимо помнить его координаты в предыдущей точке линии, назовём их Xold и Yold, а также координаты начальной точки линии Xstart Ystart. Рисование на форме должно выполняться при нажатой левой кнопке мыши.

Выполним изменение программы «Карандаш» в соответствии с предложенными замечаниями.

Рис. 7.5. Окно программы «Карандаш»

Программа «Карандаш»

Public Class Form1

Dim Xstart, Ystart, Xold, Yold As Single, A As Integer

Dim GR As Graphics, P As Pen, цвет As Color

Sub Fon()

' Восстановить цвет фона кнопок

TSB1.BackColor = TS1.BackColor

TSB2.BackColor = TS1.BackColor

TSB3.BackColor = TS1.BackColor

TSB4.BackColor = TS1.BackColor

TSB5.BackColor = TS1.BackColor

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

GR = Me.CreateGraphics

TSCB1.Visible = False

цвет = Color.Black

P = New Pen(цвет, 2)

LB1.BackColor = цвет

End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If e.Button <> MouseButtons.Left Then Exit Sub

TSCB1.Visible = False

Xstart = e.X ' начальная координата

Ystart = e.Y

Xold = e.X ' предыдущая координата

Yold = e.Y

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If e.Button <> MouseButtons.Left Then Exit Sub ' нажата левая кнопка мыши?

P.Color = цвет

P.Width = TSCB1.Text

P.StartCap = Drawing2D.LineCap.Round ' закруглённое начало

P.EndCap = Drawing2D.LineCap.Round ' закруглённый конец

If A = 1 Then

GR.DrawLine(P, Xold, Yold, e.X, e.Y)

End If

Xold = e.X

Yold = e.Y

End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

If e.Button <> MouseButtons.Left Then Exit Sub

If A = 2 Then

GR.DrawLine(P, Xstart, Ystart, e.X, e.Y)

End If

End Sub

Private Sub TSB3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSB3.Click

CDL1.ShowDialog()

цвет = CDL1.Color

LB1.BackColor = CDL1.Color

End Sub

Private Sub TSB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSB1.Click

'Кисть

Fon()

A = 1

TSB1.BackColor = Color.LightYellow

End Sub

Private Sub TSB5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSB5.Click

GR.Clear(Me.BackColor)

End Sub

Private Sub TSB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSB2.Click

'Карандаш

Fon()

A = 2

TSB2.BackColor = Color.LightYellow

End Sub

Private Sub TSB4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSB4.Click

TSCB1.Visible = True

End Sub

Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged

GR = Me.CreateGraphics

End Sub

End Class

Домашнее задание:

1. Добавить инструмент «Аэрозольный баллончик» .

2. Добавить инструмент «Прямоугольник» .

3. Добавить инструмент «Круг» .

Google Sites

Report abuse