Основные свойства панелей строки состояния

Имеется восемь основных свойств панелей строки состояния, которые определяют их внешний вид и функции.

Text – определяет текст, который будет появляться в текстовой панели. Этот текст выводится обычно в процессе выполнения программы;

ToolTipText – текст подсказки, который появляется при зависании указателя мыши над панелью;

Alignment – Управляет выравниванием текста в панели: слева, справа или по центру;

Style – определяет тип создаваемой панели. Можно установить семь типов панелей: sbrText- позволяет отобразить текст или растровое изображение, указанные соответственно в свойствах Text или Picture панели строки состояния; sbrCaps – отображает состояние клавиши CapsLock; sbrNum - отображает состояние клавиши NumLock; sbrIns - отображает состояние клавиши Insert; sbrScrl - отображает состояние клавиши ScrolLock; sbrTime – отображает текущее время; sbrDate – отображает текущую дату.

Bevel – Определяет тип затенения для имитации объемности панели;

AutoSize – определяет принцип управления размером панели из прогрпаммы;

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

Picture – позволяет поместить изображение в строку состояния.

Управление панелью состояния

На этапе разработки добавление и удаление панелей осуществляется с помощью кнопок: Insert Panel – добавление панели и Remove Panel – удаление панелей.

Для управления панелями строки состояния в процессе работы программы используются методы Add, Remove и Clear.

Add – добавить панель. Синтаксис метода:

Add ([Index] [,клавиша] [,текст] [, стиль] [,картинка]) As Panel

Remove – удаление панели. Синтаксис метода:

Remove [Index]

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

Пример 5.7. Вывод текст в строку состояния динамически:

StatusBar1.Panels(1).Text =”Ждите. Идет решение задачи”

Пример 5.8. Управление строкой состояния

Создать строку состояния с одной текстовой панелью. Вывести в нее текст “Моя панель”. Добавить в строку состояния одну текстовую панель, в которую поместите текст “Для продолжения нажмите любую клавишу” и панель для отображения текущего времени (рис. 5.9). Удалять первую текстовую панель по нажатию любой клавиши.

Порядок работы.

• Добавьте на панель элементов управления элемент StatusBar командой Project\Components, установите флажок Microsoft Windows Common Controls 6.0 (SP3) и нажмите Ok.

• Установите свойства Align строки состояния равным 2 – прицеплятся к нижнему краю формы, а свойство Style оставьте без изменения (sbrNormal).

• Вызовите панель Property Pages и откройте закладку Panels.

• Введите в поле Text текущей панели текст “Моя панель”.

• Напишите в обработчики событий Load и KeyPress формы текст программы:

Private Sub Form_Load()

Me.Width = 8000

Me.Height = 1500

Dim S As String

With StatusBar1

'добавляем текстовую панель в левую часть строки состояния

.Panels.Add 2, , "Для продолжения нажмите любую клавишу", sbrText

.Panels(2).AutoSize = sbrSpring

' добавляем панель с текущим временем

.Panels.Add , , , sbrTime

End With

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

' удаляем панель созданную по умолчанию

With StatusBar1

.Panels.Remove 1

End With

End Sub

• Запустите программу и проверьте ее работу.