MouseDoubleClick()
Author: djfilbe
Added: 20. kesäkuuta 2011 kello 16.50
Edited: 20. kesäkuuta 2011 kello 16.50
Category: Syötteet
Description
Kertoo, onko hiiren nappulaa tuplaklikattu.
Code
Select all1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | Repeat
If MouseDoubleClick(1) Then AddText "Tuplaklikki"
If MouseDown(1) Then
ClsColor 255,0,0
Else
ClsColor 0,0,0
EndIf
DrawScreen
Forever
Global aaika
aaika=-1
Function MouseDoubleClick(mk, timeout=300)
If MouseUp(mk) Then
If aaika = -1 Then
aaika=Timer()
ElseIf Timer()-aaika > timeout Then
aaika=-1
Else
aaika=-1
Return 1
EndIf
EndIf
EndFunction
|
Comments
#15 Sent by: Jare, 21. elokuuta 2011 kello 9.23
Pieni looginen virhe: Global aaika ja aaika=-1 tulisi sijoittaa ennen Repeat-lenkin alkamista. Muuten tuo muuttuja ei alussa saa muuta arvoa kuin nollan.
Leave a comment
You must be logged in to comment.
#11 Sent by: Latexi95, 21. kesäkuuta 2011 kello 14.26
Sinun kannataisi tehdä tästä versio, jota voisi käyttää monella hiiren napilla saman aikaisesti. Nyt tuo menee sekaisin jos käyttää funktiota kahdelle eri näppäimelle saman aikaisesti. Laita vaan tuo "aaika" taulukkoon ja valitse taulukon solu hiiren näppäimen mukaan...
Eli vaihda "Global aaika" vaikka "Dim aaika(3) as Integer":ksi.
Ja funktiosta "aaika" "aaika(mk)":ksi, niin pitäisi toimia.