Тексты процедур обработки событий для формы Form1

Private Sub Form_ Load()    'процедура загрузки формы

'цвета карандаша хранится в свойстве Tag формы Form1 Form1.Tag=Form2.ForeColor ‘цвет карандаша = цвету переднего плана формы

Text3.Text = Form2.DrawWidth 'первоначальное значение ширины линии

End Sub

Private Sub Command1_Click()                       ‘обработка кнопки “Открыть ”

CommonDialog1.Filter = “Рисунки BMP|*.bmp|Рисунки ICO|*.ico|“ & _

“Рисунки CUR|*.CUR|Все файлы|*.*“               ‘фильтр отбора файлов

CommonDialog1.DialogTitle = “Выберите файл с рисунком“

CommonDialog1.ShowOpen                              ‘вывод окна и выбор файла

Form2.Picture = LoadPicture(CommonDialog1.FileName) ‘загрузка рисунка

End Sub

Private Sub Command2_Click() ‘обработка кнопки “Сохранить”

CommonDialog1.Filter = “Рисунки BMP|*.bmp|Рисунки ICO|*.ico|” & _

“Рисунки CUR|*.CUR“                                                ‘фильтр отбора файлов

CommonDialog1.DialogTitle=“Выберите или введите имя файла“

CommonDialog1.ShowSave                                       ‘вывод окна и выбор файла

If CommonDialog1.FileName <>”” then _

SavePicture Form2.Image, CommonDialog1.FileName ‘сохранение рисунка

End Sub

Private Sub Command3_Click() 'обработка кнопки “Очистить“

Form2.Picture = LoadPicture()   ‘удаление рисунка с формы Form2

Form2.Cls                                   'очистка формы

End Sub

Private Sub Command4_Click() 'обработка кнопки “Выход“

End 'закончить выполнение программы

End Sub

Private Sub Command5_Click() 'обработка кнопки “Помощь“

MsgBox (“Левая кнопка мыши-рисовать“+Chr(13)+“правая-стирать“+Chr(13)+ _ “щелчок на поле цвет-изменить цвет“) 'вывод текста помощи

End Sub

Private Sub Command6_Click() 'обработка кнопки “Диалог“

CommonDialog1.Flags = cdlCCRGBInit 'диалог выбора цвета (п.8.4.4)

CommonDialog1.ShowColor              'вывод окна настройки цвета (рис.8.4.4.1)

Text1.BackColor = CommonDialog1.Color 'установка цвета фона поля Text1

End Sub

Private Sub Command7_Click() ‘обработка кнопки “Экран ”

Form2.Show                               ‘вывод формы Form2 для рисования

End Sub

Private Sub HScroll1_ Change() 'фиксация ползунка в полосе прокрутки

'оперативное изменение цвета фона поля Text1 на текущий RGB-цвет

Text1.BackColor = RGB(HScroll1.Value, Slider1.Value, Val(Text2.Text))

End Sub

Private Sub HScroll1_Scroll() 'движение ползунка в полосе прокрутки

HScroll1_Change 'выполнение процедуры по изменению цвета фона Text1

End Sub

Private Sub Slider1_Change() 'процедура фиксации ползунка Slider1

HScroll1_Change 'выполнение процедуры по изменению цвета фона Text1

End Sub

Private Sub Slider1_Scroll() 'процедура перемещения ползунка Slider1

HScroll1_Change 'выполнение процедуры по изменению цвета фона Text1

End Sub

Private Sub Text2_Change() 'изменение значения поля Text2

HScroll1_Change 'выполнение процедуры по изменению цвета фона Text1

End Sub

Private Sub Text3_Change() 'изменение значения поля Text3

'при ошибке в поле Text3 помещается значение 1

If Val(Text3.Text) = 0 Then Text3.Text = 1

Form2.DrawWidth = Text3.Text 'изменение толщины линии

End Sub

Private Sub Text1_Click() 'щелчок мышки на поле Text1 (смена цвета)

If Option1.Value Then                'режим изменения цвета карандаша

Form1.Tag = Text1.BackColor 'установить RGB-цвет карандаша

Else                                            'режим изменения цвета фона формы

Form2.BackColor = Text1.BackColor 'цвет фона формы=цвету фона Text1

End If

End Sub

Тексты процедур обработки событий для формы Form2

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)          ‘процедура обработки нажатия мышки

Form2.CurrentX = X: Form2.CurrentY = Y 'запоминание координат мышки

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _

  X As Single, Y As Single) ‘процедура обработки перемещения мышки

Form2.AutoRedraw = True 'восстановление рисунка после его удаления

If Button = 1 Then             'нажата левая кнопка мыши

'рисование линии цветом Form1.Tag

Form2.Line(Form2.CurrentX, Form2.CurrentY) - (X, Y), Form1.Tag

ElseIf Button = 2 Then      'нажата правая кнопка мыши

'рисование линии цветом фона формы - стирание нарисованной линии

Form2.Line (Form2.CurrentX, Form2.CurrentY)-(X, Y), Form2.BackColor

End If

End Sub

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

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

1. Когда наступает событие MouseDown?

2. Каково назначение свойств формы CurrentX, CurrentY?

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

1. Какие действия выполняет метод Move?

2. Когда наступает событие DragDrop?