Re: mouse down fisso

Article View: free.it.visual-basic

Article #41

Back to free.it.visual-basic Previous Next

#41

From: EffeEmme
Date: Fri, 02 Jan 2009 17:28

45 lines
2314 bytes

"Tiscali" <melis.federico126@tiscali.it> ha scritto nel messaggio
news:495a2a09$0$11377$5fc30a8@news.tiscali.it...
> EffeEmme ha scritto...
> > Devo muovere con continuit� un cursore tenendo  il tasto sinistro del
> > mouse
> > costantemente premuto.
> > Ho provato con la funzione mousedown, ma questa viene rilevata solo una
> > volta.
> > Devo usare un timer e controllare periodicamente lo stato del mouse?
> > Non c'� una funzione nativa apposita?
>
> Dim isDown As Boolean
>
> Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single,
> Y As Single)
>     If Button = vbLeftButton Then isDown = True
> End Sub
> Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single,
> Y As Single)
>     If isDown Then
>         Do: DoEvents
>             'Quello che vuoi
>         Loop Until Not isDown
>     End If
> End Sub
> Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,
Y
> As Single)
>     If Button = vbLeftButton Then isDown = False
> End Sub
>
>
> --
> Ciao Fede
>
> By Chicco Production
> http://bcp.freetools.it
>
>

Grazie Mille!
Franco

Technical Details

Message-ID: <495e4eb1$0$1117$4fafbaef@reader1.news.tin.it>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!news.tele.dk!news.tele.dk!small.news.tele.dk!feeder.news.tin.it!spool.news.tin.it!not-for-mail

References: <49553e85$0$1116$4fafbaef@reader3.news.tin.it> <495a2a09$0$11377$5fc30a8@news.tiscali.it>

Show Full Headers

Complete Article Headers

X-Google-Thread: f94ee,83ae0ddddeb88b86
X-Google-Attributes: gidf94ee,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!news.tele.dk!news.tele.dk!small.news.tele.dk!feeder.news.tin.it!spool.news.tin.it!not-for-mail
From: "EffeEmme" <from@interfree.it>
Newsgroups: free.it.visual-basic
References: <49553e85$0$1116$4fafbaef@reader3.news.tin.it> <495a2a09$0$11377$5fc30a8@news.tiscali.it>
Subject: Re: mouse down fisso
Date: Fri, 2 Jan 2009 18:28:21 +0100
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
X-Antivirus: avast! (VPS 090102-0, 02/01/2009), Outbound message
X-Antivirus-Status: Clean
Lines: 47
Message-ID: <495e4eb1$0$1117$4fafbaef@reader1.news.tin.it>
Organization: TIN.IT (http://www.tin.it)
X-Comments: Please send technical notifications to newsmaster@tin.it
NNTP-Posting-Host: 79.46.199.30
X-Trace: 1230917297 reader1.news.tin.it 1117 79.46.199.30:10706
X-Complaints-To: Please send abuse reports to abuse@retail.telecomitalia.it

Reply to Parent Message