الى عملقة البرمجة rich textbox

هلا أخوي أبو ساري جرب هذا

 

 Private Sub Form_Load()

  With RichTextBox1
         .Font = 60
         .BorderStyle = rtfNoBorder
         .Font.Size = 25
         .Font.Bold = True
         .Font.Italic = True
         .BackColor = 25489
  End With

  End Sub

والله ولي التوفيق

;)

شكرا أخي حسين عبدالله أحمد حسن

ولكن المقصود يا أخي أنه البرنامج أتوماتيكي إذا وجد مثلا

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

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

يبدأ البرنامج فور الإنتهاء من كتابة البسملة كاملة يقوم بتغيير لونها الى اللون الأحمر مثلا ليجعلها لافته للنظر و باقي الكلام كما هو

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

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

:) :) :) :)

والله يحفظكم

أخوكم أبو ساري;) ;) ;)

شكرا أخي حسين عبدالله أحمد حسن

ولكن المقصود يا أخي أنه البرنامج أتوماتيكي إذا وجد مثلا

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

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

يبدأ البرنامج فور الإنتهاء من كتابة البسملة كاملة يقوم بتغيير لونها الى اللون الأحمر مثلا ليجعلها لافته للنظر و باقي الكلام كما هو

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

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

:) :) :) :)

والله يحفظكم

أخوكم أبو ساري;) ;) ;)

هذه الفكرة فقط ويمكنك تطويرها كما تريد

Private Sub RichTextBox1_Change()

    Static Pos As Long
    Dim lastPos As Long

    Pos = InStr(Pos + 1, RichTextBox1.Text, "بسم الله")
    lastPos = RichTextBox1.SelStart

    If Pos Then
        RichTextBox1.SelStart = Pos - 1
        RichTextBox1.SelLength = 8
        RichTextBox1.SelColor = vbBlue
        'ويمكنك اضافة تأثيرات أخرى
        RichTextBox1.SelStart = lastPos
        RichTextBox1.SelColor = vbBlack
    End If

End Sub

شيء حلو

الله يبارك فيك ونتمنى مشاهدة المزيد

والله ولى التوفيق

;)

بعد التحية ...

و هل يمكن ان نطوع اداة ال Rich Text Box ،، بحيث تحمل حروف بشكل خاص ... (مثل برنامج جليبا ، الذي يمكنك تمييل الخط و التحكم به كما يفعل الخطاطين ) ...

و هل يمكن ان نحمل هذه الاداة حروف ،،، بحيث نجعلها كمحرر المعادلات الرياضية ... تحمل علامة الجذر ... و السجيما .. و غيرها من الرموز الرياضية ..

بعد الشكر الجزيل:o :o :o