![]() Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Pic1.Line (x0, y0)-(X, Y)
z = 0 End If 33. Предложите способ рисования ломанной линии ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 10 Тема: Использование буфера обмена и параметров выделенного текста Цель: Получить навыки использования в программе буфера обмена. Постановка задачи: Создать приложение для использования буфера обмена для обмена данными между текстовым окном и комбинированным списком, а также для вставки рисунка, созданного в Paint в окно рисунка.
Порядок выполнения: 1. Откройте новый проект 2. Добавить на форму следующие объекты и установить для них свойства:
3. Набрать код процедуры обработки события Load для объекта Form: 'Заполним комбинированный список cboList.AddItem " Телефон" cboList.AddItem " Рыба" cboList.AddItem " Звонок"
4. Набрать код процедуры обработки события GotFocus для объекта picMyPicture: 'Изменим тип границы окна рисунка при помещении 'на него фокуса picMyPicture.BorderStyle = 1
5. Набрать код процедуры обработки события LostFocus для объекта: picMyPicture 'Изменим тип границы окна рисунка при " потере" им фокуса. picMyPicture.BorderStyle = 0 6. Набрать код процедуры для пункта Копировать Clipboard.Clear 'Очистим буфер обмена 'Поиск выделенного элемента управления и 'помещение его содержимого в буфер обмена If TypeOf Screen.ActiveControl Is TextBox Then Clipboard.SetText Screen.ActiveControl.SelText ElseIf TypeOf Screen.ActiveControl Is ComboBox Then Clipboard.SetText Screen.ActiveControl.Text ElseIf TypeOf Screen.ActiveControl Is PictureBox Then Clipboard.SetData Screen.ActiveControl.Picture End If
7. Набрать код процедуры для пункта Вырезать: 'Выполним процедуру mnuCopy_Click () MnuCopy_Click 'Поиск выделенного элемента управления 'и удаление его содержимого If TypeOf Screen.ActiveControl Is TextBox Then Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок. — Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта. — Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы). — SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание. SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение Screen.ActiveControl.SelText = " " ElseIf TypeOf Screen.ActiveControl Is ComboBox Then Screen.ActiveControl.Text = " " ElseIf TypeOf Screen.ActiveControl Is PictureBox Then Screen.ActiveControl.Picture = LoadPicture() Else End If
8. Набрать код процедуры для пункта Вставить: If TypeOf Screen.ActiveControl Is TextBox Then Screen.ActiveControl.SelText = Clipboard.GetText() ElseIf TypeOf Screen.ActiveControl Is ComboBox Then Screen.ActiveControl.Text = Clipboard.GetText() ElseIf TypeOf Screen.ActiveControl Is PictureBox Then Screen.ActiveControl.Picture = Clipboard.GetData() End If
9. Проверить работу программы, для этого: загрузите программу; сверните ваше приложение; в редакторе Paint создайте рисунок и скопируйте его в буфер обмена; разверните ваше приложение, вставьте рисунок в окно рисунка (оно должно быть выделено). Приложение позволяет также копировать, вырезать, вставлять текст в (из) текстовое окно, комбинированный список. Поэкспериментируйте. 10. Сохраните проект.
|