Dernier caractère d'un textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 400 fois - Téléchargée 37 fois

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

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 !!!!!!

A voir également

Ajouter un commentaire Commentaires
dadibarca23
Messages postés
71
Date d'inscription
mercredi 3 octobre 2012
Statut
Membre
Dernière intervention
6 octobre 2019

14 nov. 2012 à 12:22
comment fait un
Création dynamique d'espace entre deux caractères dans le TextBox
vb.net
et comment écrire le code dans le vb.net
merci bien dadi
cs_Groucho
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
14 mars 2005

1 oct. 2004 à 09:02
Si on veut supprimer les espaces à gauche
Var7=LTrim$(Var7)

Si on veut supprimer les espaces à droite
Var7=RTrim$(Var7)

Si on veut supprimer les espaces à gauche et à droite
Var7=Trim$(Var7)

Si on veut supprimer tous les espaces
Var7= Replace(Var7," ","")
PHDTeam
Messages postés
6
Date d'inscription
samedi 1 novembre 2003
Statut
Membre
Dernière intervention
14 avril 2010

30 sept. 2004 à 23:09
Je trouve que ce code est tré tré bien dans la mesure ou il permet de supprimé les espaces avent la valeur voulu ex: " Intel(R) Celeron(R) CPU 2.40GHz"

Y = ""
For x = 0 To Len(var7)
x = x + 1
A = Mid(var7, x, 2)
If A = " " Then
Else
Y = Y + A
End If
Next x
var7 = Y
Un grand merci pour ton code qui m'a était trés utile
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
24 oct. 2003 à 21:35
ton code ressemble à du gwbasic ou du basic pour calulatrice.
les fonctions sympas en vb6 pour analyser le texte sont:
mid
trim
instr
len
...
poof65
Messages postés
89
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008

1 sept. 2003 à 05:03
booster on reconnait bien la le debutant ^^ (t'inkiete c pa mechant).
Pour avoir l'air plus pro essaie de faire sans goto
Afficher les 17 commentaires

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.