Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
    Начать продвижение сайта
  • ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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. Результат показать преподавателю

     







    © 2023 :: MyLektsii.ru :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.