Основные свойства панелей строки состояния
Имеется восемь основных свойств панелей строки состояния, которые определяют их внешний вид и функции.
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
Запустите программу и проверьте ее работу.