据贴吧主建议，重新开贴问关于双击问题。（接上同）

jnmao

不是要的双击函数或是事件，也不是长按，而是根据自己需要写出来，比如一个变量A，无按建是1，按下建是2。（变量A在循环里无限循环中），怎么用1和2变化得出双击呢？
PS：长按不算，比如，长按一建放开再次按下的不算双击等等。

游戏之家站长

简单原理, 实际程序还要你修改.

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_LBUTTON = &H1      '鼠标左键
Public Const VK_RBUTTON = &H2      '鼠标右键
Private Declare Function GetTickCount Lib "kernel32" () As Long   '时钟API

DIM A AS LONG, SPEED AS LONG
DIM FPSX AS LONG, FPSY AS LONG
A=0
FPSY = GetTickCount()
FPSX = FPSY


IF GetAsyncKeyState(VK_LBUTTON) And &H8000 Then A=A+1
SPEED = (FPSY - FPSX)   '时间函数
FPSY = GetTickCount()

IF SPEED > 1000 THEN
FPSY = GetTickCount()
IF A=1 THEN   事件1
IF A=2 THEN   事件2
IF A>2 THEN A=1
END IF
-------------------------------------------
我知道你要做什么, 和我以前提的问题一样, 一个键做两件事, 你看我五星勋章里按ESC的状态就是你要的东西.

jnmao

嗯，谢谢，和我一开始写的差不多，但执行起来有点问题。

你的五星勋章一按ESC就直接退出游戏。

游戏之家站长

jnmao: Re:据贴吧主建议，重新开贴问关于双击问题。（接上同）

嗯，谢谢，和我一开始写的差不多，但执行起来有点问题。

你的五星勋章一按ESC就直接退出游戏。

那是1代, 五星2和3正式关卡按ESC有菜单弹出.

tdkrt

so yellow , so violent

jnmao

史上最强版的发上来