VBA_2
методическая разработка
Предварительный просмотр:
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2
Тема: Основные объекты управления и их свойства
Цель: Получить навыки работы с объектами метка, текстовое окно и рамка
Порядок выполнения
- Загрузите Visual Basic
- Установите на форме следующие объекты и измените им свойства
Объект | Свойство | Значение |
Метки | Caption | Ваше имя |
Font | Размер 10, полужирный | |
Caption | Ваша фамилия | |
Font | Размер 10, полужирный | |
Name | LblHello | |
Caption | (отсутствует) | |
BorderStyle | 1 | |
Alignment | 2 | |
Командные кнопки | Name | CmdHello |
Caption | Приветствие | |
Name | CmdCls | |
Caption | Очистить | |
Текстовые окна | Name | TxtFam |
Text | (отсутствует) | |
Name | TxtName | |
Text | (отсутствует) | |
Рамка | Name | Frame1 |
Caption | (отсутствует) |
- Приведите свою форму в соответствие с образцом
- Самостоятельно измените значения свойств Backcolor, ForeColor, Font для меток и текстовых окон
- В окне кода процедуры обработки события Click для объекта CmdHello набрать
Frame1.Caption = "Приветствую тебя, о мудрейший"
LblHello.Caption = txtFam.Text + " " + txtName.Text
- В окне кода процедуры обработки события Click для объекта CmdCls набрать
Frame1.Caption = " "
LblHello.Caption = " "
txtName.Text = " "
txtFam.Text = " "
- Проверьте работу программы на различных входных данных. Остановите работу программы
- Установите для метки LblHello автоподстройку размера, для этого:
- выделите метку
- установите для свойства AutoSize значение True
- Проверьте работу.
- Остановите работу программы. Измените для свойства AutoSize значение False
- Установите блокировку редактирования для текстового окна TxtFam, для этого:
- выделите текстовое окно
- в окне свойств для свойства Locked установите значение True
- Проверьте работу программы.
- Остановите работу программы. Отмените блокировку (самостоятельно)
- Установите ограничение на количество символов для окна txtName, для этого:
- выделите окно
- в окне свойств для свойства MaxLength установите значение 10
- Установите разрешение на ввод нескольких строк для поля txtFam, для этого:
- выделите поле
- для свойства MultiLine установите значение True
- для свойства ScrollBars установите значение 1 (2, 3)
- Проверьте работу программы.
- Добавьте на форму еще одну метку (LblInfo) и командную кнопку (cmdInfo)
- В окне кода процедуры обработки события Click для объекта CmdInfo набрать:
LblInfo.Caption = txtFam.SelText
- Проверьте работу программы:
- введите любой набор символов в поле txtFam ,
- с помощью мышки выделите произвольный фрагмент;
- щелкните по кнопке cmdInfo
- Измените программу для кнопки cmdInfo
LblInfo.Caption = txtFam. SelLength
- Проверьте работу программы (см. п. 19)
- Сделайте еще одно изменение в этой же программе и проверьте работу
LblInfo.Caption = txtFam. SelStart
- Результат показать преподавателю.