Vb.net Yardım

seukaiwokeo' Alıntı:

VB.Net:

    Public Sub ColorWord(rtb As RichTextBox, word As String, color As Color)
        Dim start, found As Integer
        With rtb
            found = .Find(word, start, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight)
            Do While found > -1
                .SelectionStart = found
                .SelectionLength = word.Length
                .SelectionColor = color
                start = found + word.Length
                If start >= .TextLength Then Exit Do
                found = .Find(word, start, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight)
            Loop
        End With
    End Sub

Kullanım:

VB.Net:

ColorWord(RichTextBox1, "Admin", Color.Red)

Genişletmek için tıklayın ...