Строка состояния

Строка состояния создается управляющим элементом StatusBar. Управляющий элемент StatusBar входит в группу общих элементов управления Microsoft Windows Common Controls 6.0

Помещенный в форму элемент StatusBar автоматически размещается в нижней части формы, растягиваясь на всю ширину.

Строка состояния состоит из набора панелей. Каждая панель является отдельным объектом с собственными свойствами. Добавление панелей в строку состояния выполняется в окне Property Pages (странице свойств) на вкладке Panels. Для добавления панели предназначена кнопка Insert Panel.

Свойства панели:

Text – определяет текст, который будет использоваться в текстовой панели.

ToolTipText – задает текст всплывающей подсказки.

Key – идентификатор панели.

Alignment – определяет выравнивание текста на панели.

MinimumWidth – устанавливает минимальный размер панели;

Picture – задает графическое изображение, которое будет получено на панели.

Bevel – определяет тип затемнения для имитации объемности панели (sbrNoBevel – плоская, sbrInset – вдавленая, sbrRaised – выпуклая.

AutoSize – определяет принцип управления размером панели из программы. Может иметь значения:

sbrAutoSize – размер панели в этом случае равен значению свойства MinWidth;

sbrContents – размер панели будет зависеть от её содержимого;

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

Style – определяет тип создаваемой панели. Возможны стили:

0 – sbrText – позволяет отобразить текст или растровое изображение, указанные в свойствах Text и Picture;

1 – sbrCaps – позволяет отобразить индикатор состояния клавиатуры CapsLock;

2 – sbrNum – отображает состояние клавиши NumLock;

3 – sbrIns – отображает состояние клавиши Ins;

4 – sbrScrl – отображает состояние клавиши ScrollLock;

5 – sbrTime – выводит текущее время;

6 – sbrDate – выводит текущую дату.

Управление панелями строки состояния из кода программы

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

Методы коллекции Panels:

Add – создаёт новую панель в строке состояния;

Remove – удаляет панель из строки состояния;

Clear – удаляет все панели из строки состояния.

Пример создания панелей в форме Student:

Public Sub Form_load()

…

StatusBar1.Panels.Add_1, “panText”,_

“Ввод данных о студенте”,sbrText

StatusBar1.Panels(1). AutoSize = sbrSpring

StatusBar1.Panels. Add,,,sbrDate

…

End Sub