Jai un RichTextBox1 avec dedans :

Première ligne
Deuxième ligne
C la derniere ligne


Voila je suis vreiment débutante en VB, j'aurai voulu :

Private Sub RichTextBox1_Change()
End Sub


Faire un test la dedans qui prend la dernière ligne du RichTextBox1, j'avais pensez remonter la chaine de charctère du RichTextBox1 et s'areter au moment ou ya un retour a la ligne, prendre tout se qui est après et le mettre dans une variable pour finire par :

If aaa= "C la derniere ligne" then msgbox "Ca marche !"



Merci pour votre aide.





kakenette

Met cette fonction dans le code de ton formulaire :

Private Function LastLine(ByVal RTB As RichTextBox) As String

Dim Line As String

If RTB.Lines.Length > 0 Then

Line = RTB.Lines(UBound(RTB.Lines))

Else

Beep()

Line = "Pas de lignes !"

End If

Return Line

End Function

Puis créer un bouton dont le code est :

MsgBox(LastLine(RTB))

Voilà ! Si jamais ca marche pas dis le moi ! Bonne continuation !

Redman

Ca marche pas :(

Ya "Beep()" et "Return Line" en rouge aussi

Sa me mais aussi une erreur ici :

If RTB.Lines.Length > 0 Then

Method or data member not found

....

kakenette

Tu est bien sûre que ta richtextbox porte le nom : "rtb" ?

Au fait, j'en profite mais moi je cherche à trouver le numéro de la première ligne visible de la RTB.

Oui je suis sur ! si je change le nom il dit object required un truc du genre.

kakenette

Ok merci ca marche nikel !
kakenette

Jack, franchement, t'es trop fort parfois!!! Je la connaissait pas encore celle là (Split)!!!
Un immense MERCI!!!

Ceci dit, je me demande s'il ne vaudrait pas mieux utiliser la variable VB "vbNewLine" plutôt que ce vieux "vbCrLf" ???

Je pensais que tu travailler en Vb.Net

Désolé !

Redman

pour >>> ScSami

     If vbNewLine = vbCrLf Then
        MsgBox "Yes, vbNewline And vbCrLf is the same thing"
        End If


Daniel