simulating a scroll bar via picture box... but how to make it continous?

[Abdulrahman]

I have two picture boxes and a multiline textbox (with text in it)..

am using the picture boxes as scroll bars (up and down), using the MouseDown event.

this.. for going down the text box... (3 lines at a time)

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
SendKeys ("{down}")
SendKeys ("{down}")
SendKeys ("{down}")
End Sub

and similar for going up...


anyway... does anyone know a way so that it will contiune to go down (or up) as long as the mouse is down on the pictrue box? instead of having to click repeadidily .... am trying to make it behave like a scroll bar.

Abe

[Mc Brain]

You know that textboxes have Scrollbars, don't you?

[Abdulrahman]

yep

but I want to make my own kind...

idea is to blend the textbox in a nice graphical form... and the standard scroll bar does not look good in it.

Abe

[Mc Brain]

Set a timer on the mousedown event, and disable it on the mouseup event. Call the sub Scroll on the timer's event:

Private Sub Scroll()
  Text1.SetFocus 
  SendKeys ("{down}") 
  SendKeys ("{down}") 
  SendKeys ("{down}") 
End Sub

Do you get the idea, or you need the whole example?

[Abdulrahman]

thanx
got the idea
Abe

[Mc Brain]

U R welcome