[ismail2012]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته


كيف يمكنني تغيير لون جزء محدد من النص في RichTextBox
مثلا لدي RichTextBox مكتوب فيها
my name is ismail and i am programmer

إذا كنت أريد تغيير كلمة i am مثلا للون الأخضر
طبعا لا أفصد تغير جميع الكلمات
شكرا

[oneyemenweb2]

السلام عليكم اتفضل يا اخي

كود :

richTextBox1.SelectionColor = Color.Blue

والخاصية SelectionBackColor لتغيير خلفية النص
انا غيرت الى ازرق وانت غير الى ما تحب

مع تحياتي

[kslawy]

السلام عليكم ورحمة الله وبركاته

هذا كود للأخ RamiLove :

كود :

Imports System.Text.RegularExpressions


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ChangeTextColor(TextBox1.Text.Trim, RichTextBox1, Color.Green)
    End Sub


    Public Function ChangeTextColor(ByVal Text As String, ByVal RichTextBoxName As System.Windows.Forms.RichTextBox, ByVal Color As System.Drawing.Color)
        Dim T As MatchCollection
        Dim O As Integer
        Try
            For O = 0 To 999999999
                T = Regex.Matches(RichTextBoxName.Text, Text)
                Dim Indx As Match = T(O)
                RichTextBoxName.Select(Indx.Index, Indx.Length)
                RichTextBoxName.SelectionColor = Color
                RichTextBoxName.Select(RichTextBoxName.TextLength, 0)
            Next
        Catch
        End Try
        Return Text
        Return RichTextBoxName
        Return Color
    End Function
    
End Class

*****
****
***
**
*

[ismail2012]

شكرا لكما .......تم الحل

[ismail2012]

سؤال آخر لو سمحتم
كيف يمكنني تظليل جزء من النص بناء على نص آخر
مثلا لدي 2 تكست بوكس 1 زر
مكتوب في الأول hello and welcome
ومكتوب في الثاني and
عند الضغط على الزر تظلل كلمة and
شكرا لكم

[Aly El-Haddad]

ismail2012 كتب :سؤال آخر لو سمحتم
كيف يمكنني تظليل جزء من النص بناء على نص آخر
مثلا لدي 2 تكست بوكس 1 زر
مكتوب في الأول hello and welcome
ومكتوب في الثاني and
عند الضغط على الزر تظلل كلمة and
شكرا لكم

السلام عليكم،

كود :

If Not TextBox1.Text.IndexOf(TextBox2.Text) = -1 Then
            TextBox1.SelectionStart = TextBox1.Text.IndexOf(TextBox2.Text)
            TextBox1.SelectionLength = TextBox2.TextLength
            TextBox1.Focus()
        End If

[ismail2012]

شكرا لك أخي علي وبارك الله فيك