Вопросы для самопроверки и контроля

Вопросы для самопроверки

1. Какое свойство позволяет изменить тип линии?

2. Какое свойство определяет тип заполнения прямоугольника?

3. В чем состоит отличие в задании параметров при рисовании дуг и секторов?

Контрольные вопросы

1. Какой метод используется для рисования кривых?

2. Какой метод используется для рисования прямоугольников?

Глава 11. Работаcмышью

11.1. События и методы

Рассмотрим основные события, связанные с мышью. В большинстве процедур координаты текущего положение указателя мышки задаются па­ра­метрами X и Y. Имя объекта, к которому привязано событие, в описании синтаксиса заголовка процедуры обобщенно названо Target.

Событие DragDropнаступает при сбрасывании перемещаемого мышкой объекта. Процедура обработки этого события имеет вид:

Private Sub Target_DragDrop(Source As Control, X As Single, Y As Single)

Параметр Sourceсодержит имя сбрасываемого объекта.

Событие DragOverнаступает при перемещении объекта над другим объектом. Процедура обработки этого события имеет вид:

Private Sub Target_DragOver(Source As Control, X As Single, Y As Single, _

State As Integer)

Source‑ имя перемещаемого объекта,State‑ состояние перемещаемого объекта по отношению к приемнику события: объект входит в границы приемника (0), покидает его границы (1), вне границы (2).

Событие MouseDownнаступает при нажатии кнопки мыши в течение всего времени, пока она нажата. Процедура имеет вид:

Private Sub Target_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

Button‑ указывает на комбинацию нажатых кнопок мыши в виде суммы цифр: 1 (левая кнопка), 2 (правая кнопка) и 4 (средняя).

Shift‑ указывает на комбинацию нажатых клавиш Shift, Ctrl и Alt в виде суммы цифр: 1 (Shift), 2 (Ctrl) и 4 (Alt).

События MouseMove, MouseUp наступают при перемещении мыши над объектом или при отпускании кнопки мыши над объектом соответ­ствен­но. Их парамет­ры совпадают с параметрами MouseDown.

11.2. Перенос объектов

Примерпереноса рисунка Флага России (рис. 11.2.1).

Рис. 11.2.1. Перенос рисунка Флага России

Разместим соответствующие объекты на форме. Для рисунка (объект Image1) зададим свойства: Strerh=True, DragMode=1-Automatic, Tag=”Флаг России”, Picture=VB6\Graphics\Icons\Flags\FlgRus. Для текстового поля Text1 укажем свойства: Alligement=2-Center, Text=””, Multiline=True.

Напишем следующие процедуры обработки событий.

Private Sub Command1_Click() ‘обработка кнопки “Выход”

End ‘выход из программы

End Sub

Private Sub Command1_DragOver(Source As Control, X As Single, _

Y As Single, State As Integer) ‘перенос флага над кнопкой выхода

Text1.Text = ”Переносим ” + Source.Tag + _

”через кнопку выхода. Параметр State = ” & State ‘вывод сообщения

End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

‘размещение флага на новом месте

Text1.Text = ”” ‘очистка поля Text1

Source.Move X, Y ‘перенос флага на новое место

End Sub

Private Sub Form_DragOver(Source As Control, X As Single, _

Y As Single, State As Integer) ‘перенос флага над формой

Text1.Text = ”Переносим ” + Source.Tag + ” Параметр State = ” & State

End Sub