كيفيك تغيير لون كلمة في نص الtextbox

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

بإمكانك عمل هذا ولكن ليس بالأداة القياسية Textbox

يجب عليك إستخدام أداة Rich textbox

فهو أفضل بكثير وله مزايا عديدة

الكود:

Private Sub Form_Load()

x = "Hello"
a = "Welcome"

Text1.Find a

Text1.SelColor = &HFF0000

Text1.Refresh

End Sub

طبعا هذا الكود بسيط جدا ,, بإمكانك تطويره على حسب حاجتك

ملاحظة: لقد قمت بتغير إسم الأداة من Rich textbox1 إلى Text1 لتسهيل التعامل البرمجي B)

تحيااااتي,,,

معليش اخوي ابوفهيد

ممكن تشرح الكود تبعك اكثر اذا ماعليك كلافة ؟؟؟

واذا عادي بعد تعلمني كيف استخدم الRich textbox وماهي مزاياها؟؟؟

Text1.Find a

للبحث عن الكلمة , a متغير = "Welcome"

إذا هذا السطر يبحث عن كلمة "Welcome"

Text1.SelColor = &HFF0000

يقوم بتعين اللون الأزرق إلى الأداة

Text1.Refresh

يعمل تحديث للإداة

طريقة تضمين الأداة إلى العمل :

إضغط على ctrl+t ثم ظع علامة صح على Microsoft Rich textbox Control 6.0

الأن سوف تجد الأداة من ضمن صندوق الأداوات القياسية

أما عن مميزاته فيه كثيرة منها :

تحميل ملف خارجي , الربط في قاعدة البيانات, خاصية البحث,التعامل مع المؤشر كأن يكون المؤشر في بداية السطر أو نهايته ...

ولكن لكل مميزات لا يخلو من العيوب :happy:

فمن عيوب هذه الأداة لا تدعم الكتابة من اليمين إلى اليسار

تحيااااااتي,,,

شكرا اخوي ماقصرت

انا بقول لك بالضبط ماالذي اريده

يكون عندي 2text box OR 2 richtextbox واقارن بين الكلمات الموجدة فيهم فان كان هناك كلمة او اكثر من كلمة مختلفة بين ال 2textbox OR 2rich textbox يقوم بتلوينها بلون مخالف في احدهما

السلام عليكم

لقد قمت بعمل المطلوب ولكن مازال هناك بعض الأخطاء ,,,

الكود في المرفقات ,,

وسوف أحاول تصحيح هذه الأخطاء إن شاء الله

تحيااااتي ,,

Rich_textbox.rar

الله يجزاك خير ويوفقك ويسخر لك خلقه يا رب

فرجت عني كربة الله يفرج كربتك

قاعدة عليها من الصبح

بس اذا ماعليك امر تشرح لي هذا ال statment

RichTextBox2.Find B(x), x

وشكرا

المتغير B هي مصفوفة نضع فيها جميع الكلمات من RichTextBox2

فلو كان في صندوق النص هذه الجملة "سبحان الله"

سوف تصبح هكذا:

B(0) = "سبحان"
B(1) = "الله"

وهذه الكود

RichTextBox2.Find B(x), x

يبحث عن الكلمة الموجودة داخل مصفوفة B رقمها x

والإكس الذي بعد الفاصلة هو مكان وضع المؤشر

تحيااتي

شكرا جزيلا لك

ماقصرت..

آخر سؤال هل يمكن عمل نفس هذا الكود باستخدام الtextbox فقط

حيث ما يهمني هو خاصية right to left لاني برنامجي باللغة العربية؟؟

اقتباس

هل يمكن عمل نفس هذا الكود باستخدام الtextbox فقط

حيث ما يهمني هو خاصية right to left لاني برنامجي باللغة العربية؟؟

للأسف لا أعتقد تستطيع عمل في textbox .

قد يكون هناك حل وهو ضغط زر shift+ctrl لتحويله من اليمين إلى اليسار برمجا

ولكن لست متأكد :rolleyes:

أنا الأن احاول في عمله ولكن كل محاولات بائت بالفشل :lol:

تحيااااتي,,

شكرا ماقصرت

أكيد مانستغني عن الحل اذا وجدته :P

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

بعد اذنك اخ فهيد

يمكن ارسال ضغط الازرار الياً من خلال استخدام الدالة الوظيفية sendkeys

SendKeys "^r"

بهذا الكود نقوم بارسال ضفط مفتاح كنترول ^ + مفتاح R لتحل محل مفتاح Shift اليمين

اخت شهودة . يمكنك وضع هذا الكود في الحدث Got Focus

تحياتي

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

بس كيف استخدم الحدث Got Focus؟؟

عند الضغط على الاداة نفسها نقر مزدوج سوف تقوم بفتح صفحة الكود وسوف يكون الحدث هكذا

Private Sub Text1_Change()

في الاعلى سوف تجدمربع كومبو فيه اسم الاداة وفي الاخر الاحداث أختر الحدث GotFocus

وضع الكود داخله

تحياتي

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

الله يوفقك