touche

Question

/auteurdetail.aspx?ID=274287 bonjour je voudrais savoir commen je pe faire prendre en conte une combin&#233;son de touche 
example:
 je fai ctrl + alt + a ben sa quitte mon prog 
merci

psicofox6@hotmail.com==

cs_CanisLupus · Answer

Salut,

Dans ta form principale :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  
  If KeyCode = vbKeyA Then
    If (Shift And 4) > 0 And (Shift And 2) > 0 Then
      End 'ou la proc&#233;dure de download de ton prog
    End If
  End If


End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

drpsico · Answer

salut moi je ve que sa le face meme quand mon login'est pas visible 
la g fai 

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Const VK_F2 = &H71
_______________________________________________________
Private Sub Timer1_Timer()
If  (GetAsyncKeyState(VK_F2) And &H1) = &H1 Then End
End Sub

la c'est quand j'apui sur f2 
mes moi je ve par example quand j'apui sur ctrl + alt + a 
merci

psicofox6@hotmail.com==

Gobillot · Answer

Option Explicit



Private Type KeyboardBytes

     kbByte(0 To 255) As Byte

End Type



Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long



Private Sub Timer1_Timer()

    Dim kbArray As KeyboardBytes

    GetKeyboardState kbArray

    If kbArray.kbByte(17) > 127 And _

       kbArray.kbByte(18) > 127 And _

       kbArray.kbByte(65) > 127 Then

       Beep

       End If

End Sub


Daniel

drpsico · Answer

bonjour tu pe me dire a coi se rapporte 
If kbArray.kbByte(17) > 127 And _
       kbArray.kbByte(18) > 127 And _
       kbArray.kbByte(65) > 127 Then
merci

psicofox6@hotmail.com==

Gobillot · Answer

17  c'est le num&#233;ro touche pour Ctrl

18  c'est pour Alt

65  c'est pour "a"



tu peux avoir aussi les touches s&#233;par&#233;es 162 - Ctrl gauche 163 - Ctrl droit
pour savoir &#224; quoi &#231;a correspond, tu balayes le Tableau de 0 &#224; 255, et tu sors le num&#233;ro 

si sup&#233;rieur &#224; ... 127  (?)

en appuyant sur une touche, tu verras &#224; quel num&#233;ro &#231;a correspond et la
valeur, &#233;gale &#224; 128 ou 129 je sais pas pourquoi  (appuy&#233;e ou
rel&#226;ch&#233;e) ?

j'ai aussi des "0" et des "1" sans avoir appuy&#233; 


Daniel

drpsico · Answer

slt merci sa marche mes tu pe me dire comme je peut faire pour savoir quel numero = quel touche parce que jarrive pas 
merci

[mailto:==psicofox6@hotmail.com ==psicofox6@hotmail.com]==

cs_CanisLupus · Answer

Il y a aussi la solution toute b&#234;te avec l'API GetAsyncKeyState :

Dans un timer (interval 1) :
If GetAsyncKeyState(vbKeyA) _
And GetAsyncKeyState(vbKeyControl) _
And GetAsyncKeyState(vbKeyMenu) Then
  End
End If

Pour conna&#238;tre le num&#233;ro des touches, soit la MSDN soit :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

drpsico · Answer

merci canislupus

psicofox6@hotmail.com==

drpsico · Answer

a toi aussi go

psicofox6@hotmail.com==

Gobillot · Answer

un ListBox et un Timer

je confirme les valeurs sont bien 128 et parfois 129

avec plusieurs num&#233;ros possibles par touche:  exemple Alt Gr





Option Explicit



Private Type KeyboardBytes

     kbByte(0 To 255) As Byte

End Type



Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long



Private Sub Form_Load()

    Timer1.Interval = 100

    Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

    Dim i       As Integer

    Dim kbArray As KeyboardBytes

    

    GetKeyboardState kbArray

    List1.Clear

    For i = 0 To 255

        With kbArray

          If .kbByte(i) > 1 Then

            
List1.AddItem Format$(i, "000") & " - " & .kbByte(i)

             End If

          End With

        Next

        

End Sub


Daniel

drpsico · Answer

psicofox6@hotmail.com==

drpsico · Answer

a sa a pas marcher je voudrais savoir comment je pe faire pour que sa quitte par exemple en fonction du mot qui et ecrit dans un textbox alors g un textbox ou l'utilisateur tape un mot "fin" par exemple et apres il valide pu quand il tap&#234; se mot le logiciel se ferme.
je c pas si c claire??
merci de m'aid&#233; encore une foi

psicofox6@hotmail.com==

Gobillot · Answer

dans l'&#233;v&#234;nement Change du TextBox:

   If Lcase$(Text1.Text) = "fin" Then Unload Me


ou si tu veux qu'il valide par la touche Enter, dans l'&#233;v&#234;nement keyPress:

    If KeyAscii = 13 Then

       If Lcase$(Text1.Text) = "fin" Then Unload Me

       End If


Daniel

drpsico · Answer

non c'est pas sa lol je c pas commen espliqu&#233; je ve qu'il enregistre un mot fin par exemple grace au textbox pui apres il valide le programme il se cache par exemple et il scrute tout se qui et taper au clavier et si le mot fin et trouver alors le prog fai un truc se quitte ou apar&#233; 
merci

psicofox6@hotmail.com==

Gobillot · Answer

pourquoi un TextBox

un Bouton pour le lancer suffit non ?

le programme se cache (Me.Hide) met en route le Timer, scrute le clavier (espionnage ?)

d&#233;tecte une combinaison de touche sp&#233;ciale, &#224; d&#233;finir, parce que le mot
"fin" &#231;a pas &#234;tre facile &#224; d&#233;tecter, il peut faire parti d'un mot,
d'une phrase ...

si la combinaison de touche est d&#233;tect&#233;e, le programme r&#233;appara&#238;t (Me.Show) ou se d&#233;charge (Unload Me)

Daniel

drpsico · Answer

le texbox c pour definir un mot qui quitera le logi
mes je fai commen pour savoir si il &#233;t&#233; taper se mo pck moi g fai 
If InStr(Text1.Text, "fin") = 1 Then End
enfete jenregistre tout dans un textbox et je verifi si le mot fin y &#233; mes sa marche pas si il i a dotre truc d'ecrit si je tape ke fin sa marche mes si je tape gftggghgdgfin ben il le trouve pas esque tu c comment je pe faire pour le trouver meme si il et melanger avec d'otre lettre
merci
psicofox6@hotmail.com==

cs_CanisLupus · Answer

Essaie :
If InStr(Text1.Text, "fin") > 0 Then End

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

drpsico · Answer

super canislupus sa marche merci

psicofox6@hotmail.com==

drpsico · Answer

un dernier truc commen on fai pour effacer une lettre en arriere

VbBack,
Effacement arri&#232;re
mes sa marche pas se me mes une barre 

psicofox6@hotmail.com==

Touche

19 réponses

Discussions similaires