Boucle tant qu'une touche n'est enfoncée ou relâchéeRésolu

Question

Bonjour,

je suis débutant et j'ai encore du mal avec les évènements
Je souhaite faire une boucle tant qu'une touche n'est enfoncée ou relâchée

du type:
MsgBox "Veuillez Appuyer sur Ctrl"
Do
    blabla
Loop While la  touche Ctrl n'est enfoncée

MsgBox "Veuillez Relâcher sur Ctrl"
Do
    blabla
Loop While la  touche Ctrl n'est relâchée


J'ai peut être mal cherché (sans doute pas le bon vocabulaire) mais je n'est rien trouvé à ce sujet

Merci d'avance pour votre aide

Renfield · Accepted Answer

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Function IsCtrlKeyPressed() As Boolean
    IsCtrlKeyPressed = GetAsyncKeyState(vbKeyControl) And &H8000
End Function

Private Sub Form_Click()
    Me.Caption = "Veuillez Appuyer sur Ctrl"
    Do
        DoEvents
    Loop Until IsCtrlKeyPressed

    Me.Caption = "Veuillez Relâcher sur Ctrl"
    Do
        DoEvents
    Loop While IsCtrlKeyPressed
    
    Me.Caption = "Merci d'avoir joué à ""Tu pousses le bouton""."
End Sub

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

NHenry · Answer

Bonjour,

Evenements :
KeyDown et KeyUp
Avec un Timer, je pense que tu auras tout.

Mon site

lucasgaetan · Answer

Merci Renfield

c'est exactement ce que je cherchais

Juste pour les débutant comme moi je précise que "Sub Form_Click()" peut être modifier par l&#8217;évènement voulu

"Private Sub TextBox1_Change()"  par exemple ou autres

Boucle tant qu'une touche n'est enfoncée ou relâchée

3 réponses

Votre réponse

Discussions similaires