منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغيير لون جزء محدد من النص في RichTextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغيير لون جزء محدد من النص في RichTextBox (/showthread.php?tid=7180)



تغيير لون جزء محدد من النص في RichTextBox - ismail2012 - 29-11-12

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


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

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


تغيير لون جزء محدد من النص في RichTextBox - oneyemenweb2 - 29-11-12

السلام عليكم اتفضل يا اخي
كود :
richTextBox1.SelectionColor = Color.Blue

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

مع تحياتي


تغيير لون جزء محدد من النص في RichTextBox - kslawy - 29-11-12

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

هذا كود للأخ 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

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


تغيير لون جزء محدد من النص في RichTextBox - ismail2012 - 30-11-12

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


تغيير لون جزء محدد من النص في RichTextBox - ismail2012 - 30-11-12

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


تغيير لون جزء محدد من النص في RichTextBox - Aly El-Haddad - 30-11-12

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



تغيير لون جزء محدد من النص في RichTextBox - ismail2012 - 30-11-12

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