Sujet Précédent Sujet Suivant

Surbrillance sans effacer

cs_couga Messages postés 1 Date d'inscription lundi 20 septembre 2004 Statut Membre Dernière intervention 19 décembre 2004 - 19 déc. 2004 à 17:30
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 19 déc. 2004 à 18:17
Voila mon problème avec ce code :

Private Sub Text1_GotFocus()

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

End Sub

Lorsque je tape le premier caractère tout le champ s'efface.

Je veux éviter ça si par exemple l'utilisateur doit juste modifier le premier chiffre sans avoir à tout retaper

Merci

1 réponse

Réponse 1 / 1
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
19 déc. 2004 à 18:17
Dans l'événement KeyPress, sotcke la chaîne actuellement entrée, puis définit le nouveau texte, et enfin, annule la touche :

KeyPress :
Dim sTexte as String
sTexte = Text1.Text
sTexte = Chr(KeyAscii) & sTexte
Text1.Text = sTexte
Let KeyAscii = 0

ce code te permet par exemple d'ajouter la lettre au début du mot.
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
0

Discussions similaires

comment rafraichir la console
florian1121 -
florian1121 -

14 réponses
effacement
punisher0785 -
Whismeril -

16 réponses
macro, supprimer une feuille Excel SANs confirmation...
Bruno_65 -
Bruno_65 -

2 réponses
Effacer un objet
Shakan972 -
Shakan972 -

2 réponses
Bouton en surbrillance bleu.
sajik -
sajik -

6 réponses
Rejoignez-nous