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

Объекты vb. ScroolBar

 
 

Как ты наверное понял СкрулБар - это полоса прокрутки(ScroolBar), но у тебя возникает вопрос: "А нафига они нужны?" - ты прав, они не нужны, но поскольку Злой Дядька Билл Гейц ввел их в пакет VB, то мне как порядочному челу придется децл рассказать тебе о них. Всего в мире есть 2 вида скрулбаров - это скрулбар горизонтал, и вертикал.
Теперь о свойствах:

У них обоих есть свойство Value, LargeChange, SmallChange, и TabStop, и кроме этих свойств у них помойму больше ничего нормального нет. Вот их значения:

  1. LargeChange - это свойство нужно для установки скорости передвижении ползунка, если нажимать на саму полосу прокрутки, ну короче смотри сам.
  2. SmallChange - а вот это свойство отвечает за скорость передвижения ползунка, при нажатии на скрулбаровскую кнопку (их всего две Скрулбаровская кнопка
  3. Value - ну это свойство самое главное, без него скрулбары вообще были не нужны, оно определяет где находится ползунок. 
  4. TabStop - это свойство заставляет ползунок мигать - убери его.

Ну от фигни, перейдем к делу - сделаем программу. Ну, как всегда войди в VB(Standart EXE), на форму кинь 1 скрулбар горизонтал(LargeChange = 1000,SmallChange = 1000, TabStop = FALSE), и кнопку. Наша цель сделать такую программу, чтоб при передвижении ползунка скрулбара, кнопка тоже передвигалась.

Подумай сам как это сделать, а если в бошку ни чего не придет смотри ниже код:

Private Sub HScroll1_Change() ' При движение ползунка(Change - изменять, менять):
Command1.Left = HScroll1.Value / 11 ' Кнопка будет равна ползунку (здесь я написал /11,ты можешь отрегулировать как захочешь, чем меньше ты напишешь, тем кнопка будет дальше двигаться)
End Sub

Есть вопросы? Спроси на нашем форуме!!
лол [31.01.2010 18:53]

а как вертикальный делать?

Гость [01.10.2010 23:30]

Private Sub VScroll1_Change()

Command1.Top = VScroll1.Value / 11

End Sub

Гость [01.10.2010 23:31]

Private Sub VScroll1_Change()

Гость [01.10.2010 23:31]


Command1.Top = VScroll1.Value / 11

Гость [01.10.2010 23:31]


End Sub

Гость [01.10.2010 23:32]

я так сделал.

Андрей [11.04.2011 17:25]

Лучше ставить не Private Sub HScroll1Change(),
а Private Sub HScroll1
Scroll(),
если в первом случае всё меняетсо после того как мы отпустим,то во втором паралельно с прокруткой будет меняться и значение

CeazeR [05.03.2013 01:35]

а как зделать штоб такст в поле двигалса,а не поле з текстом!!!?

Samou4120 [05.03.2013 21:07]

Private Sub HScroll1_Scroll() и правда актуальней

-VB-20 [13.03.2014 16:02]

Private Sub HScroll1Change()
Command1.Left = HScroll1.Value / 11
End Sub

Правильней было бы наверное вот так:

Private Sub HScroll1
Change()
Command1.Left = HScroll1.Value / -11
End Sub

-VB-20 [13.03.2014 16:02]

Private Sub HScroll1Change()
Command1.Left = HScroll1.Value / 11
End Sub

Правильней было бы наверное вот так:

Private Sub HScroll1
Change()
Command1.Left = HScroll1.Value / -11
End Sub



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




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