الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه أبو ساري في 17 مايو 2002 · 6 رد · 776 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أيها الاخوة المبرمجون السلام عليكم ورحمة الله وبركاته وبعد :

أريد أن أسيطر على المدخلات التي يكتبها المستخدم للبرنامج

في أداة rich textbox مثال على ذلك لو كتب المستخدم

بسم الله الرحمن الرحيم يقوم البرنامج فور كتابتها بالكامل يقوم بتلوينها

باللون الأزرق و يجعل الخط عريض وجميع النصوص المتبقية يكون على الخط الأفتراضي

ومشكورررررررررررررررررررررررررررررررررين;) ;) ;) ;) ;) ;)

#2

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

 

 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

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

;)

#3

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

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

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

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

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

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

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

:) :) :) :)

والله يحفظكم

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

#4

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

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

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

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

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

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

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

:) :) :) :)

والله يحفظكم

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

#5

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

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
#6

شيء حلو

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

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

;)

#7

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

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة