Question

vb中如何用键盘控制程序按钮？如用上、下方向键分别控制两个button？急求，thx~

vb中如何用键盘控制程序按钮？如用上、下方向键分别控制两个button？急求，thx~

Answer 1

设置窗体属性keypreview=true
在窗体keydown 事件中添加下以代码
if keyascii=38 then command1_click '上方向键
if keyascii=40 then command2_click '下方向键

追问

如果按了以后还有后续命令，那应该怎样添加？如按下上方向键，则显示特定一张图片？？谢谢~~

追答

if keyascii=38 then '上方向键
command1_click
picture1.picture=loadpicture(图片路径)
end if

追问

刚才我试了一下，发现不能直接用那两个方向键来控制button，要通过回车才能执行命令，能直接按方向键就执行命令的方法吗？

追答

十分抱歉,代码写错了,应该是keycode而不是keyascii.此外窗体的keypreview属性一性要设置为true.但是刚才试了一下,如果焦点在commad1上时,窗体好像不能拦截按键事件,如果焦点在文本框之类的可输入控件时,就可以

追问

不行，我想要的效果是运行程序时，按上方向键时图形框里显示一张图片按下方向键时显示另一张图片

追答

能不能改用其他键，焦点在按钮上时，窗体不能拦截方向键和回键，除非。。。你把窗体上所有按钮的tabstop属性设为false试试，这是一个笨办法，十分消极

追问

可以改用其他键啊，具体要怎么做？

追答

A到Z键的keyup keydown 事件中 keycode值是65到90，keypress事件中keyascii值是97到112，你想用哪个键把语句中的键值换了就可以了
例如用A键，可以在keypress事件中加入if keyascii=97 then command1_click
也可以在keydown事件中加入 if keycode=65 then command2_click

Answer 2

在from 的keypress事件中写代码

if keyascii=vbkeyup then
button1_click
end if

if keyascii=vbkeydown then
button2_click
end if