VB6: Scroll Event???

Thread View: be.comp.programming

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Kelly Smith Mon, 13 Jan 2003 04:30

#6049

Author: Kelly Smith
Date: Mon, 13 Jan 2003 04:30

34 lines
1863 bytes

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.

Re: Scroll Event???

#6060

Author: Passero
Date: Mon, 13 Jan 2003 15:58

52 lines
2582 bytes

"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.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads