Рамка (Frame). Информационные технологии в менеджменте

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

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

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

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

Список (ListBox)

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

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

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

Addltem — добавление нового элемента:

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

где параметр Элемент задает добавляемый элемент списка; с помощью параметра Индекс указывается место вставки в список нового элемента.

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

Пример Создание списка разрядов: Private Sub Form_Load () IstRasr. Addltem «10» IstRasr. Addltem «11» IstRasr. Addltem «12» IstRasr. Addltem «13» IstRasr. Addltem «14» IstRasr. Addltem «15» IstRasr. Addltem «16» IstRasr. Addltem «17» .

End Sub.

Removeltem — удаление элемента из списка:

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

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

ListBox.Clear.

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

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

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

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

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

ListCount — текущее количество элементов в списке.

Пример Обработка содержимого всех элементов списка в цикле: For i =0 to IstBox. ListCount-1 ' обработка IstBox. List (i).

Next i.

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

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

• 0 — обычный список;
• 1 — одна колонка с горизонтальной линейкой;
• 2 — две колонки.

MultiSelect — одновременный выбор нескольких элементов списка:

• 0 — множественный выбор невозможен;
• 1 — простой множественный выбор. Элементы списка выбираются щелчком мыши или нажатием Space;
• 2 — расширенный множественный выбор. Пользователь может выбрать несколько элементов с помощью мыши или клавиш управления курсором с использованием клавиш Shift и Ctrl.

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

Пример

For i = 0 to IstBox. ListCount-1 If IstBox. Selection (i) then ' обработка IstBox. List (i) EndEf Next i.

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

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

Private Sub Form_Load ().

Open «Stud» For Random As#l Len=Len (Stud).

For i=l to LOF (1) Len (Stud).

Get #1, i, Stud LstFam. Addltem Stud.Fam.

LstFam.ItemData (IstFam.Newlndex) =Stud.NomSt.

Next.

End Sub.

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

Private Sub lstFam_Click ().

¹ Действие над значением — номер зачетной книжки, полученным после выбора фамилии студента из списка n =IstFam.ItemData (IstFam.Listlndex).

End Sub.