Discussion :

[skysool]

Bonjour,

quelqu'un peut-il me dire comment faire un saut de ligne et continuer le texte saisie dans une textbox ?
J'ai saisie "vbCrLf" mais ca ne marche pas.

J'aimerai que si le texte est :
"Bonjour je m'appelle Tom. § Je vis à Annecy"

Qu'il s'affiche comme ceci :
"Bonjour je m'appelle Tom.
Je vis à Annecy""

Mais je n'arrive pas à sauter la ligne et supprimer le "§" avec mon code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    If Mid$(Trim$(eleve(MyIndex).Txteleve), eleve(MyIndex).TxteleveCount, 1) = "§" Then
    FrmSchool.txt3.Text =  FrmSchool.txt3.Text & vbCrLf & Right(Trim$(eleve(MyIndex).Txteleve))
    End If

Merci par avance pour votre aide !

[ProgElecT]

Salut

As tu mis ton Text3.Multiline=true ?
Text3.text = "A que" & vbnewline & "coucou" sera sur 2 lignes

[umfred]

il y a plus simple que de passer par des sous-chaines. Il y a la fonction Replace
https://learn.microsoft.com/fr-fr/of...place-function (c'est la doc pour VBA, mais c'est similaire sous VB6)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MonTexteFormate = Replace(MonTexteOrigine, "§" ,vbNewLine)
TexteGlobal.Text=TexteGlobal.Text & vbNewLine & MonTexteFormate

D'après ton exemple, on pourrait rajouter les espaces autour de "§"=> " § "

Une autre solution pourrait être d'utiliser Split() pour récupérer un tableau des chaines séparés par le caractère "§" ici et de les rassembler via un Join()

https://learn.microsoft.com/en-us/of...split-function
https://learn.microsoft.com/en-us/of.../join-function

[skysool]

Salut

As tu mis ton Text3.Multiline=true ?
Text3.text = "A que" & vbnewline & "coucou" sera sur 2 lignes

Oui j'ai bien Trueline en actif.
En revanche ça n'a pas fonctionné pour moi et vbnewline également.
Merci tout de même

[DAUDET78]

Oui j'ai bien Trueline en actif.

C'est MultLine=True
Chez moi, chat marche

[skysool]

Merci Daudet78 c'est exactement ce que j'ai fais mais je ne comprends pas pourquoi cela ne fonctionne pas...
Toujours est-il que j'ai reessayé sur un nouveau projet et ca marche !

Donc faut que je cherche à présent pourquoi sur mon projet ca ne fonctionne pas

En tout cas merci une fois de plus à vous tous pour vos lumieres

[DAUDET78]

Donc faut que je cherche à présent pourquoi sur mon projet ca ne fonctionne pas

Tu rajoutes dans ton programme un debug.print

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Text1_Change()
Debug.Print Time, Text1.MultiLine
End Sub

Si ton MultiLine te donne faux ou false, c'est (au choix) :

• Que tu n'as pas mis le MultiLine à true sur le bon TextBox
• Qu'il y a un enfoiré dans ton programme qui le force à false.

Edit : je viens de voir que la propriété MultiLine était Read Only. Donc non modifiable après exécution. Donc, c'est toi qui te goure de TextBox

[skysool]

Bonsoir,

je viens partager une solution que j'ai trouvé sur le net et qui permet de detecter automatiquement la taille du texte et de faire un retour à la ligne automatique.

Le mérite revient à son contributeur ici : http://www.vb-helper.com/howto_detect_wordwrap.html



P.S : Merci également à Daudet78, umfred, Progelect pour votre aide