Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом -
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 11
|
|
Тема: Параметры выделенного текста, использование буфера обмена
Цель: Закрепить навыки использования свойств Windows и разработки интерфейса
Постановка задачи: Разработать приложение «Текстовый редактор», позволяющий копировать, перемещать выделенный контекст, форматировать, осуществлять поиск и замену в тексте.
Порядок выполнения:
1. Открыть новый проект
2. Установите для Form1 следующие параметры:
Caption Мой текстовый редактор
Height 4000
Left 1095
Name frmMain
Top 1170
Width 5000
3. Сохраните проект под именем BASICTXT
4. Добавьте на форму текстовое окно и установите следующие параметры:
FontSize 18
Height 3600: Width 4870
Left 0: Top 0
Name txtEditBox
Scrollbars 2-Vertical
Text отсутствует
MultiLine True
5. Загрузить проект, набрать произвольный текст. Нажать 10 раз Enter (текст скроется из виду). Разверните окно (текстовое окно не увеличилось вместе с окном формы). Введите еще одну фразу. С помощью прокрутки верните на экран первоначальный текст. Остановите работу программы.
6. Для того, чтобы размер текстового окна менялся вместе размером формы в процедуру Form_Resize вставьте следующие строки:
txtEditBox.Height = ScaleHeight
txtEditBox.Width = ScaleWidth
7.Сохраните проект. Загрузите его. Разверните окно на весь экран, Обратите внимание на изменения в работе программы. Остановите программу.
8.Создать на форме следующее меню:
|
П равка
вырезать
копировать
вставить
найти
заменить
——————
Выход Ctrl+Q
9. Для пункта меню Выход ввести программный код.
10. Для пункта меню Вырезать ввести программный код:
Clipboard.Clear ' очистим буфер обмена
' поместить выделенный текст в системный буфер обмена
Clipboard.SetText txtEditBox.SelText
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
txtEditBox.SelText = " " 'очистить выделенный текст
11. Самостоятельно написать код для пункта Копировать.
12. Для пункта Вставить набрать программный код:
txtEditBox.SelText = Clipboard.GetText()
13. Загрузить программу и проверить правильность выполнения пунктов Вырезать, Копировать и Вставить
14. Для пункта меню Поиск и для него ввести программный код:
Find = InputBox(" Что ищем? ", " Поиск")
If Find = " " Then Exit Sub
LenFind = Len(Find)
LenS = Len(TxtEditBox.Text)
For I = TxtEditBox.SelStart To LenS
TxtEditBox.SelStart = I
TxtEditBox.SelLength = LenFind
If TxtEditBox.SelText = Find Then Exit Sub
Next I
16. Загрузить программу и проверить выполнение пункта Поиск. Измените программу так, чтобы, независимо от текущей позиции курсора в тексте, поиск осуществлялся с начала текста. Сохранить проект.
17. Добавить в пункт Правка подпункт Выделить все и написать для него программный код самостоятельно (установить курсор в начало текста, определить количество введенных символов, выделить все символы). Проверить правильность работы программы
19. Для каждого пункта Формат набрать программный код, меняющий параметры текстового окна.
20. Проверить работу программы. Сохранить проект.
21. Написать программный код для пункта Заменить:
Find = InputBox(" Что ищем? ", " Замена")
zam = InputBox(" Чем заменим? ", " Замена")
If Find = " " Then Exit Sub
LenFind = Len(Find)
LenS = Len(TxtEditBox.Text)
For I = TxtEditBox.SelStart To LenS
TxtEditBox.SelStart = I
TxtEditBox.SelLength = LenFind
If TxtEditBox.SelText = Find Then
TxtEditBox.SelText = zam
|
|