'把窗体的KeyPreview设为True,按"A"键切换 '另外当CheckBox控件获得焦点时,window下默认得切换键是空格键 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyA Then Check1.Value = 1 - Check1.Value Option1.Value = Not Option1.Value End If End Sub
调用对象的keydown的函数,keycode来判断你需要输入的键盘信号,在程序中 这样写:判断完键盘的键值后 if check1.value=ture then check1.value=false else check1.value=ture end if
sendkeys "{entry}",true
'另外当CheckBox控件获得焦点时,window下默认得切换键是空格键
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
Check1.Value = 1 - Check1.Value
Option1.Value = Not Option1.Value
End If
End Sub
这样写:判断完键盘的键值后
if check1.value=ture then
check1.value=false
else
check1.value=ture
end if