Dernier caractère d'un textbox
Contenu du snippet
Ceci cherche le dernier caractère de la textbox et l'affiche dans une MsgBox
G mi cette source pour les debutants pk je n'est po vu de source de ce genre sur vbfrance (bon chui peut etre Bigleu ;-) 8-))
(je voulai le mettre niveau 0.5 mais ya po alors bon ^^ )
voila aller ++ & Bonne Prog
ps : Nix g été banni et je ne c po pourquoi tu pourai me debannir stp !!!!!!
G mi cette source pour les debutants pk je n'est po vu de source de ce genre sur vbfrance (bon chui peut etre Bigleu ;-) 8-))
(je voulai le mettre niveau 0.5 mais ya po alors bon ^^ )
voila aller ++ & Bonne Prog
Source / Exemple :
Private Sub Command1_Click() 'il faut un bouton : Command1 et une texbox : Text1 X = 0 'Le programme prend les caractères un aprés l'autre Recomencer: X = X + 1 A = Mid$(Text1.Text, X, 1) 'Dés que A = "" c a dire plus rien il reprend le dernier caractère et l'affiche If A = "" Then Refait: X = X - 1 A = Mid$(Text1.Text, X, 1) If A = " " Then GoTo Refait End If MsgBox A Else GoTo Recomencer End If End Sub 'Vous pouvez aussi rajouter, si vous voulez que le dernier caractère ne sois po un espace : If A = "" Then Refait: X = X - 1 A = Mid$(Text1.Text, X, 1) If A = " " Then GoTo Refait End If MsgBox A Else GoTo Recomencer End If
Conclusion :
ps : Nix g été banni et je ne c po pourquoi tu pourai me debannir stp !!!!!!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.