PDA

View Full Version : Bắt phím up/down trong vb6



quangvinh777
21-10-2010, 15:14
Mình có một chương trình có 3 button: command1, command2, command3
Trong command1 mình đặt sự kiện keydown và bãy phím mũi tên xuống(down), để khi người dùng nhấn phím mũi tên xuống (down) trên command1 thì ngay lập tức command2 được chọn
Trong command2 mình đặt sự kiện keydown và bãy 2 phím mũi tên lên(up) và xuống, để khi người dùng nhấn phím mũi tên lên thì command1 được nhấn, nhấn phím mũi tên xuống thì command3 được nhấn
giúp mình nhé! cảm ơn các bạn nhiều!
Còn đây là đoạn source của mình (nhưng nó không bắt đựoc phím up, down) các bạn chỉnh lại giúp mình nhé:

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 40 Then
Call Command2_Click
Command2.SetFocus
End If

End Sub

Private Sub Command2_Click()
MsgBox ("Nut 2 duoc nhan")
End Sub

Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
Call Command1_Click
Command1.SetFocus

End If
If KeyCode = 40 Then
Call Command3_Click
Command3.SetFocus
End If
End Sub

Private Sub Command3_Click()
MsgBox ("Nut 3 duoc nhan")
End Sub

link: http://www.mediafire.com/file/okhfvvqopirdcnf/EventKeyDown.zip