Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 07 00:04:53

[CASTLE] DU NOUVEAU CHEZ CASTLE, LA NOUVELLE VERSION DE WINDSOR ET DYNAMICPROXY EST SORTIE. par tja

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

RE : VBA EXCEL, PROGRAMMATION D'UN FILTRE AVANCé : OPéRATEUR ET/OU NE FONCTIONNE PAS par fngoagouni

COMMENT FAIRE L'IMPRESSION SUR UNE IMPRIMENTE MATRICIELLE par rckdeath

QUELQU'UN POURRAIT M'AIDER à TERMINER MON PROJET ? par steeventide

RE : A PROPOS DES COMBOBOX... par liocifer

OU EST MON SSTAB par zapad

+ de logiciels à télécharger

1 465 594 membres
632 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 390 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

REMPLACER UN CARACTÈRE PAR UN AUTRE LORS D'UNE SAISIE

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 24/05/2002 Date de mise à jour : 24/05/2002 00:59:15 Vu : 2 012

Auteur : KrOusTibaT

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Le titre veu tou dire, ici pour l'exemple, l'espace est remplacé par un _

Ceci peu etre fai avec n'importe quel caractere

Just un textbox et essayez!...

Source

Private Sub Text1_Change()
If InStr(1, Text1.Text, " ") <> 0 Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "_"
Text1.SelStart = Len(Text1.Text)
End If
End Sub

Private Sub Text1_Change()

If InStr(1, Text1.Text, " ") <> 0 Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & "_"
Text1.SelStart = Len(Text1.Text)
End If

End Sub