Question

关于vb的一个简单题目，我想用keydown来改变背景颜色但是没反应，哪位高人解答下，下面是我编的.....

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("r") Then
Me.BackColor = vbRed
End If
End Sub

Answer 1

设置窗体的KeyPreview属性为True，另外Keycode不是keyascii，它有自己的常数定义：

Private Sub Form_Load()
KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyR Then
Me.BackColor = vbRed
End If
End Sub

Answer 2

两种情况要注意：
第一：窗体上面不能有任何的控件。也就是说必须是空白的。
第二：你设置中断，看看你的keydoce是什么？我比较肯定的是那不是asc("r")，直接写数字好了。最多加'备注一下。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then'向下的箭头。
Me.BackColor = vbRed
End If
End Sub

Answer 3

貌似vb的keycode和ascii的编码是不一样的吧，你可以打断点验证一下啊
不会打断点的话，也可以msgbox keycode来看看r的编码到底是什么