Hi All,
Does anyone out there know how to create a custom scrollbar? I've got a form with 2 picture boxes. I've used the included scrollbars.
The problem arises when I load my form, the height of the picture box may exceed the 32767 limit.

I started thinking that there may be a way to have a command button and when it's clicked on(and the mouse button is held down), the user can drag it down or up, and the top of the scrolling picture on the form goes up and down based on the movement of the mouse.

Please Help.

Thanks in advance.

Kevin

dartcoach

__________________
dartcoach

you do not have to create a custom one.
if the size of the picture is bigger than 32767, set the scrollbar max to 32767, and then scale its value:

correctValue = cdbl(scrollbar.value) * pictureSize / 32767.0

I use double to avoid math overflow

Thanks marcostraf,
Where do I put this calculation? Also, what do I assign correctValue to?

Thanks again,

Kevin

dartcoach

???
you do not have to assign correctValue, that is computed...

I guess in your Scroll event you shift the picture using scrollbar.Value
well, instead of using that, use the formula I geve to you to get the "real" scrollbar value (i.e. the one associated with the loaded picture)

let me know if I has been more clear this time

marcostraf,

You are correct that I am shifting the picture. That's the only way I know how.
Could you tell me the code in the scroll event I should be using?

Thanks in advance.

Kevin

dartcoach

I already answer your question... sorry for my English, but I cannot be more clear than that

please post a snippet of the code you are using to shift the image, and I'll tell you how to modify it

Private Sub VScroll1_Change()
  Me.Picture1.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
  Me.Picture1.Top = -VScroll1.Value
End Sub

These are the two I currently have.

Thanks again.

Kevin



dartcoach

Private Sub VScroll1_Change()
  Me.Picture1.Top = -cdbl(VScroll1.value) * pictureHeight / 32767.0.Value
End Sub

where picture Height is the height of your image.
remember to set the Max value of the scrollbar to 32767

Marcostraf,

Thanks very much! Got it and it works great!

Thanks again!

Kevin

dartcoach