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 06 09:22:24

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

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : [DéPLACé VB.NET -> VBA] APPEL DE FONCTION DANS UNE MACRO par louvierseb

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

+ de logiciels à télécharger

1 465 026 membres
76 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 056 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 !

DERNIER CARACTÈRE D'UN TEXTBOX

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 26/08/2003 Date de mise à jour : 26/08/2003 17:39:48 Vu : 2 991

Auteur : Booster

Ecrire un message privé

Note :

3,75 / 10

Commentaire sur cette source (16)

Ajouter un commentaire et/ou une note

Description

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

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

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

Sources du même auteur

COMPARER DES REPERTOIRES PRELISTE (AVEC SOUS DOSSIER...), TR...

TESTER PROXY(5 PAR 5)

UTILS AOL (RECO AUTO, CONVERTIR M>H, MASQUER, QUITTER RAPIDE...

REMENBER VB 2.0.0B

REMEMBER VISUAL BASIC

Toutes les sources de Booster

Sources de la même categorie

TEXTSTYLE, EDITOR HTML par jupevi

RACCOURCIR UN CHEMIN (PATH) OU URL INTERNET par Tioneb

EDITEUR DE TEXTE par ali5

SMS GENERATOR par jack

COMPARAISON DE DOSSIERS, FICHIERS ET TEXTE par RicoNuch

Toutes les sources de la catégorie Texte

Commentaires et avis

Commentaire de SatanCorporation le 26/08/2003 17:55:10

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)

Commentaire de Booster le 26/08/2003 18:03:42

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

Commentaire de SatanCorporation le 26/08/2003 18:06:05

Je comprend pas ta question mais disons que :

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

la messagebox contiendra la lettre r

Commentaire de Booster le 26/08/2003 18:10:45

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

Commentaire de SatanCorporation le 26/08/2003 18:12:21

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

Commentaire de JoePatent le 26/08/2003 18:12:38

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

Commentaire de SatanCorporation le 26/08/2003 18:13:44

JoePatent -->Pas con ji avais pas pensé

Commentaire de Booster le 26/08/2003 18:15:36

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 ;-)

Commentaire de SatanCorporation le 26/08/2003 18:16:42

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

Commentaire de Groucho le 27/08/2003 08:48:34

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

Commentaire de Tilois le 27/08/2003 14:27:01

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

Commentaire de CAD9757 le 27/08/2003 15:58:30

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, @+ !

Commentaire de poof65 le 01/09/2003 05:03:42

booster on reconnait bien la le debutant ^^ (t'inkiete c pa mechant).
Pour avoir l'air plus pro essaie de faire sans goto

Commentaire de ld40 le 24/10/2003 21:35:46

ton code ressemble à du gwbasic ou du basic pour calulatrice.
les fonctions sympas en vb6 pour analyser le texte sont:
mid
trim
instr
len
...

Commentaire de PHDTeam le 30/09/2004 23:09:08

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

Commentaire de Groucho le 01/10/2004 09:02:23

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," ","")