détection de touchesRésolu

Question

Bonjour a tous je suis entrain de faire un programme et dans ce programme j'ai un boutton qui n'est pas visible par d&#233;faut (command1.visible=false).
Ce que je voudrais c'est afficher ce bouton quand l'utilisateur presse une suite de touche au clavier.
Par exemple si il appuie sur b puis sur o puis sur u puis sur t puis sur o puis sur n alors le bouton devient visible (command1.visible=true).
Il faudrais que ce code marche dans le cas ou le clavier est en miniscule et dans le cas ou celui ci est en majuscule.

Gobillot · Answer

'KeyPreview de la Forme &#224; True

Dim Code As String
Dim Text As String


Private Sub Form_Load()
    Code = "bouton"
End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
    Text = Text & LCase$(Chr$(KeyAscii))
    If Text <> Left$(Code, Len(Text)) Then
       Text = ""
       Exit Sub
       End If
    If Text = Code Then
       Command1.Visible = True
       End If
End Sub

Daniel

cs_snake57 · Answer

Merci Daniel c'est bien sa ke je voulais sa fonctionne.

Détection de touches

2 réponses

Discussions similaires