vb keydown事件
为什么我按用form的keydown事件怎么编都没有反映呢拷贝别人现成的也没用比如这个有问题吗?PrivateSubForm_KeyDown(KeyCodeAsInteg...
为什么我 按用form的keydown事件 怎么编都没有反映呢
拷贝别人现成的也没用 比如这个有问题吗?
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "您按了A"
End If
End Sub
具体点啊,不明白哦 展开
拷贝别人现成的也没用 比如这个有问题吗?
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "您按了A"
End If
End Sub
具体点啊,不明白哦 展开
展开全部
把我下边这段代码复制过去,然后替换掉你的全部代码,就好了,我试过了.
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "您按了" & chr(keycode)
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "您按了" & chr(keycode)
End If
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没写handles
补上keypresseventarg
Private Sub Keypress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles me.KeyPress
拿这个替换Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 就好,处理程序也变成处理ASCII,其实用vbkey也成,但是我没试过。
补上keypresseventarg
Private Sub Keypress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles me.KeyPress
拿这个替换Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 就好,处理程序也变成处理ASCII,其实用vbkey也成,但是我没试过。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以的啊 我试了 可以的 why你不行呢 ?你是怎么做的啊?你这个代码是keydown时间哦 不能用keypress 而且只能按A键才有反应的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把form窗体(比如说form1)的KeyPreview属性的值改为True就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以用image来代替按钮··我原来做俄罗斯方块就是这么做的··触发image_click事件
我试过设置form的接受按钮属性··可是没什么用··呼呼
我试过设置form的接受按钮属性··可是没什么用··呼呼
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询