simple couleur du texte dans la zone de texte enrichi

Je peux trouver un million d'exemplaires de faire des reg ex pour appliquer la coloration syntaxique pour une zone de texte enrichi. mais ce que j'ai besoin juste d'un moyen simple d'ajouter en un mot d'une autre couleur.

Quel serait le code pour mettre juste les mots "Hello World" dans une zone de texte et ont Bonjour à être le rouge et le Monde sera vert?

Ce code ne marche pas.

this.richTextBox1.SelectionColor = Color.Red
this.richTextBox1.text += "Test"

Êtes-vous à l'aide de VB.Net ou C#?
Il est étiqueté vb.net et il n'y a pas des points-virgules...
...mais alors, le code utilise ce lieu de Moi... déroutant!
De Plus, text devrait être Text. Toutefois, toutes les de l'OP de l'autre .Net les questions sont VB, donc je suppose que c'est trop.
c'est vb.net code. j'ai juste utilisé le code ci-dessous un exemple de son vraiment plus comme childform.rtbMainText.Le texte, mais j'ai juste essayé de la rendre plus simple. suppose que je n'ai pas réussi à ça lol

OriginalL'auteur The Digital Ninja | 2009-11-05

7

Sélectionnez le texte à la suite vous mettre à l'intérieur et ensuite changer la couleur.

Par exemple:
```
richTextBox1.Text += "Test"
richTextBox1.Select(richTextBox1.TextLength - 4, 4)
richTextBox1.SelectionColor = Color.Red
```
Ce n'est pas la bonne façon d'ajouter un texte à toute Forme de contrôle. Chaque fois que vous êtes en train de réinitialiser l'ensemble du texte à l'intérieur d'un contrôle qui peut être très lente lorsque le contenu est de plus en plus gros. Un mauvais codage.

OriginalL'auteur SLaks
7

Ce code ajoute le texte "Bonjour" en rouge et "Monde" en vert de la RichTextBox.
```
RichTextBox1.SelectionColor = Color.Red
RichTextBox1.SelectedText = "Hello "
RichTextBox1.SelectionColor = Color.Green
RichTextBox1.SelectedText = "World"
```
Pourquoi ai-je été downvoted... j'ai testé mon code et il fonctionne.
Votre réponse est beaucoup plus simple que les réponses, et ça marche pour moi! Merci Meta-Knight.

OriginalL'auteur Meta-Knight
2

Ive a travaillé avec elle en VB6 et je pense que c'est la même chose:
Vous devez sélectionner le texte, puis appliquer
```
this.richTextBox1.SelectionColor = Color.Red
```
Le texte ajouté apparaît toujours dans le defaut de couleur, vous devez le sélectionner et ensuite changer sa couleur:
```
this.richTextBox1.text="Hello world!"
this.richTextBox1.selstart=0
this.richTextBox1.sellength=5
this.richTextBox1.SelectionColor = Color.Red
```
Que je n'utilise pas vb.net vous devez vérifier l'orthographe mais je pense que c'est la clé.
Le code que j'ai écrit est censé print "Bonjour" en rouge et "du Monde!" en noir.

OriginalL'auteur ChaosCoder

Essayer cette

    RichTextBox2.SelectionLength = 0
    RichTextBox1.SelectionStart = 0
    ' We deselect everything first in case the user has something selected.
    RichTextBox1.SelectionColor = Color.Red
    RichTextBox1.SelectedText = "Hello "
    RichTextBox1.SelectionColor = Color.Green
    RichTextBox1.SelectedText = "World "

Cela permettra d'ajouter au début de la zone de texte. Je pense que vous pourriez aussi faire SelectionStart = RichTextBox1.TextLength qui permettrait de mettre à la fin au lieu de le démarrer.

OriginalL'auteur L1amm

Le code ne fonctionne pas:

this.richTextBox1.SelectionColor = Color.Red
this.richTextBox1.text += "Test"

Modifier la deuxième ligne:

this.richTextBox1.SelectionColor = Color.Red
this.richTextBox1.selectedtext = "Test"

OriginalL'auteur Ronan

Essayer cette

Sub colorWord(ByVal word As String, ByVal color As Color) ' by im4dbr0
        For i As Integer = 0 To RichTextBox1.TextLength
            Try
                If RichTextBox1.Text.ElementAt(i).ToString = word.ElementAt(0).ToString Then
                    Dim found As Boolean = False
                    For j As Integer = 1 To word.Count - 1
                        If RichTextBox1.Text.ElementAt(i + j) = word.ElementAt(j) Then
                            found = True
                        Else
                            found = False
                            Exit For
                        End If
                    Next
                    If found = True Then
                        RichTextBox1.Select(i, word.Length)
                        RichTextBox1.SelectionColor = color
                    End If
                End If
            Catch ex As Exception
                Continue For
            End Try
        Next

Plusieurs mots, l'utilisation de la boucle

 Dim Words As New List(Of String)
        Words.Add("Its")
        Words.Add("That")
        Words.Add("Simple")
        For i As Integer = 0 To Words.Count - 1
            colorWord(Words.Item(i), Color.Red)
        Next

OriginalL'auteur Austin Thompson

Vous devez vous connecter pour publier un commentaire.