تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] كيف يتم تلوين تكست RichTextBox
#1
السلام عليكماخواني
عندي RichTextBox كيف يتم تلوين الكلام الموجود بين قوسين مثل (بسم الله الرحمن الررحيم) او اي جملة بين القوسين
المطلب كود للتلوين في RichTextBox
اخوكم ابو بدران
}}}}
تم الشكر بواسطة:
#2
السلام عليكم...

كود :
Private Sub Command1_Click()
    Dim Idx1 As Long
    Dim Idx2 As Long
    Dim AStart As Long
    
    Dim TempStart As Long
    Dim TempLen As Long
    
    TempStart = RichTextBox1.SelStart
    TempLen = RichTextBox1.SelLength
    
    AStart = 0
    Do While AStart < Len(RichTextBox1.Text)
        Idx1 = RichTextBox1.Find("(", AStart)
        If Idx1 = -1 Then
            Exit Do
        Else
            Idx2 = RichTextBox1.Find(")", Idx1 + 1)
            If Idx2 = -1 Then
                Exit Do
            Else
                RichTextBox1.SelStart = Idx1 + 1
                RichTextBox1.SelLength = Idx2 - Idx1 - 1
                RichTextBox1.SelColor = vbRed    ' ضع هنا اللون الذي تريده
                
                AStart = Idx2 + 1
            End If
        End If
    Loop
    RichTextBox1.SelStart = TempStart
    RichTextBox1.SelLength = TempLen
End Sub

* في سطر التلوين RichTextBox1.SelColor = vbRed ضع اللون الذي تريده بدل vbRed الذي هو اللون الأحمر.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
}}}}
تم الشكر بواسطة: Ashraf Elafify
#3
جزالكم الله خير
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : إجراء عملية القرعة عبد العزيز البسكري 5 161 06-12-16, 01:29 AM
آخر رد: Ahmed_Mansoor
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 89 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  كود عدد الاحرف المكرره فى تكست الحلوانى 2 75 20-10-16, 06:32 PM
آخر رد: الحلوانى
  قرائة سطر معين داخل ملف تكست vb6 شفنطل 4 1,167 16-04-16, 10:20 PM
آخر رد: Ahmed_Mansoor
  [سؤال] استخراج قيم عمود فى تكست بوكس ABO.BANCIANA 2 283 21-02-16, 08:58 PM
آخر رد: ahmedabdelaliem
  (تم الحل) سؤال في الاكمال التلقائي (مهم ) awidan76 3 290 17-01-16, 01:16 PM
آخر رد: ahmedabdelaliem
  (تم الحل)مشكلة في الاستعلام بين تاريخين awidan76 13 1,041 06-01-16, 11:07 AM
آخر رد: Ashraf Elafify
  [تم الحل] كيف يمكنى اضافة ملف exe الى المشروع ..؟ karika 8 1,024 27-12-15, 03:56 AM
آخر رد: awidan76
  [تم الحل] القسم الصحيح من عدد asto 2 414 26-12-15, 02:37 PM
آخر رد: awidan76
  تلوين كلمة البحث sameerhesen 13 2,088 26-08-13, 08:57 AM
آخر رد: VB_Coder

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


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