ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Краткие теоретические сведения.
Лабораторная работа № 10 4 часа
VBA: переключатели.
Цель работы: изучить свойства элемента управления Переключатель; использовать его для решения задач.
Краткие теоретические сведения.
Элемент управления OptionButton (переключатель) создается с помощью кнопки Переключатель (OptionButton). Он позволяет выбрать, один из нескольких взаимоисключающих параметров или действий. Переключатели обычно отображаются группами, обеспечивая возможность выбора альтернативного варианта.
Приведем наиболее часто используемые свойства элемента управления OptionButton.
| Value | Возвращает True, если переключатель выбран и False в противном случае |
| Enabled | Допустимые значения: True (пользователь может выбрать переключатель) и False (в противном случае) |
| Visible | Допустимые значения: True (переключатель отображается во время выполнения программы) и False (в противном случае) |
| Caption ................................................... | Надпись, отображаемая рядом с переключателем |
Основными событиями переключателя являются события Click и Change.
Пример:
Разработать программу выполнения одной из четырех арифметических операций над двумя числами по выбору пользователя. Исполняемая операция устанавливается за счет выбора соответствующего переключателя.
Рис.: Использование переключателей.
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = TextBox1.Value
b = TextBox2.Value
If OptionButton1.Value = True Then
c = a + b
End If
If OptionButton2.Value = True Then
c = a - b
End If
TextBox3.Value = c
End Sub
Содержание отчета
1. Текст задания.
2. Алгоритм решения задачи.
3. Текст программы.
Не нашли, что искали? Воспользуйтесь поиском: