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

كيف يمكننني تحديد ما إذا كان جزء معين من نص في ال RichTextBox له تنسيق معين

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

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

أخواني الكرام كنت أود أن أعرف إذا كان جزء من النص الموجود عندي في أداة RichTextBox

له تنسيق ما بعنى :

هذا الكود يقوم بتلوين جزء من النص مثلاً :

كود -----

Rtf.SelStart = 0

Rtf.SelLength = 40

Rtf.SelColor = VbRed

---------

أنا الآن أريد أن أعرف مثلاً إن كان هذا الجزء من النص و الذي مقداره 40 حرف ملونين بالأحمر أم لا مثلاً

و السبب في ذلك لأني أقوم بتصميم برنامج للقرآن الكريم و خلال القراءة أجعل جزء معين من نص السورة الحالية و هي الاية التي تقرأ

يأخذ اللون الاحمر و بالتالي فأنا أضع أمر تلوين الآية في حدث تغير موقع المؤشر من الملف الصوتي Position_Chang و بالتالي

يتم تنفيذ الامر و لكن بشكل مستمر و أكثر من مرة فتظهر أداة النص بشكل مرتعش و لذلك أردت أن أشرط التنفيذ إذا كان الجزء

الذي يحدد الآية له لون غير الأحمر .

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#2

أخي كومفورت شوف توصلت لهذي الطريقة علماً ما أستخدمت الريش تكست في حياتي بس اكتب الكود هذا يمكن يفيدكم

تضع عدد اثنين تكست= text1 : تحمل قيمة بداية التحديد

text2 : تحمل قيمة عدد أحرف التحديد

وتضع عدد اثنين كوماند : كوماند 1 = نفذ التحديد

كوماند 2 = إضهار الجزء المحدد.... ملاحظة قد لا يعنيك الكود بهذه الطريقة بس ممكن تلعب فيه وتضع تايمر يقوم بزيادة بداية التحديد 20 حرف مثلاً على حسب طول الآية وبعد فترة خمسة أو عشرة ثواني على حسب مدة قرائة الشيخ لتلك الآية يقوم أيضاً بزيادة بداية التحديد أحرف الآية الآخرى وهكذا... تحياتي

private sub command1_click()
a=val(text1)
b=val(text2)
rtf.selstart=a
rtf.sellength=2b
rtf.setfocus
end sub

الكود هذا هو المهم
msgbox rtf.seltext

تم تعديل هذه المشاركة بواسطة محمدvb في 10 يناير 2007 في 20:20

#3

أخي الكريم

عملت لك مثال سريعا يحتوي على أربعة آيات في صندوق النص ويتم تلوينهم أثناء القراءة

ولاحظ أنك يلزمك أن تعيد لون الآية السابقة إلى اللون الأسود مرة أخرى بعد أن كانت حمراء وهكذا وقد وضعت هذا الأمر في المثال

ولو هناك أي إشكال فأنا في الخدمة

quran.rar

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…