Solved Access: Form "my Number Puzzle" (See MajP) (1 Viewer)

[vhung]

I love to play the Number Puzzle.
This game is somewhat short term memory and past solving.
It needs quick series thinking.

Ive' done someways to make it possible.
I only use click command through the shuffle numbers, using textbox, 1 to 16.

My look out is how to make it possible using arrows: (up, down, left, right)
I still make research for it.

But for now "my Number Puzzle" already play a game.

 

[MajP]

See if this is what you mean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  '1 2 3 4
  '5 6 7 8
  '9 10 11 12
  '13 14 15 16
  Dim position As Integer
  If KeyCode > 36 And KeyCode < 41 Then
    position = CInt(Mid(ActiveControl.Name, 4))
    'MsgBox position
    Select Case KeyCode
        Case 37 ' move left
          If position <> 1 Then Me.Controls("txt" & position - 1).SetFocus
        Case 38 ' move up
          If position > 4 Then
           Me.Controls("txt" & position - 4).SetFocus
          Else
           Me.Controls("txt" & position + 12).SetFocus
          End If
        Case 39
          If position <> 16 Then Me.Controls("txt" & position + 1).SetFocus
        Case 40 ' move down
          If position < 13 Then
            Me.Controls("txt" & position + 4).SetFocus
          Else
            Me.Controls("txt" & position - 12).SetFocus
          End If
    End Select
  End If
End Sub

 

[vhung]

See if this is what you mean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  '1 2 3 4
  '5 6 7 8
  '9 10 11 12
  '13 14 15 16
  Dim position As Integer
  If KeyCode > 36 And KeyCode < 41 Then
    position = CInt(Mid(ActiveControl.Name, 4))
    'MsgBox position
    Select Case KeyCode
        Case 37 ' move left
          If position <> 1 Then Me.Controls("txt" & position - 1).SetFocus
        Case 38 ' move up
          If position > 4 Then
           Me.Controls("txt" & position - 4).SetFocus
          Else
           Me.Controls("txt" & position + 12).SetFocus
          End If
        Case 39
          If position <> 16 Then Me.Controls("txt" & position + 1).SetFocus
        Case 40 ' move down
          If position < 13 Then
            Me.Controls("txt" & position + 4).SetFocus
          Else
            Me.Controls("txt" & position - 12).SetFocus
          End If
    End Select
  End If
End Sub
[/QUOTE]

Nice; i'll try this code; Thanks MajP

 

[vhung]

MajP, post:

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

Wow it works, i'm done.
Thank you very much.