Программирование
Веб программирование

Пример работы с ProgressBar

 
 
Option Explicit
Dim lngTime As Long
Private Sub Command1_Click()
Me.Timer1.Interval = (100)
Me.Command1.Enabled = (False)
End Sub
Private Sub Form_Load()
Me.Caption = ("Test") 'Имя заголовка формы
Me.Command1.Caption = ("Start") 'Надпись кнопки

'Устанавливаем свойства для ProgressBar1
With Me.ProgressBar1
.Min = (0): .Max = (100) 'Устанавливаем минимальное и максимальное значения
.Value = (0) 'По умолчанию ставим с нуля
.Appearance = (0): .BorderStyle = (1): .Scrolling = (1)
End With
End Sub
Private Sub Timer1_Timer()
lngTime = (lngTime + 1)

Me.ProgressBar1.Value = (lngTime)

If lngTime = (100) Then
Me.Timer1.Interval = (0) 'Устанавливаем интервал таймера на ноль

lngTime = (0) 'Обнуляем переменную

Me.Command1.Enabled = (True)

Me.ProgressBar1.Value = (0) 'Устанавливаем с нуля

Exit Sub
End If
End Sub

Есть вопросы? Спроси на нашем форуме!!
Release [08.04.2012 20:32]

Половину свойств можно установить через свойства

Release [08.04.2012 20:36]

А ну все sorry.. Понял для чего ты так сделал

qwer [15.11.2012 05:17]

Спасибо.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.