Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Function GetActiveWindow Lib "user32" () As Long Private Const VK_RIGHT As Long = &H27 Private Const VK_UP As Long = &H26 Private Const VK_LEFT As Long = &H25 Private Const VK_DOWN As Long = &H28 Private Sub Timer1_Timer() If GetActiveWindow() = Me.hWnd Then If Not GetAsyncKeyState(VK_RIGHT) = 0& Then ElseIf Not GetAsyncKeyState(VK_UP) = 0& Then ElseIf Not GetAsyncKeyState(VK_LEFT) = 0& Then ElseIf Not GetAsyncKeyState(VK_DOWN) = 0& Then End If End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionpour passer d'un frame à l'autre, simuler le click sur un bouton représentant une flèche