GetAsyncKeyState problem *resolved*

[0wnd]

I am working on the game pong. I cannont get my paddle to move up and down. I think there is more than one problem with my code, but I know that I must be using GetAsyncKeyState incorrectly because it doesn't change the values. Here is my code.

Private Sub Main()
    lngTick = GetTickCount
    
    Do While blnGameLoop
        lstTick = GetTickCount
    
        If lstTick - lngTick >= 50 Then
            
            movepaddle
            
            BitBlt frmPong.hDC, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY
            
            BitBlt frmPong.hDC, x, y, 32, 89, Picture2.hDC, 34, 0 ,SRCAND
            
            BitBlt frmPong.hDC, x, y, 33, 89, Picture2.hDC, 0, 0, SRCPAINT
            
          
          DoEvents
          lngTick = GetTickCount
        End If
    
    Loop
End Sub
 
 
Private Sub movepaddle()
            If (GetAsyncKeyState(vbKeyUp)) = True Then
                    y = y - 10
            End If
            
            If (GetAsyncKeyState(vbKeyDown)) = True Then
                    y = y + 10
            End If
End Sub

[NoteMe]

Look here...


http://vbforums.com/showthread.php?s=&threadid=219053

[0wnd]

Hmm, I tried the code they had, and it doesn't work. The value of y is not changing. This is what I changed the code to.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Keys(KeyCode) = True
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Keys(KeyCode) = False
End Sub
 
Private Sub movepaddle()
    If Keys(38) = True Then 'I also tried vbKeyUp instead of 38
        y = y - 10
    End If
    
    If Keys(40) = True Then 'I also tried vbKeyDown instead of 40
        y = y + 10
    End If
End Sub

[NoteMe]

Do you have the KeyPreview property of your form set to true???