تغییر رنگ در RichTextBox

اگر در RichTextBox بخواییم رنگ یک قسمت از متن رو تغییر بدیم، آیا راهی وجود داره که بدون Select کردن بشه این کار رو انجام داد ؟

[Farhad.B.S]

مشکل select چیه ؟ در واقع هدفتون برای استفاده نکردن از کد زیر چیه ؟

RichTextBox1.Select(0, 10)

RichTextBox1.SelectionColor = Color.Blue

مشکل این هست که نمی خوام متن بصورت Select شده در بیاد!!
البته می شه بعد از این دستور متن Select شده رو از حالت انتخاب در آورد ولی چون در برنامه ام این کار زیاد روی متن انجام می شه، متن یک مقدار حالت لرزش پیدا می کنه.

آیا راهی وجود داره ؟

[sh]

سلام شیما خانوم

Private Sub ColorWord(ByVal textToFind As String, ByVal WordColor As String) 

        ' Find and Bold all instances of a string within RichTextBox 

        Dim findCount As Integer = 0 

        With Me.rt 

            .SelectionStart = 0 

            .SelectionLength = 0 

            Dim findFromIndex As Integer = 0 

            While findCount <> -1 

                findCount = .Find(textToFind, findFromIndex, RichTextBoxFinds.MatchCase) 

                If findCount <> -1 Then 

                    .SelectionFont = New Font("Verdana", 8, FontStyle.Bold) 

                    If WordColor = "Blue" Then 

                        .SelectionColor = System.Drawing.Color.Blue 

                    Else 

                        .SelectionColor = System.Drawing.Color.Black 

                    End If 

                    findFromIndex = findCount + textToFind.Length 



                End If 

            End While 

        End With 

    End Sub 

با تشکر

سلام آقای شهریار
از لطفتون ممنون .. ولی با دستور Find هم، کلمه بصورت Select شده در می یاد. شاید در متن هایی که شما امتحان می کنین چون این کار زیاد تکرار نمی شه، لرزش کلمات قابل دیدن نیست. ولی برنامه من یک کامپایلر هست و اگر کاربر سریع تایپ کنه، متن لرزش پیدا می کنه.
البته من با تابع SendMessage با پارامتر های زیر

SendMessage(RichTextBox1.Handle, 11, 0, 0)

در قبل از دستورات تغییر رنگ .. و سپس

SendMessage(RichTextBox1.Handle, 11, 1, 0)

RichTextBox1.Refresh()

تونستم این میزان لرزش رو تا حد زیادی کم کنم.

ضمنا کدی که گذاشتین در حلقه While یک شرط بررسی مقدار متغییر findFromIndex رو کم داره.
متشکرم