كيف يمكنني عرض التشكيل بلون نمختلف عن النص ؟

عزيزي ..

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

على كل ..

mid$ ( RichTextBox1 , i , 1 ). forecolor = &HC0&

هذا هو الكود جربه وان شاء الله تمشي معك ..:)

( لا تنسى تحطه في حلقة for )

أخي ممكن توضح لي هذا الكود لأني بصراحة لا أفهمه ؟

بالإضافة إلى أن خاصية forecolor غير موجودة في Richbox

وأين موضع علامات التشكيل في الكود ؟!!

Private Sub Command1_Click()
Dim i%
With RichTextBox1
   .SelStart = 0
   .SelLength = Len(.Text)
   .SelColor = vbBlack
   .SelStart = Len(.Text)
   Do
   DoEvents
	   i = InStr(i + 1, .Text, Trim(Text1.Text))
	   If i = 0 Then Exit Do
	   .SelStart = i - 1
	   .SelLength = Len(Text1.Text)
	   .SelColor = vbRed
   Loop
End With
End Sub
Private Sub Form_Load()
Me.Caption = App.Title
Me.RichTextBox1.TextRTF = "بسم الله الرحمن الرحيم" & vbCrLf & _
"والصلاة السلام على نبينا محمد وعلى آله وصحبه أجمعين " & vbCrLf & _
"أما بعد :" & vbCrLf & _
"كلمتان خفيفتان على اللسان ثقيلتان فى الميزان ( سبحان الله العظيم سبحان الله وبحمده )" & vbCrLf
End Sub

دى مجموعة دروس عن التلوين فى الأداة المطلوبة

http://www.Planet-Source-Code.com/vb/scrip...24&lngWId=1

لا يا عزيزي بلاش أداة Richbox استخدم اداة textbox

وبعدين ضع حلقة فور من رقم 1 الى عدد الحروف كلها واستخدم فيها

len (text1.text)

فقط

وداخل جملة FOR ضع شرط اذا كان i يساوي ( "ِ" أو " ُ " أو "ٍَََََ " أو أو ....( حط الحركات اللي تبيها ) )

وبعدها اكتب الكود اللي حطيته لك في ردي السابق ..واقفل جملة الشرط واقفل جملة FOR فقط ..

هذا الحل ببساطه ..

( يفضل ان تكتب الكود في الحدث change في التكست )

في رعاية الله ..

آسف , بس على حد علمى أداة الـ Textbox لا تقبل الا لون واحد

:(

اسف أخوي ان اخذتني العجلة في ردي السابق :)

لكن الحل قادم باذن الله :) ،،

لكن المهم ومربط الفرس في الكود الذي كتبته لك في ردي الاول ..

برب

طيب ليش ما تستخدموا Replace بدل الحلقات

يعني تاخذ الشفرة (RTF) ثم تعمل بحث واستبدال الكل ..

ثم تعيد الشفرة للاداة

سارفق مثال ان شاء الله

موضوع له علاقة من هنـــــا

المبرمج عبدالكريم كتب:

طيب ليش ما تستخدموا Replace بدل الحلقات

يعني تاخذ الشفرة (RTF) ثم تعمل بحث واستبدال الكل ..

ثم تعيد الشفرة للاداة

سارفق مثال ان شاء الله

مش فاهم قصدك ايه

أنا شايف أن أحسن حاجة هيه الدروس اللى أنا حاطط الرابط بتاعها أو طريقة الأخ Karimsoft

أخي الكريم KARIMSOFT

الكود الجميل الذي كتبته ينفع فقط لتلوين الكلمات وقد جربته بالنسبة لعلامات التشكيل ولم ينفع

المبرمج عبدالكريم كتب:

طيب ليش ما تستخدموا Replace بدل الحلقات

يعني تاخذ الشفرة (RTF) ثم تعمل بحث واستبدال الكل ..

ثم تعيد الشفرة للاداة

سارفق مثال ان شاء الله

هذا عين ما قاله لي خبير برمجة لكن المشكلة في التطبيق

منتظر مثالك أخي الفاضل عبد الكريم

للرفع

للتذكير

انا اعتذر اعتذار شديد لاني نسيت عن الموضوع ..

طريقة عمل Replace

1= Replace (2,3,4)

1 : الناتج

2 : النص المراد البحث فيه

3 : نص البحث

4 : نص الاستبدال (النص الجديد)

عن طريق شفرة rtf ابحث عن الكود اللي موجود فيه الحركات ثم استبدلها بكود جديد في تلوين للحركات

كرر الكود اكثر من مرة لكل الحركات

وبعد كذا احفظها في ملف

ومن ثم اعمل لها تحميل في الاداة

لان ملفات الrtf هي ملفات نصية .. مثل الhtml

أخي الكريم

سأحاول أن أجرب هذه الطريقة بإذن الله

ولو فشلت فيها فحبذا لو وضعت مثال بسيط إن تيسر لك ذلك

وجزاك الله خيرا