TextBox

Signaler
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Voilà, c'est un truc tout con, mais je voudrais savoir comment effacer la PREMIERE ligne d'un Textbox (multilignes...)
C'est tout.

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )

6 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Ca faisait longtemps VBsupernul ;-)
Est-ce que tu connaîs la longueur de la ligne a effacer ?
Si non, ca risque d'être assez compliqué.

DARK SIDIOUS
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Oui, la ligne, ç'est un retour à la ligne, rien de +...

J'ai ça parceque j'ai une boucle
Open lechemin For Input As #1
Do Until (EOF(1))
Line Input #1, Texte
Texte1 = Texte1 & vbCrLf & Texte
Loop
Close #1
Et donc il faudrait faire en sorte que la 1ère ligne de Texte1 ne soit pas un retour chariot...
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Ah ok, c'est vrai que mon truc rajouttait un ligne vide au début, en fait c'est tout simple : ca vient de la boucle qui est mal faîte : Au lieu de faire cà :

Open lechemin For Input As #1
Do Until (EOF(1))
Line Input #1, Texte
Texte1 = Texte1 & vbCrLf & Texte
Loop
Close #1

Fait plutôt ca :

Open lechemin For Input As #1
Do
Line Input #1, Texte
Texte1 = Texte1 & vbCrLf & Texte
Loop While(EOF(1))
Close #1

Excuse moi pour cette erreur de ma part.

DARK SIDIOUS
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Dsl DARKSIDIOUS, mais là, 1 ça lit que la premère ligne
2 ça met touijours un retour chariot au début...
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Essaie ça :

Open lechemin For Input As #1
Line Input #1, Texte ' lire la 1ère ligne
Texte1.Text = Texte
Do While Not EOF(1)
Line Input #1, Texte
Texte1.Text = Texte1.Text & vbCrLf & Texte
Loop
Close 1
0
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

Merci, merci bokou, maintenat ça marche
merci rene38
vraiment

@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0