Richtextbox - coloration syntaxiqueRésolu

Question

Bonjour tout le monde, Je sollicite votre aide concernant l'utilisation de richtextbox. J'ai fais une fonction qui doit changer la couleur d'une partie de mon texte dans ma RTB : ma fonction : Code : PublicFunction changecouleur(ByVal rtb As RichTextBox, ByVal chaineatrouver AsString, ByVal Lcolor As System.Drawing.Color) Dim longeurchaine AsInteger = Microsoft.VisualBasic.Len(chaineatrouver) Dim debutchaine AsInteger = rtb.Find(chaineatrouver, RichTextBoxFinds.MatchCase) 'on fait un saut de ligne pour les prochaines lignes rtb.Text = rtb.Text & vbCrLf rtb.Focus() 'on selectionne la chaine a colorier rtb.Select(debutchaine, longeurchaine) rtb.SelectionColor = Lcolor rtb.DeselectAll() 'on place le curseur a la fin rtb.SelectionStart = rtb.Text.Length EndFunction Jusque là ca va, quand je fais appel a ma fonction ca marche j'ai mon texte en couleur, mais si j'appel a nouveau ma fonction avec un nouveau texte, seul cette nouvelle chaine est colorée. L'autre revient en noire. Avez vous des idées sur le pourquoi du comment? Merci d'avance.

kciope · Accepted Answer

Ca y est j'ai trouvé voici ma nouvelle fonction : 

  

 
 Public Function changecouleur(ByVal t As ArrayList, ByVal rtb As RichTextBox, ByVal chaineatrouver As String, ByVal Lcolor As System.Drawing.Color)
        Dim longeurchaine As Integer
        Dim debutchaine As Integer
        'on fait un saut de ligne pour les prochaines lignes
        rtb.Text = rtb.Text & vbCrLf
        Dim item As String
        t.Add(chaineatrouver) 'on ajoute la chaine dans le tableau
        'rtb.SelectedText = vbCrLf
        For Each item In t
            'MsgBox("item debut : " & item)
            longeurchaine = Microsoft.VisualBasic.Len(item)
            debutchaine = rtb.Find(item, RichTextBoxFinds.MatchCase)
            rtb.Select(debutchaine, longeurchaine)
            rtb.SelectionColor = Lcolor
            rtb.DeselectAll()
        Next
        'on place le curseur a la fin
        rtb.SelectionStart = rtb.Text.Length
        rtb.Focus()
    End Function

et j'ai créer un variable dans mon module :

Public arrayimg, arrayvideos As New ArrayList() 'declaration des array pour qu'il soit accessible a tous le programme

et j'appelle ma fonction comme ci : 

changecouleur(array, rtb, strimg, Color.Orange)


 Merci a vous pour votre aide

cs_Exploreur · Answer

Salut,


Regarde cette source si elle peut te venir en aide....


A+
Exploreur

 Linux a un noyau, Windows un pépin

Renfield · Answer

a cause de  rtb.Text = rtb.Text

Renfield · Answer

faire :

rtb.SelText = vbCrLf  

(propriété a adapter a .Net)

kciope · Answer

Je ne suis pas suis que cela soit du  au rtb.text=rtb.text & vbcrlf
car quand je le supprime c'est la meme chose

kciope · Answer

Merci pour l'info, je suis en train de voir ca. J'ai sorti les paguai... c'est un autre niveau

Renfield · Answer

depend du reste du code ton appli...

tu ne dois pas faire de RTB.Text = 

sinon, le TextRTF est remis à 0

kciope · Answer

ok je vais voir aussi de ca coté

cs_christoni · Answer

Bonsoir, Tu peux aussi t’essayer aux expressions régulières. Ainsi ta ~~fonction~~ , Sub serait courte et rapide comme suit : Shared Sub changecouleur(ByVal rtb As RichTextBox, ByVal chaineatrouver AsString, ByVal Lcolor As Color) Dim reCherchText As Regex = New Regex("[\s ]*" & chaineatrouver) Dim mReCherchText As Match = reCherchText.Match(rtb.Text) Dim mcReCherchText As MatchCollection = reCherchText.Matches(rtb.Text) With rtb For Each mReCherchText In mcReCherchText .Select(mReCherchText.Index, mReCherchText.Length) .SelectionColor = Lcolor Next End With End Sub Sans oublier d’importer l’espace de nom : Imports System.Text.RegularExpressions « reCherchText » est la chaîne à coloriser, on y ajoute un ou plusieurs espaces, retours chariot ou nouvelles lignes qui peuvent exister dans ton expression à rechercher. « Match » est la recherche cas par cas dans le texte. « MatchColletion » regroupe l’ensemble des occurances trouvées. Enfin la boucle parcourre ces occurances et les met en couleur. Bonne continuation.

cs_ABF · Answer

Bonsoir,

J'ai testé ce bout de code et, lorsque l'on fait un del, enter, fleche... du clavier, ou lorsque l'on click au milieu du texte pour le modifier, le curseur est figé. y'a t'il une solution ?

Merci
Bonne soirée

Richtextbox - coloration syntaxique

10 réponses

Votre réponse

Discussions similaires