VB6: Scroll Event???

Article View: be.comp.programming

Article #6049

Back to be.comp.programming Previous Next

#6049

From: 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.

Technical Details

Message-ID: <4irU9.3132$Jf4.396362@amsnews02.chello.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!amsnews01.chello.com!amsnews02.chello.com.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,29e0e0428751fa77,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-01-12 20:42:19 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!amsnews01.chello.com!amsnews02.chello.com.POSTED!not-for-mail
Reply-To: "Kelly Smith" <power@cable.a2000.nl>
From: "Kelly Smith" <power@cable.a2000.nl>
Newsgroups: be.comp.programming
Subject: VB6: Scroll Event???
Lines: 37
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2720.3000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <4irU9.3132$Jf4.396362@amsnews02.chello.com>
Date: Mon, 13 Jan 2003 04:30:56 GMT
NNTP-Posting-Host: 62.108.15.164
X-Complaints-To: abuse@chello.com
X-Trace: amsnews02.chello.com 1042432256 62.108.15.164 (Mon, 13 Jan 2003 05:30:56 MET)
NNTP-Posting-Date: Mon, 13 Jan 2003 05:30:56 MET
Organization: chello broadband