🚀 go-pugleaf

"Kelly Smith" <power@cable.a2000.nl> wrote in message
news:4irU9.3132$Jf4.396362@amsnews02.chello.com...
> Hoi,
>
> Heeft iemand een idee hoe je een Event Scroll() kunt schrijven? Ik ben
bezig
> een slider te maken (met valuetip). De Click Event wilt nog lukken, maar
de
> scroll heb ik een beetje moeite mee. Het zou de Scroll Event van
> Slider-Control moeten nabootsen.
> Dit is hoe de Click event eruit ziet:
>
> Public Event Click()
> Public Event Scroll()
> ...
> ...
> ...
> Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, x As
> Single, y As Single)
>
>     If (x >= 0 And x < ScaleWidth And y >= 0 And y < ScaleHeight And
Button
> = vbLeftButton) Then
>         RaiseEvent Click
>     End If
>
>     If (SliderHooked) Then
>         RaiseEvent MouseUp(Shift)
>     End If
>
>     SliderHooked = False
>     Unload frmValueTip
>
> End Sub
>
>
> Dank je hartelijk mensen.
>
> Kelly.
>
>

De juiste implementatie kan ik niet geven, maar ik kan de manier van
programmeren wel uitleggen. Volgens mij doe je het best zo:
Je weet dat wanneer de gebruiker klikt en de muisknop inhoud, de cursor
beweegt, dat hij dan aan het scrollen  is dus wanneer de gebruiker met de
muis beweegt EN de linkermuisknop is ingedrukt, dan moet je het scrollevent
oproepen. Daarbinnen moet je waarschijnlijk het streepje van positie
verplaatsen dat aangeeft wat de waarde van de slider is. Die kan je
makkelijk berekenen door de x-waarde van de muis te vergelijken met de begin
x-waarde van je slider.