بسم الله الرحمن الرحيم
هل توجد طرقه لتلوين كلمه معينه في مربع النص ..
مثلاً بفرض انه لدينا :
txt1.Text="كلمتان خفيفتان على اللسان ثقيلتان فى الميزان ( سبحان الله العظيم سبحان الله وبحمده )"
txt2.Text="الله"
وعند النقر على الامر comFind يقوم بأخذ الكلمة الموجوده في txt2 ويبحث عنها في txt1 وفي حالة العثورعليها يقوم بتلوينها بلون أحمر في مربع النص txt1 وهي هنا كلمة "الله"وهكذا ..
أرجوا لمن له القدره أن يقدم لنا الاجابة ان يسعفنا ..
وشكراً مقدماً ...
1 - سقوط الإنسان ليس فشلاً ، ولكن الفشل أن يبقى حيث سقط .
2 - الفاشلون قسمان : قسم فكر ولم يفعل ، وقسم فعل ولم يفكر .
-------------------------------------------------------
درس في ADO.NET 2005, التعامل مع الجداول المترابطة في ado.net 2005
هذا هو الكود لكن لابد من وضع الجملة التى يستم التلوين فيها فى اداة RichText لان اداة TextBox لاتدعم هذه الخاصية
Option Explicit Option Compare Text Private Sub comFind_Click() Dim i% With RichTextBox1 Do DoEvents i = InStr(i + 1, .Text, Text1.Text) If i = 0 Then Exit Do .SelStart = i - 1 .SelLength = Len(Text1.Text) .SelColor = vbRed Loop End With End Sub
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
الله يسعدك ياأخي GHOST2010 كما أسعتني وأسعفتني ..
ولتكتمل الفائده هذا مثال على الموضوع لعل غيرنا يستفيد ...
1 - سقوط الإنسان ليس فشلاً ، ولكن الفشل أن يبقى حيث سقط .
2 - الفاشلون قسمان : قسم فكر ولم يفعل ، وقسم فعل ولم يفكر .
-------------------------------------------------------
درس في ADO.NET 2005, التعامل مع الجداول المترابطة في ado.net 2005
حاولت أجعل المحذاه في مربع النص الغني لليمين ولم اعرف هل من توضيح كيف يتم ذلك ...
1 - سقوط الإنسان ليس فشلاً ، ولكن الفشل أن يبقى حيث سقط .
2 - الفاشلون قسمان : قسم فكر ولم يفعل ، وقسم فعل ولم يفكر .
-------------------------------------------------------
درس في ADO.NET 2005, التعامل مع الجداول المترابطة في ado.net 2005
اكتب هذا الكود
Private Sub Form_Load() RichTextBox1.SelAlignment = 1 End Sub
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
شكراً ولكن لم يتغير شيئ ، هل يوجد مثل خاصية RightToLeft أو ما شابه .
1 - سقوط الإنسان ليس فشلاً ، ولكن الفشل أن يبقى حيث سقط .
2 - الفاشلون قسمان : قسم فكر ولم يفعل ، وقسم فعل ولم يفكر .
-------------------------------------------------------
درس في ADO.NET 2005, التعامل مع الجداول المترابطة في ado.net 2005
الكود يعمل بصورة ممتازة :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
علمت أنه يجب كاتبة الكوت بهذه الطريقة :
With RichTextBox1 .SelStart = 0 .SelLength = Len(.Text) .SelAlignment = 1 .SelStart = Len(.Text) End With
ولكن المشكلة في كتابة الاقواس وما شابه ليس معد للنصوص العربية ، فهي تظهر كما يلي :
. من قال : سبحان الله وبحمده في يوم مائة مرة حطت خطاياه ولو كانت مثل زبد البحر )) متفق عليه ))
1 - سقوط الإنسان ليس فشلاً ، ولكن الفشل أن يبقى حيث سقط .
2 - الفاشلون قسمان : قسم فكر ولم يفعل ، وقسم فعل ولم يفكر .
-------------------------------------------------------
درس في ADO.NET 2005, التعامل مع الجداول المترابطة في ado.net 2005
هل هناك حل لذلك ..
نرجو الإفاده ...
1 - سقوط الإنسان ليس فشلاً ، ولكن الفشل أن يبقى حيث سقط .
2 - الفاشلون قسمان : قسم فكر ولم يفعل ، وقسم فعل ولم يفكر .
-------------------------------------------------------
درس في ADO.NET 2005, التعامل مع الجداول المترابطة في ado.net 2005
هذا الموضوع مغلق.