Embedded Files
Рисуем мышкой
Рассмотрим возможность создания инструментов рисования под требования пользователя. Пусть необходимо рисовать на поле формы с использованием мышки и обеспечить возможность выбора произвольного цвета.
Рассмотрим возможность создания инструментов рисования под требования пользователя. Пусть необходимо рисовать на поле формы с использованием мышки и обеспечить возможность выбора произвольного цвета.
Выбор цвета в программе можно выполнить с помощью элемента ColorDialog рис 6.1. Поместим на форму элемент ColorDialog с именем Cdl1 и кнопку с именем Bt1. Введя для кнопки ниже следующий код и запустив программу, мы увидим диалоговое окно выбора цвета рис. 6.2.
Выбор цвета в программе можно выполнить с помощью элемента ColorDialog рис 6.1. Поместим на форму элемент ColorDialog с именем Cdl1 и кнопку с именем Bt1. Введя для кнопки ниже следующий код и запустив программу, мы увидим диалоговое окно выбора цвета рис. 6.2.
Рис. 6.1. панель инструментов
Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
Cdl1.ShowDialog() ‘ вызов диалогового окна
Bt1.BackColor = Cdl1.Color
End Sub
Окно аналогично окну выбора цвета редактора PAINT и многих других редакторов. Выбранный цвет, после нажатия кнопки «Ок», присваивается свойству Color элемента Cdl1 и приводит к изменению цвета фона кнопки Bt1.
Окно аналогично окну выбора цвета редактора PAINT и многих других редакторов. Выбранный цвет, после нажатия кнопки «Ок», присваивается свойству Color элемента Cdl1 и приводит к изменению цвета фона кнопки Bt1.
Рис. 6.2. Окно выбора цвета
Следующая необходимая нам функция определение координат курсора на форме. Нас будут интересовать события формы: MouseMove - перемещение курсора мышки на форме, MouseDown – нажатие кнопки мыши, MouseUp – отпускание кнопки мыши. При возникновении этих событий, процедура обработки события, возвращает параметр e As System.Windows.Forms.MouseEventArgs .
Следующая необходимая нам функция определение координат курсора на форме. Нас будут интересовать события формы: MouseMove - перемещение курсора мышки на форме, MouseDown – нажатие кнопки мыши, MouseUp – отпускание кнопки мыши. При возникновении этих событий, процедура обработки события, возвращает параметр e As System.Windows.Forms.MouseEventArgs .
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Параметр e является составным типом и его значение е.х – определяет координаты курсора по оси х, а е.y – координаты курсора по оси у.
Параметр e является составным типом и его значение е.х – определяет координаты курсора по оси х, а е.y – координаты курсора по оси у.
Разработаем программу «Карандаш» рис.6.3., рисующую на форме с помощью мышки. Две кнопки на форме выполняют очистку рисунка и выбор цвета карандаша. Щелчок кнопкой мыши включает и выключает режим рисования. Рисование происходит в событии MouseMove формы, путём отображения круга размером 2 пикселя в точке позиционирования курсора.
Разработаем программу «Карандаш» рис.6.3., рисующую на форме с помощью мышки. Две кнопки на форме выполняют очистку рисунка и выбор цвета карандаша. Щелчок кнопкой мыши включает и выключает режим рисования. Рисование происходит в событии MouseMove формы, путём отображения круга размером 2 пикселя в точке позиционирования курсора.
Рис. 6.3. Окно программы «Карандаш»
Public Class Form1
Dim GR As Graphics, P As Pen, K As Boolean
Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
End
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
K = False
GR = Me.CreateGraphics
P = New Pen(Color.Red, 2)
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Handles Me.MouseMove
If K = True Then GR.DrawEllipse(P, e.X, e.Y, 2, 2)
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
If K = False Then K = True Else K = False
End Sub
Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
Cdl1.ShowDialog()
P.Color = Cdl1.Color
Bt1.BackColor = Cdl1.Color
End Sub
Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
GR = Me.CreateGraphics
End Sub
Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click
GR.Clear(Me.BackColor)
End Sub
End Class
Поскольку рисование выполняется фигурой круг, то при быстром перемещении курсора мы увидим прерывистую линию. Устраним этот недостаток в ходе выполнения домашнего задания.
Поскольку рисование выполняется фигурой круг, то при быстром перемещении курсора мы увидим прерывистую линию. Устраним этот недостаток в ходе выполнения домашнего задания.
Домашнее задание:
Домашнее задание:
1. Добавить возможность изменения ширины линий.
1. Добавить возможность изменения ширины линий.
2. Устранить прерывистость линии при рисовании.
2. Устранить прерывистость линии при рисовании.
Google Sites
Report abuse