cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 27 oct. 2002 à 17:33
Il suffit de compter le nombre de retours à la ligne. Par exemple :
Dim Lignes As Integer, i As Integer
For i = 1 To Len(RichTextBox1.Text) If Mid(RichTextBox1.Text, i, 1) VbCr Then Lignes Lignes + 1
Next i
MsgBox Lignes
Tu peux mettre VbLf au lieu de VbCr
VbCr chr(13) Saut de paragrapheet VbLf Chr(10) Saut de ligne
cs_processus
Messages postés360Date d'inscriptionvendredi 24 août 2001StatutMembreDernière intervention 9 juillet 20083 28 oct. 2002 à 12:59
Ca risque de prendre du temps.
Il vaut mieux faire un 'Split()' du contenu de ton RichTextBox, et faire un UBound() pr connaitre le nombre d'occurences de ce tableau.
NOTE: vbCr n'a jamais été un "Saut de paragraphe" mais un retour début de ligne (Cr Carriage Return) Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3
capoueidiablo
Messages postés316Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 1 février 20101 18 juin 2003 à 15:37
excuse moi, tu pourai mettre un exemple avec split pour avoir le nombre de ligne dans le RichTextBox1 car je comprend pas comment ca marche (je suis un newb :-) )--Capoueidiablo--
Vous n’avez pas trouvé la réponse que vous recherchez ?
PCPT
Messages postés13280Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201849 2 nov. 2006 à 16:29
salut,
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As
Long
Private Const EM_GETLINECOUNT = &HBA
'
Private Sub Command2_Click()
MsgBox SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0&, 0&)
End Sub
SlaytanIK
Messages postés3Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention29 février 2008 28 nov. 2007 à 09:52
Bonjour,
C'est un peu tard mais j'espere que ma proposition vous aidera ;)
'--- calcul le nombre de ligne du RichTextBox1
RichTextBox.SelectAll()
Dim nbrligne As Integer = RichTextBox.GetLineFromCharIndex(RichTextBox.SelectionLength())
MessageBox.Show(nbrligne)
L'idee est de selectionner tout le text du RichTextBox puis recuperer la ligne de l'index du dernier caractere.
Si vous avez un retour chariot a la fin, rajouter +1 a nbrligne.