Переключатель (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
Рамка (Frame)
Рамка - это элемент- контейнер. Он предназначен для объединения в группу нескольких элементов управления, например, переключателей. Объекты, объединенные с помощью рамки, можно как единое целое перемещать, активизировать, деактивизировать, делать невидимыми.
Для объединения элементов в группу нужно сначала создать элемент-контейнер, а затем добавить в него нужные элементы управления. Если требуемые элементы управления уже находятся в форме, их достаточно переместить в элемент-контейнер.
Рамка не имеет особых свойств, присущих только ей. При изменении значения свойств рамки, будут изменяться также и значения соответствующих свойств всех входящих в рамку объектов.
Например: Если для рамки свойство Visible равно False, то все входящие в рамку элементы тоже станут невидимыми.
События рамки обычно не анализируются.
Список (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