XREA.COM Logo XREA.COM Ad

スクリプト質問スレッド

47unnamed.ahk:05/01/17 18:02 ID:???
>>45
あんまり見栄えのする書き方じゃないけど、一応↓ので出来ると思う。

LButton::
If A_PriorHotkey <> LButton
{
LClick = 1
Return
}
If A_TimeSincePriorHotkey > 300
{
LClick = 1
Return
}
LClick ++
If LClick = 2
SetTimer, DoubleClickCheck, 10
Else If LClick = 3
{
SetTimer, DoubleClickCheck, off
MsgBox, 3 Click
LClick = 0
}
Return

DoubleClickCheck:
If A_TimeSinceThisHotkey < 300
Return
SetTimer, DoubleClickCheck, off
Msgbox, 2 Click
LClick = 0
Return

^ESC::ExitApp

とりあえず問題なく動いたけど、LClick >= 4を書いた方が安心かも。
ダブルクリックの判定は余裕だから、トリプルでも楽だと思ってたんだけど、
見づらいし、応用のききにくい書き方になってしまった。
だれかもっといい方法あったら教えてくれぃ。

>>46
本家書き込み乙。
それにしても、Chris氏は対応早いな。
85KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08