تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تغيير لون النص في RichTextBox
#1
كيف استطيع تغيير لون جزء من النص فقط في RichTextBox مثلا أجعل حروف (الباء) كلها باللون الاحمر وباقي النص باللون الاسود لأجل تمييزها
الرد
تم الشكر بواسطة:
#2
PHP كود :
Public Class Form1


    Sub colorWord
(ByVal word As StringByVal 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
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

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

    End Sub
End Class 






المشكلة حرف واحد ما ضبط في العربي
بيمشي معك في حرفين فأكثر
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: Amir_Alzubidy , Fantastico , الطالب
#3
أحسنت أبو عمر جزاك الله خيرا
أنا ضبط عندي حرف واحد لكن ليس عن طريق الدالة
وأيضا الظاهر ان بعض الخطوط العربية يصعب معها التلوين
الرد
تم الشكر بواسطة:
#4
بفضل الله تم التعديل لتلوين حرف واحد فقط في كامل النص
المثال مرفق الان


[attachment=7900]

بالتوفيق يا استاذ
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: الطالب
#5
لك جزيل الشكر مرة أخرى يا أبا عمر
الرد
تم الشكر بواسطة:
#6
سلام


كود :
Sub RichTextBoxHighlightText(ByVal richTextBox As RichTextBox, ByVal [string] As String, ByVal color As Color)
    Dim c As Color = richTextBox.ForeColor
    richTextBox.SelectAll()
    richTextBox.SelectionColor = c
    For i = 0 To richTextBox.TextLength
        richTextBox.Find([string], i, RichTextBoxFinds.None)
        richTextBox.SelectionColor = color
    Next
    richTextBox.ForeColor = c
End Sub


موفقين
متغيب
الرد
تم الشكر بواسطة: Fantastico


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تغيير رأس datagrid tifagreet 2 512 16-07-19, 06:57 PM
آخر رد: muhannad.mabrouk
  [VB.NET] سؤال حول إعادة تسمية رؤوس الأعمدة ونوع خانات النص في تقرير بالكود Al Wilaya 5 108 12-07-19, 01:27 AM
آخر رد: asemshahen5
  مشكله في تغيير مقاسات البرنامج عند نقله علي اللاب توب Emam emam 8 362 05-07-19, 08:46 PM
آخر رد: Emam emam
Information [سؤال] كيفية جعل المشروع يحفظ الملفات في مجلد بالحاسوب مهما تغيير مكان تنصيب المشروع الرائد 3 175 09-06-19, 05:21 AM
آخر رد: ابراهيم ايبو
  كيفة إجبار مربع النص على الكتابة بالفرنسية فقط ahmedfa71 2 167 15-05-19, 03:02 PM
آخر رد: ahmedfa71
  قراءة صفحات الانترنت على RichTextBox ابو روضة 4 233 16-04-19, 06:55 PM
آخر رد: ابو روضة
  مربع النص يبدا بحرف ومن بعد ارقام anis 3 217 09-04-19, 02:36 AM
آخر رد: elgokr
  مسح جميع أدوات النص دفعة واحدة sads 7 265 30-03-19, 11:28 PM
آخر رد: عبد العزيز البسكري
  كيف اجعل النص bold and italic and Underline سوية وليس كل على حدة ابراهيم ايبو 1 152 03-03-19, 08:24 AM
آخر رد: ابراهيم ايبو
  زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري atefkhalf2004 4 291 24-02-19, 04:50 PM
آخر رد: حريف برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم