Робота з рядком стану

Давайте доповнимо приклад Object Explorer з попереднього розділу. Завантажите проект ObjectBrowser командою File > Open з меню Visual Basic.

1. Розмістите рядок стану в нижній частині форми frmMain. Елемент автоматично розтягується на усю ширину форми. Задайте його властивості Name значення stsStatus.

2. Відкрийте вікно програми для події Load форми frmMain.

3. Включите в програму наступний рядок під рядком

Dim cat As Node: Dim pnl As Panel

4. Вставте наступний фрагмент під блоком With..End:

' Додати дві панелі - для дати і часу

With stsStatus.Panels

Set pnl =, Add(sbrTime)

Set pnl =.Add(sbrDate)

End With

5. Перейдіть до процедури події NodeClick елементу tvwCategories і вставте наступний фрагмент над рядком Select Case:

Dim pnl As Panel

Dim sts As String

Вставте наступний фрагмент під блоком Select.. End Select:

' Отримати кількість об'єктів

sts = IvwItems.Listltems.Count & «Об'єктів»

' Відновити рядок стану

With stsStatus. PanelsO)

..Text = sts

End With

7. У процедурі події Form_Resize приведіть два рядки під операторами Move до наступного виду:

tvwCategories.Move О, О, midl, ScaleHeight - stsStatus.Height

lvwltems.Move mid2, 0, ScaleWidth - mid2, ScaleHeight - stsStatus.Height

8. Збережіть і запустіть проект.

На мал. 3.24 зображений рядок стану з трьома панелями. На лівій панелі виводиться кількість об'єктів в табличному списку. У середній панелі виводиться поточний час, а в правій - дата.

Аналогічним чином можна настроїти рядок стану для ваших власних застосувань. Усе залежить тільки від вашої уяви!