8.26.5.Переключатель (OptionButton)

Представляет собой кружок с точкой или без, предназначен для установки только одной опции из группы. Обычно все переключатели формы объединены в одну группу.

События:

Click - щелчок мыши. Это событие вызывается, если пользователь с помощью мыши или клавиш управления курсором выбирает элемент в списке.

Свойства:

Value - состояние переключателя (True или False).

Переключатели чаще всего образуют группу элементов. Создать группу переключателей можно следующими способами:

1. Создать массив переключателей. В этом случае для программирования действий при установке переключателя можно использовать процедуру:

Private Sub optBut1_Click(Index As Integer)

Select Case Index

Case 0

MsgBox “Выбрали первый переключатель”

Case 1

MsgBox “Выбрали второй переключатель”

…

End Select

End Sub

2. Переключатели следует разместить в элементе управление Группа (Frame). Для определения состояния переключателя можно использовать оператор If:

If optBut1=True Then

MsgBox “Выбрали первый переключатель”

Else

MsgBox “Выбрали второй переключатель”

…

EndIf

8.26.6. Рамка (Frame)

Рамка - это элемент- контейнер. Он предназначен для объединения в группу нескольких элементов управления, например, переключателей. Объекты, объединенные с помощью рамки, можно как единое целое перемещать, активизировать, деактивизировать, делать невидимыми.

Для объединения элементов в группу нужно сначала создать элемент-контейнер, а затем добавить в него нужные элементы управления. Если требуемые элементы управления уже находятся в форме, их достаточно переместить в элемент-контейнер.

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

Например: Если для рамки свойство Visible равно False, то все входящие в рамку элементы тоже станут невидимыми.

События рамки обычно не анализируются.

8.26.8. Список (ListBox)

Позволяет пользователю выбирать из списка один или несколько элементов. В любое время в список можно добавлять новые элементы или удалять существующие. Если не все элементы могут одновременно отобразиться в поле списка, то в нем автоматически отображаются полосы прокрутки.

События:

Click - щелчок мыши. это событие вызывается, если пользователь с помощью мыши или клавиш управления курсором выбирает элемент в списке.

Методы:

Необходимы для обработки элементов списка - добавления или удаления.

AddItem - для добавления новых элементов:

ListBox.AddItem Элемент[, Индекс]

Параметр Элемент задает добавляемый элемент списка. С помощью параметра Индекс указывается место вставки в список нового элемента. Данный метод должен вызываться при вставке каждого элемента. Как правило, заполнение списка выполняется при загрузке формы.

Пример: Создание списка разрядов

Private Sub Form_Load()

lstRasr.AddItem "10"

lstRasr.AddItem "11"

lstRasr.AddItem "12"

lstRasr.AddItem "13"

lstRasr.AddItem "14"

lstRasr.AddItem "15"

lstRasr.AddItem "16"

lstRasr.AddItem "17"

End Sub

RemoveItem - для удаления элемента из списка:

ListBox. RemoveItem Индекс_элемента

Индекс_элемента - индекс удаляемого элемента. Индексация начинается с 0.

Clear - для удаления всех элементов списка

ListBox. Clear

Свойства:

Text - текст выбранного элемента списка.

List() - определение текста элементов списка в окне свойств (переход на новую строку в списке выполняется командой Ctrl+Enter).

Sorted - определяет способ расположения элементов в списке (по алфавиту).

ListIndex - определение индекса выбранного элемента. Если в списке не выбран ни один элемент, то значе­ние свойства = -1.

Пример. Обращение по индексу к элементу списка с помощью свойства List()

ls = lstBox.List(lstBox.ListIndex)

ListCount - текущее количество элементов в списке. Используется при обработке содержимого всех элементов списка в цикле.

For i=0 to lstBox.ListCount-1

‘ обработка lstBox.List(i)

Next i

Style – определяет внешний вид списка: стандартный список (0) или список флажков (1).

Columns – определяет количество колонок в тексте:

0 – обычный список;

1 – одна колонка с горизонтальной линейкой;

2 – две колонки.

MultiSelect - одновременный выбор нескольких элементов списка: 0 - множественный выбор невозможен.

1 - простой множественный выбор. Элементы списка выбираются щелчком мыши или нажатием Space

2 - расширенный множественный выбор. Пользователь может выбрать несколько элементов с помощью мыши или клавиш управления курсором с использованием клавиш Shift и Ctrl.

Selected() - показывает, выделен данный элемент списка или нет. Свойство Selected содержит массив значений, соответствующих количеству элементов в списке. Если значение элемента в массиве равно True, то данный элемент выбран.

Пример:

For i=0 to lstBox.ListCount-1

If lstBox.Selection(i) then

‘ обработка lstBox.List(i)

EndEf

Next i

Itemdata – позволяет задать список значений (тип Long Integer), элементы которого соответствуют элементам списка ListBox.

Пример. Создать список lstFam. Элементами списка являются фамилии студентов существующего файла данных. Свойству ItemData присвоить список значений – номера зачетной книжки студентов.

Private Sub Form_Load()

Open “Stud” For Random As#1 Len=Len(Stud)

For i=1 to Lof(1)\Len(Stud)

Get#1,i,Stud

LstFam.AddItem Stud.Fam

LstFam.ItemData(lstFam.NewIndex)=Stud.NomSt

Next

End Sub

‘ Свойства NewIndex содержит индекс последнего добавленного в список элемента

Private Sub lstFam_Click()

‘ действие над значением – номер зачетной книжки, полученным после выбора фамилии студента из списка

n=lstFam.ItemData(lstFam.ListIndex)

End Sub