Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Работа со строкой состояния

Читайте также:
  1. g. Если работает на табачном проекте, в первую очередь спрашиваем, курит ли человек
  2. I. Историческая работа сообразно её материалам
  3. II. Групповая работа
  4. II. Историческая работа сообразно её формам 1 страница
  5. II. Историческая работа сообразно её формам 2 страница
  6. II. Историческая работа сообразно её формам 3 страница
  7. II. Историческая работа сообразно её формам 4 страница

Давайте дополним пример 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

 

6. Вставьте следующий фрагмент под блоком 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 изображена строка состояния с тремя панелями. На левой панели выводится количество объектов в табличном списке. В средней панели выводится текущее время, а в правой — дата.

Аналогичным образом можно настроить строку состояния для ваших собственных приложений. Все зависит только от вашего воображения!

 

Рис. 3.24. Строка состояния в программе Object Explorer

 


Дата добавления: 2015-07-20; просмотров: 86 | Нарушение авторских прав


Читайте в этой же книге: Свойства списков файлов | Работа со списками файлов | Добавление других элементов на панель | Интерфейс в стиле Windows 95 | Вкладка General | События деревьев | Свойства табличных списков | Вкладка General | События табличных списков | Все вместе |
<== предыдущая страница | следующая страница ==>
Строка состояния| Что нового мы узнали?

mybiblioteka.su - 2015-2024 год. (0.006 сек.)