vb 如何在按键时运行语句

按CTRL或ALT或SHIFT时不触发KeyPress
用KeyDown
Private Sub 控件_KeyDown(KeyCode As Integer, Shift As Integer)
KEYCODE是字母大写的ASCII值
Press 'a' keycode=65=asc("A")
Shift 是CTRL或ALT或SHIFT的值
CTRL 2
ALT 4
SHIFT 1
组合键就是他们的值相加
Press CTRL+ALT Shift=6

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
if KeyCode=asc("S") and (Shift=6) then
shell "1.txt"
end if
End Sub

VB控件中有一种当键盘按键时触发的事件，事件名为KeyPress
使用方法为
Private Sub 控件名_KeyPress(KeyAscii As Integer)

End Sub
KeyAscii为按键所对应的ASCII编码
按照你的要求，可以用下面的代码
Private Sub Form_KeyPress(KeyAscii As Integer)
shell "1.txt"
End Sub

ls答得差不多了，收个尾，把Form1.KeyPreview设置为True