История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Топ:
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Устройство и оснащение процедурного кабинета: Решающая роль в обеспечении правильного лечения пациентов отводится процедурной медсестре...
Интересное:
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Дисциплины:
2022-10-29 | 25 |
5.00
из
|
Заказать работу |
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?
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Состав сооружений: решетки и песколовки: Решетки – это первое устройство в схеме очистных сооружений. Они представляют...
Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!