ASCII
joyman555
-
10 févr. 2001 à 23:56
cs_Cyber Messages postés 12 Date d'inscription jeudi 16 mai 2002 Statut Membre Dernière intervention 15 mars 2004 - 16 mai 2002 à 20:16
cs_Cyber Messages postés 12 Date d'inscription jeudi 16 mai 2002 Statut Membre Dernière intervention 15 mars 2004 - 16 mai 2002 à 20:16
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
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
-------------------------------
-------------------------------
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
-------------------------------
-------------------------------
cs_Cyber
Messages postés
12
Date d'inscription
jeudi 16 mai 2002
Statut
Membre
Dernière intervention
15 mars 2004
16 mai 2002 à 20:16
16 mai 2002 à 20:16
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
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
