ASCII

Signaler
-
Messages postés
12
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
15 mars 2004
-
Quel est le code a inserer pour dire
que quand je tape sur Entrez , quelque chose se passe

Merci de me repondre

joyman555

joyman555.fr.st

3 réponses

Tu peut utiliser KeyPress évènement.
Par exemple :
Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
..qqch... ce que tu veux...
End If.
End Sub
-------------------------------
Réponse au message :
-------------------------------

Tu peut utiliser KeyPress évènement.
Par exemple :
Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
..qqch... ce que tu veux...
KeyAscii = 0
End If.
End Sub

Et régler la propriété Feuille en KeyPrieview --> True.

Il y a autres choses délicates, p.e. les Boutons de commande monopolisent souvent le focus.
Au-delà, désolé, je ne sais plus.

-------------------------------
Réponse au message :
-------------------------------

Quel est le code a inserer pour dire
que quand je tape sur Entrez , quelque chose se passe

Merci de me repondre

joyman555

joyman555.fr.st
-------------------------------
-------------------------------
Messages postés
12
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
15 mars 2004

Pour l'utiliser sans recourir au bouton de commande.

Tu peut utiliser ce code

Private Sub txtDate_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
Case 48 To 57
Case 92
Case Else
Beep
MsgBox "Only numerical digits accepted", vbOKOnly, "Incorrect data type"
KeyAscii = 0
End Select
End Sub

De cette manière un peut viser n'importe quel text.

ascii chart :
http://www.cdrummond.qc.ca/cegep/informat/Professeurs/Alain/files/ascii.htm