Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
-
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2. Цель: Получить навыки использования событий MouseDown, MouseUp, MouseMove
|
|
Тема: События мышки
Цель: Получить навыки использования событий MouseDown, MouseUp, MouseMove
Порядок выполнения
1. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Переключатели Caption (отсутствует) Style - Graphical | Name | OptCD |
| Name | OptDisk5 | |
| Name | OptDisk3 |
2. Приведите свою форму в соответствие с образцом (измените свойство Picture)
 |
3. В окне кода процедуры обработки события MouseDown для объекта Form набрать:
If OptCD.Value = True Then OptCD.Move X, Y
If OptDisk5.Value = True Then OptDisk5.Move X, Y
If OptDisk3.Value = True Then OptDisk3.Move X, Y
4. Проверьте работу программы: выберите один из переключателей и выполните несколько щелчков в свободном месте на форме
5. Измените программу – переместите программу из Form_MouseDown в Form_MouseUp
6. Определите разницу в работе программы.
7. Добавьте на форму текстовое окно (Text1)
8. В окне кода процедуры обработки события MouseMove для объекта OptCD набрать
Text1.Text = " Это CD ROM"
9. В окне кода процедуры обработки события MouseMove для объекта OptDisk3 набрать
Text1.Text = " Это 3-х дюймовая дискета"
10. В окне кода процедуры обработки события MouseMove для объекта OptDisk5 набрать
Text1.Text = " это 5-ти дюймовая дискета"
11. Проверьте работы программы
12. Измените программу для того, чтобы при движении курсора мышки по форме в текстовом окне не было сообщения
13. Результат показать преподавателю
|
|