我想用VB实现以下功能

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:23:12
我想用VB实现以下功能!
用VB响应键盘
过程如下:
if 按"空格"键 then
x开始计时
if 按"空格"键 then
x停止计时
y=x
x重新计时
if 按"a"键 then
goto到最前面
所有初始化
else
当x值等于y值时按"空格"键(一直循环)

计时就用个timer,在其中另X=X+1就好了
响应键盘事件,可以在ONKEYPRESS中,也可以在ONKEYDOWN中

首先定义全局或静态变量X,y
在timer1中另X=X+1

在ONKEYPRESS中
判断按下的键
if not ((a) or (空格)) then exit sub
if (a) then
x=0
y=0
end if
if (空格) then
if timer1.enable then
timer1.enable=false
y=x
else
timer1.enable=true
end if
end if
是这样吗?

给你个思路吧:
在FORM的LOAD事件内输入ME.KEYPREVIEW=TRUE或在属性页内设置KEYPREVIEW属性为true,然后在FORM的KEYPRESS事件内判断keyascii值,空格的ASCII值为10,a的ASCII值为97,A为65,比如:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 10 Then
Timer1.Enabled = True
ElseIf KeyAscii = 97 Then
Timer1.Enabled = False
End If
End Sub
一般的计时可以用TIMER控件,开始计时可以Timer1.Enabled = True,结束则Timer1.Enabled = False,计时的代码写在timer的timer事件内.
接下来,你想干什么就干什么了......