begin process at 2012 02 16 21:08:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Texte

 > DERNIER CARACTÈRE D'UN TEXTBOX

DERNIER CARACTÈRE D'UN TEXTBOX


 Information sur la source

Note :
3,75 / 10 - par 4 personnes
3,75 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Niveau :Débutant Date de création :26/08/2003 Date de mise à jour :26/08/2003 17:39:48 Vu :3 531
Auteur : Booster

Ecrire un message privé
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

Source avec Zip Source avec une capture COMPARER DES REPERTOIRES PRELISTE (AVEC SOUS DOSSIER...), TR...
Source avec Zip Source avec une capture TESTER PROXY(5 PAR 5)
Source avec Zip UTILS AOL (RECO AUTO, CONVERTIR M>H, MASQUER, QUITTER RAPIDE...
Source avec Zip Source avec une capture REMENBER VB 2.0.0B
Source avec Zip Source avec une capture REMEMBER VISUAL BASIC
Toutes les sources de Booster

 Sources de la même categorie

Source avec Zip Source avec une capture MASQUE DE SAISIE NUMÉRIQUE par acive
Source avec Zip Source .NET (Dotnet) COMPTEUR DE NOMBRE DE MOTS DANS UN TEXTE par alpha5
Source avec Zip Source avec une capture HM - BLOCNOTE par hassenmajor
Source .NET (Dotnet) [VB.NET] CLASS DE COLORATION SYNTAXIQUE "ON THE FLY" par huzima
Source avec Zip Source avec une capture PERSONNALISEZ VOS BOÎTES DE MESSAGE (X)HTML par medjahedScript
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," ","")

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Monument Valley Utah known as The Mittens
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,936 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)