Dernier caractère d'un textbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 979 fois - Téléchargée 35 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

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

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
Messages postés
26
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
14 mars 2005

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," ","")
Messages postés
6
Date d'inscription
samedi 1 novembre 2003
Statut
Membre
Dernière intervention
14 avril 2010

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
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
1
ton code ressemble à du gwbasic ou du basic pour calulatrice.
les fonctions sympas en vb6 pour analyser le texte sont:
mid
trim
instr
len
...
Messages postés
89
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008

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.