hi everyone, i'd been creating a tic tac toe game using VB 6.0 and it is working perfectly. And now i have to create a form which allow user to only uses keyboard to control the position of their choices instead of using click() command by mouse. Any method to do that? i am still new in learning VB 6.0. Hopefully i can get help from you guys.
P/S: Using the four direction keys from the keyboard to let the user choose the position and a enter for confirmation or enter the data.

Its easy...
get the key strokes like this and do...

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyUp Then
 ' move up
ElseIf KeyAscii = vbKeyDown Then
 'move down
ElseIf KeyAscii = vbKeyRight Then
 'move right
ElseIf KeyAscii = vbKeyLeft Then
 'move left
End Sub

askB

well, thanks for the contribution, however it doesnt seems to work...
tic tac toe game has 9 squares, if the user can control the position of each of the square using keyboard. I'd tried to load a mouse event class module and create another form with have the directions buttons and a confirmation command. Both are connected using port. However it seems doesnt work as well. Any function to replace this?
Below is the little code for my keyboard event:

Private m_Mouse As CMouseEvent
Private m_oX As Long
Private m_oY As Long
Private Sub Form_Load()
'Setting up default state of
'all variables.

'Makes all squares clear
Dim Index As Integer
'intialize of mouse module
Set m_Mouse = New CMouseEvent
m_Mouse.MoveTo 550, 550
m_oX = 550
m_oY = 550

Private Sub Timer1_Timer()
If HumanMovedAlready = True Then Form1.MousePointer = 2
If CompMovedAlready = True Then Form1.MousePointer = 12

'If MSComm1.InBufferCount > 0 Then
    'Mystring = MSComm1.Input
    If Mystring = "l" Then
        m_oX = m_oX - 10
        m_Mouse.MoveTo m_oX, m_oY
    ElseIf Mystring = "r" Then
        m_oX = m_oX + 10
        m_Mouse.MoveTo m_oX, m_oY
    ElseIf Mystring = "u" Then
         m_oY = m_oY - 10
        m_Mouse.MoveTo m_oX, m_oY
    ElseIf Mystring = "d" Then
         m_oY = m_oY + 10
        m_Mouse.MoveTo m_oX, m_oY
    ElseIf Mystring = "c" Then
    m_Mouse.Click
    End If

End If
End Sub

thanks for anyone that help...thanks

This article has been dead for over six months. Start a new discussion instead.