Учебник по Visual Basic 5.0


Описание



Описание

0

(Используется по умолчанию.) Размер и положение элемента могут быть произвольными.

1

Линейка расположена наверху формы и имеет ширину, равную ширине формы.

2

То же самое, но линейка расположена снизу от формы.

3

Линейка выровнена по левому краю формы, а ее высота равна высоте формы.

4

То же самое, но линейка выровнена по правому краю формы.


 
     


 

    Точно так же, как и в случае с полосой прокрутки, можно, изменяя свойства Min и Мах, установить границы изображаемой линейки прогресса. Свойство Value определяет текущую позицию прогресса.

Совет:


Совет:

Для того чтобы изобразить большее количество блоков внутри линейки, можно уменьшить высоту или увеличить ширину управляющего элемента.


    Рассмотрим пример: пусть необходимо изобразить количество времени, прошедшего с начала какого-нибудь процесса. Для этого создадим элемент управления таймером, метку и линейку прогресса.


    Теперь установим для свойства Min значение 0, а для свойства Мах - значение 60. Свойство Interval для элемента управления таймером следует установить в 1000 (что соответствует 1 секунде). Тогда следующий фрагмент кода будет изображать при помощи линейки прогресса прошедшее время (в секундах).


    Private Sub Timerl_Timer ()


            Static Progress As Integer


            Progress = (Progress + 1) Mod 60


            Labell.Caption = Str$(Progress) & " seconds elapsed."


            ProgressBarl.Value = Progress


    End Sub




- Начало -  - Назад -  - Вперед -