DERNIER CARACTÈRE D'UN TEXTBOX

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003 - 26 août 2003 à 17:55
dadibarca23 Messages postés 67 Date d'inscription mercredi 3 octobre 2012 Statut Membre Dernière intervention 6 octobre 2019 - 14 nov. 2012 à 12:22

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8363-dernier-caractere-d-un-textbox

dadibarca23 Messages postés 67 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

CAD9757 Messages postés 74 Date d'inscription dimanche 17 août 2003 Statut Membre Dernière intervention 27 mars 2004
27 août 2003 à 15:58

Non, en fait c'est :
Call Msgbox(right(trim$(text1.text),1),vbCritical, "Erreur : T'as pas mis la parenthèse au bon endroit !")
Là c'est "potable". Allez, @+ !

Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
27 août 2003 à 14:27

Groucho > heuresement que t'es la man, pasque sinon, ils essayaient pendant encore un bout de tmps d'avoir quelquechose de potable

cs_Groucho Messages postés 26 Date d'inscription mercredi 12 février 2003 Statut Membre Dernière intervention 14 mars 2005
27 août 2003 à 08:48

Ce ne serait pas plustôt
Msgbox right(trim$(text1.text,1)) ?

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
26 août 2003 à 18:16

Te décourage pas
c'est en essayant que l'ont arrive a quelque chose
aller courage !!!!!

cs_Booster Messages postés 235 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 6 octobre 2009
26 août 2003 à 18:15

Bon ok les gars merci vous m'avez achevé mais o moin je me coucherai moin con (G Honte ^^) chai po si je v po arrêter vb et me reconvertira a paint ;-)

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
26 août 2003 à 18:13

JoePatent -->Pas con ji avais pas pensé

JoePatent Messages postés 171 Date d'inscription jeudi 30 janvier 2003 Statut Membre Dernière intervention 20 juillet 2008
26 août 2003 à 18:12

pou rles espace tu fais ceci :
msgbox trim$(right(text1.text,1))

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
26 août 2003 à 18:12

a ok g capté
le code suivant repond a ta question
en 3 ligne

For i = Len(Text1.Text) To 1 Step -1
If Mid(Text1.Text, i, 1) <> " " Then MsgBox Mid(Text1.Text, i, 1): Exit For
Next i

cs_Booster Messages postés 235 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 6 octobre 2009
26 août 2003 à 18:10

non mais regarde ma source la 2 eme parti si je met "Booster " ben mon prog va afficher r le tien va afficher " " ta compri ??

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
26 août 2003 à 18:06

Je comprend pas ta question mais disons que :

text1.text="Booster"
MsgBox Right(Text1.Text, 1)

la messagebox contiendra la lettre r

cs_Booster Messages postés 235 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 6 octobre 2009
26 août 2003 à 18:03

Et comment tu fait pour po que le dernier ne soi po un espace !!??

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
26 août 2003 à 17:55

Oulala!!!!!
ta pas choisi la facilité
tu as 28 lignes et moi je fais la meme chose en 1 ligne

MsgBox Right(Text1.Text, 1)

Bon aller si t'es debutant c normal(on est tous passer par la !!lol)

Discussions similaires

Comment recuperer le dernier enregistrement d'une table en sql

Dernier enregistrement de chaque membre

SELECTIONNER les 5 dernière ligne d'une table

Dernier enregistrement dans une liste selon un ID.

Comment ecrire dans un TextBox...

Votre réponse

Discussions similaires