Recherche Paragraphe

avril - 31 juil. 2017 à 10:41 - Dernière réponse : LaluneBe 7 Messages postés vendredi 29 septembre 2017Date d'inscription 11 octobre 2017 Dernière intervention
- 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 

1 réponse

Répondre au sujet
LaluneBe 7 Messages postés vendredi 29 septembre 2017Date d'inscription 11 octobre 2017 Dernière intervention - 10 oct. 2017 à 15:01
0
Utile
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.