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

Компоненты VB. Компонент Microsoft Windows Common Control 6.0

 
 

В этом компоненте есть много всякой всячины, но самые нормальные это 2 объекта: Slider и ProgressBar. И мы сейчас сделаем программу. Подключи этот компонент, но форму кинь Slider и ProgressBar, и таймер. Вот что у тебя должно получиться:

Теперь о свойствах:

Value - это свойство есть у обоих объектов, у Slider это положение ползунка, т.е. если Value = 5 то ползунок будет на 5 отметен. А у ProgressBar это синий квадрат. Max - это свойство есть тоже у обоих объектов, у Slider это сколько будет отметен, а у ProgressBar это вместимость.
Ну а остальные свойства ты уже должен знать. Теперь код:

Dim x As Long ' Объявляем переменную для хранения чисел

Private Sub Form_Load()
x = 0
End Sub

Private Sub Slider1_Click()
x = Slider1.Value ' При передвижении ползунка x будет равен положению ползунка
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error: ' Если происходит ошибка то пропускаем это место
ProgressBar1.Value = ProgressBar1.Value + x ' Если отжата то выключаем
Error:
If Err.Number = 380 Then ProgressBar1.Value = 0 ' Если отжата то выключаем
End Sub

Есть еще свойство Scrolling, если оно будет равным 1 ccScrollongSmooth то объект ProgressBar изменит свой вид.

Исходник качай здесь


Есть вопросы? Спроси на нашем форуме!!
Пётр [02.12.2010 20:34]

Непонял откудо взять прогресс бар и Ползунок, у меня токо какойто телефон добавляется!

Пётр [02.12.2010 21:47]

Понял, я спутал с windows comn Control

lLorD [20.05.2011 15:02]

Я спочатку тоже нето добавил=))

ЭдикS@N [02.12.2011 12:26]

фигня код просто не работает.

Валера =)) [23.05.2012 05:12]

Подскажите как сделать чтоб прогрес бар был равен значению таймера

Release [23.05.2012 15:36]

У таймера нет значения.

Дмитрий [05.08.2012 13:02]

Подскожите пожалусто, как можно сделать програссбар на момент времени загрузки формы или программы. буду признателен если ответите на мыло:
assei@mail.ru
С Уважением Дмитрий!

Samou4120 [08.03.2013 18:56]

Код работает!

нужно лишь установить таймеру интервал 300 например

Ivan40 [23.07.2013 20:31]

Точно! У меня как и у Петра: какой-то телефон добавляется, а 2 искомых компонентов нет. Где их найти?



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




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