请问诸位,怎样只检测一次keypress?

whitefox88

我想实现一个小人的行走
(用几幅图片的切换)
当按下a键时向左走,图片开始切换,可是过了半秒中后就不停的切换前两副图片了
Private Sub Pm_KeyPress(KeyAscii As Integer)
Dim a
If a = 0 Then
If KeyAscii = 97 Then
Im.Top = -720
Im.Left = 0
fangxiang = -720
Timer1.Interval = 100
End If
a = 1
End If
End Sub
Private Sub Timer1_Timer()
Im.Top = fangxiang
If Im.Left = -960 Then
Im.Left = 0
Else: Im.Left = Im.Left - 480
End If
End Sub
这里有编译好的程序

shenguhan

方法1：检测windows消息
方法2：DirectInput缓冲模式

hdm2968

呵呵，你用计时器就可以啦。

snhun

原因在这里：
If Im.Left = -960 Then
Im.Left = 0
Else: Im.Left = Im.Left - 480

Im.Left 取值，在960的时候马上变成0。
他的值如下：
0，-480，0（本来是-960，但又If Im.Left = -960 Then Im.Left = 0）
0，-480，0，0，-480，0，0，-480，0，0，-480，0，0，-480，0，0，-480，0，

只有 a=0（放开A键），Im.Left才有可能是-960

snhun

不对，好象不是这个原因。