2 réponses
Salut, :clown)
Y a quelqu'un qui a déjà posé cette question peu de temps
avant toi (voir message qui s'appelle "clavier").
Voici la réponse qui lui avait été donné par Makabey
(rendons à César ...):
Met la propriété KeyPreview de ta Form à True et ajoute ceci:
Y a quelqu'un qui a déjà posé cette question peu de temps
avant toi (voir message qui s'appelle "clavier").
Voici la réponse qui lui avait été donné par Makabey
(rendons à César ...):
Met la propriété KeyPreview de ta Form à True et ajoute ceci:
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 10
Label1 = "[Changement ligne]"
Case 13
Label1 = "[Retour charriot (Enter)]"
Case 32
Label1 = "[Espace]"
Case 48 To 57 '0-9
Label1 = Chr$(KeyAscii)
Case 65 To 90, 97 To 122 'A-Z, a-z
Label1 = Chr$(KeyAscii)
Case Else
Label1 = "[Char autre]"
End Select
End Sub