Элемент управления ProgressBar

Меню Project – Components – Microsoft Windows Common Control 5.0

В панель инструментов добавляется 8 управляющих элементов. Добавьте в форму элемент Progress Bar:

и напишите код обработки события таймера (предварительно установив интервал 1000, а максимальное значение Max элемента ProgressBar - 60:

Private Sub Timer1_Timer()

Static Progress As Integer

Progress = (Progress + 1) Mod 60

Label2.Caption = Str$(Progress)

ProgressBar1.Value = Progress

End Sub

Запустите программу.

Элемент управления Slider Control (бегунок)

Работает аналогично полосе прокрутки. Отличие от полосы – наличие линейки, что иногда бывает удобнее, чем пустая полоса прокрутки.

Управляющий элемент Status Bar (строка состояния)

Это строка, обычно расположенная в нижней части приложения, в которой указывается текущая информация о состоянии приложения. (В Word, например, в этой строке указывается номер строки, режим вставки или замена и т.д.)

Строка состояния может быть разделена максимум на 16 панелей.

Параметр Text задает текст для области, параметр Style устанавливает метод вывода информации в строке состояния:

SbrText – выводит текст или картинку

SbrCaps, SbrNum, SbrScrl – если соответствующая клавиша нажата, то выводит отчетливо, иначе – приглушенно.

SbrTime, SbrDate – выводит дату или время.

Установите элемент управления в форму.

Щелкните правой кнопкой мыши на элементе и выберите из контекстного меню пункт Properties.

Задайте:

Вкладка General:

Style – SbrNormal

Вкладка Panels:

Text – Панель 1

Щелкните кнопку Insert Panel

Text – Панель 2