如何用VB通过按键盘上特定的键来改变label.caption？

我暂时给你一个部分实现的代码。如果不麻烦的话，加几个定时器控件，自己写点类似的代码，就完全实现了。

首先，这个代码只针对你的问题。如果不是因为你的问题，最好使用API获取全局key消息。如果你独自解决你的问题，这段代码就足够了。

在表单上绘制一个标签、三个计时器、一个按钮和所有默认属性。

维度i%

按键被按下的事件。

Private Sub命令1_KeyDown(KeyCode为整数，Shift为整数)

如果键码= 65，那么定时器1。“Enabled = true”如果您按A，计时器1开始工作。

添加相应的定时器控件后，在这里写类似的代码。

末端接头

释放按键的事件。

Private Sub命令1_KeyUp(KeyCode为整数，Shift为整数)

定时器1。Enabled = False '停止相应的定时器事件。

定时器3。Enabled = False '停止相关的计时器事件。

在这里写类似的代码。

“I = 0”定时变量被清除。

末端接头

私有子命令1_LostFocus()

命令1。“SetFocus”使按钮始终保持焦点，以便接收关键信息。最好用api。

末端接头

初始化每个控件的属性。

私有子窗体_Load()

Label1。Caption = "0 "

在这里，添加相应的标签控件后，编写类似的代码。

定时器1。间隔= 1000

定时器1。启用=假

定时器2。间隔= 500

定时器2。启用=假

定时器3。间隔= 100

定时器3。启用=假

这里，在添加相应的和相关的定时器控件后，编写类似的代码。

末端接头

对应定时器事件，添加对应定时器控件后写类似代码。

私有子定时器1_Timer()

I = i+1 '计时变量每秒累加1，即变量增加一秒。

如果I = 1，则定时器2。Enabled = true '如果计时变量到达1秒，定时器2开始工作。

如果I = 2，则timer 2 . enabled = false:timer 3 . enabled = true '定时器变量已达到两秒。...

末端接头

相关计时器事件，添加相关计时器控件后编写类似的代码。

私有子定时器2_Timer()

每隔0.5秒Label 1 . caption = val(Label 1 . caption)+10 ' Label 1+10。

末端接头

私有子定时器3_Timer()

每隔0.1秒，Label 1 . caption = val(Label 1 . caption)+10 ' Label 1+10。

末端接头

上面的代码只实现了按a，复制代码，运行测试。