Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
vba.doc
Скачиваний:
1
Добавлен:
01.07.2025
Размер:
2 Мб
Скачать
☆

Флажок или индикатор (Check Box)

Предоставляет возможность выбора из нескольких не взаимоисключающих альтернатив. Например, работая с различными настройками, мы можем выбрать одну или несколько из них (подключить – не подключать их к работе).

Основные свойства и их значения

Основные свойства

Значение

Name

Chk имя

Caption

Аналогично переключателю

Value

Аналогично переключателю

Triple State

Тройное состояние, позволяет сделать выбор из 2х или 3х альтернатив: Если значение FALSE – выбор из 2х альтернатив в свойстве Value – TRUE или FALSE. Если значение TRUE – выбор из 3х альтернатив в свойстве Value: а) пусто; б) TRUE; в) FALSE.

Основные события:

Сlick

Щелчок на флажке

Сhange

Изменение состояния флажка

Полоса прокрутки (ScrollBar)

Полоса прокрутки предназначена для установки числового целочисленного значения из некоторого заданного целочисленного диапазона. В качестве начала и конца могут браться целые числа от -32768 до +32767.

Основные свойства и их значения

Основные свойства

Значения

Name

scr имя.

Value

возвращает или устанавливает текущее значение полосы прокрутки. Соответствует положению бегунка

Min

минимальное значение полосы.

Max

максимальное значение полосы.

Small change

устанавливает шаг изменения при щелчке на одной из стрелок полосы прокрутки.

Large сhange

устанавливает шаг изменения при щелчке между ползунком и одной из стрелок.

Orientation

авто(-1) по расположению во время проектирования (0)-вертикальная полоса

(+1) - горизонтальная. полоса

Основные события.

Сhange

изменение.

Scroll

прокрутка.

Разница в данных событиях в том, что событие - сhange – наступает, когда «отпустили» бегунок, а scroll– когда тянем бегунок.

Элемент управления Счётчик(SpinButton) – по сути, полоса прокрутки без бегунка. Свойства счётчика аналогичны свойствам полосы прокрутки(Value, Min, Max, Small change,). Основное событие сhange

Пример1. Программа «скорость».

При запуске программы должно появиться окно вида:

Программа «скорость» показывает как работать с полосой прокрутки и переключателями. При движении ползунка скорость может меняться от 0 до 100 км/час. Если переключатель стоит в положении «миль/час», то скорость пересчитывается милях в час (1 миля = 1,6 км)

Таблица основных объектов, их свойств и значений.

Объект

Свойство

значение

Форма

Name Caption

Frmspeed Программа «Скорость»

Кнопка

Name Caption

Cmdexit выход

Полоса прокрутки

Name min max value smallchange largechange

Scrspeed 0 100 50 1 10

Поле

Name text

Txtspeed 50км/час

Переключатель

Name Caption value

Optkm км/час True

Переключатель

Name Caption value

Optmile миль/час False

Занесем на форму все указанные элементы управления, изменив свойства объектов соответственно таблице свойств.

Пишем коды программ.

‘Щелчок на кнопке «выход».

Private Sub cmd Exit_Click

End

End Sub

‘Щелчок на переключателе «км/час»

Private Sub optkm_click()

‘информация берётся из свойства value

‘объекта полоса прокрутки Scrspeed

txtspeed.text=scrspeed.value & “км/час”

End sub

‘Щелчок на переключателе «миль/час»

Private Sub optmile_click()

‘информация берётся из свойства value

‘объекта полоса прокрутки Scrspeed

txtspeed.text=(scrspeed.value/1.6) & “км/час”

End sub

‘Работаем с полосой прокрутки

‘Событие – изменение положения бегунка или щелчок на кнопке изменения положения

‘Private Sub scrspeed_change()

If optkm.value = True Then

txtspeed.text=scrspeed.value & “км/час”

else

txtspeed.text=(scrspeed.value/1.6) & “км/час”

End Sub

‘ Событие «движение(прокрутка) бегунка»

‘Private Sub scrspeed_Scroll()

‘вызов процедуры scrspeed_change

scrspeed_change

End Sub

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]