Clique sur un bouton ou appuier sur une toucheRésolu

Question

Je voudrais savoir comment faire pour que ce code fonctionne aussi
lorsque l'on appuie sur une touche du clavier par exemple la touche A.
Donc que ce script s'ex&#233;cute lorsque j'appuie sur le bouton relais1 ou
que j'appuie sur la touche A du clavier . Merci. 







'Ex&#233;cut&#233; lorsque le bouton du Relais 1 est press&#233;

Private Sub Relais1_Click()



'Si le bouton affiche Relais

If Relais1.Caption = "Relais &a" Then

    

    'Ecrire Stop sur le bouton

    Relais1.Caption = "Stop &a"

    

    'Colorer la case &#224; gauche en jaune

    Case1.BackColor = &HFFFF&

    

    'Si la case &#224; gauche est d&#233;coch&#233;e et le curseur =0

    If Case1.Value 0 Then 'valStrobe1.Caption 0 And

    

        'Cocher la case

        Case1.Value = 1

        

        'Mettre le premier bit du port // &#224; 1

        DlPortWritePortUshort numPort, DlPortReadPortUshort(numPort) - valCorr + 1

        

        'Visualiser la valeur du port // en bas

        AddPort.Caption = DlPortReadPortUshort(numPort) - valCorr

    End If



'Si le bouton affiche Stop

Else

    

    'Si la case &#224; gauche est coch&#233;e

    If Case1.Value = 1 Then

        

        'D&#233;cocher la case &#224; gauche

        Case1.Value = 0

        

        'Mettre &#224; 0 le premier bit du port //

        DlPortWritePortUshort numPort, DlPortReadPortUshort(numPort) - valCorr - 1

    End If

    

    'Visualiser la valeur du port // en bas

    AddPort.Caption = DlPortReadPortUshort(numPort) - valCorr

    

    'Ecrire Relais sur le bouton

    Relais1.Caption = "Relais &a"

    

    'Colorer en gris la case &#224; gauche

    Case1.BackColor = &H8000000F

End If

End Sub

cs_CanisLupus · Accepted Answer

Maintenant, si tu utilises le keypress du form, il faut mettre le keypreview du form &#224; true pour lui indiquer que les &#233;v&#232;nements clavier sont d'abord trait&#233;s par le form.
Mais, pour ton cas, il ne faut pas de zones de saisie (textbox...) sur le form. Sinon, tu risques d'avoir des probl&#232;mes.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Utilisateur anonyme · Answer

Bonjour



Dans Form_KeyPress mettre:

If KeyAscii = 97 Then Call Relais1_Click()


 ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

piaf02840 · Answer

j'ai mis &#231;a :



Private Sub FormMain_KeyPress()



    If KeyAscii Asc("a") Or KeyAscii Asc("A") Then Call Relais1_Click

    End If



End Sub



Mais sa marche pas !!

cs_CanisLupus · Answer

Salut, si tu mets "&a" dans le caption de ton bouton, il suffit de presser ALT + a (ou A) et &#231;a ex&#233;cute le clic de ton bouton.
Seule chose &#224; faire attention, il ne faut pas qu'un autre bouton de la m&#234;me form ait un "&a" dans son caption.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Clique sur un bouton ou appuier sur une touche

4 réponses

Discussions similaires