Recherche Paragraphe

- - Dernière réponse : LaluneBe
Messages postés
7
Date d'inscription
vendredi 29 septembre 2017
Dernière intervention
11 octobre 2017
- 10 oct. 2017 à 15:01
Bonjour,
J'ai une application d'éditeur de texte en vb6, le problème que je n'arrive pas à compter les paragraphes dans les Richtextbox
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7
Date d'inscription
vendredi 29 septembre 2017
Dernière intervention
11 octobre 2017
0
Merci
Bonjour,
1) Créer un bouton et mettre le code suivant dans le bouton:
Private Sub Command1_Click()
Dim i, position, nbParagraph As Integer
position = 1
nbParagraph=0
For i = 1 To Len(RichTextBox1.Text)
Paragraph = InStr(position, Form1.RichTextBox1.Text, vbLf)
If Paragraph > 0 Then
nbParagraph=nbParagraph+1
Text1.text= nbParagraphe
else
goto fin
end if
position = Paragraph + 1
Next i
fin:
End sud
Commenter la réponse de LaluneBe

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.