السلام عليكم
هذه المشكلة عرضتها كثيرا ولم أجد لها حلا إلى الآن وهي :
عندي نص في richbox وليكن :
(( حدثنا محمد بن سلمة المرادي حدثنا عبدالله بن وهب عن يحيى بن عبدالله ))
وأريد عند الضغط على اللون الأحمر أن يكتب لي الجملة الملونة في textbox مثلا
بمعنى لو اني ضغطت مثلا على "عبد الله بن وهب" فإني أريده أن يكتب لي هذه العبارة في textbox
فهل أجد حلا لهذا الإشكال ؟
وجزاكم الله خيرا
تم تعديل هذه المشاركة بواسطة محمد زغلول في 3 يناير 2006 في 17:46
اولا : بلزمك بعض المعلومات عن ال rich text format و يطلق عليه rtf
ثانيا : صممتلك مثال بسيط يستخرج اللون الاحمر و الاخضر ... وعليك فهمه و تطويره لانه يستخرج اول جملة فقط من لون معين
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
أخي الكريم
جربت المثال وحاولت التعديل فيه لكنه لم ينفعني
حتى أنني أحيانا عندما ألون كلمة وأضغط على الزر فإنه يكتبها لي مضافا إليها حرفين (بالعربي) أحيانا !!!
المثال الذي أقصده هو أن النص به بعض الجمل ملونة جاهزة وبلون واحد كالأحمر مثلا وأريد بمجرد الضغط على أي جملة أن يتم كتابتها في textbox
ربما يكون مثالك قريب من هذا لكني لم أستطع تطبيقه على حالتي
اليك هذا المثال كما تريد تماما ....
ولكن جربته على اللغة الانجليزية فقط و يعمل 100%
اما بالنسبة للغة العربية فلا اعتقد نظرا لاختلاف شكل اللغة العربية فى ملفات ال rtf
ارجو ان تفهم فكرة البرنامج وتحاول التعديل الى اللغة العربية
و بالمناسبة هذا الكود يفصل الجمل عن بعضها باختلاف جميع الالوان و حتى الخطوط ...يعنى بمعنى اخر اى جملة تختلف عن الاخرى فى التنسيق فان البرنامج يفصل بينهم اوتوماتيك
تم تعديل هذه المشاركة بواسطة VB6-Rocket في 4 يناير 2006 في 04:18
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
هل الفكرة تعتمد على اللون فقط ؟ وهل الكلمات باللون الأحمر يتم تحديدها مسبقاً في البرنامج ؟
أقصد أن المستخدم لا يستطيع التغيير في هذا الشئ
بمعنى آخر:
تريد ان تجعل اسماء الرواة بلون مختلف مثلاً الأحمر وحين يضغط المستخدم على اسم الراوي يتم اظهار معلومات عنه .. أهذا ما تريده؟ (كفكرة محرر الكود في الفيجوال بيسك وغيرها ..)
إن كان كذلك فاستخدم ما يعرف بـ
Syntax Highlighting In RichEdit
حظ موفق
تم تعديل هذه المشاركة بواسطة cipher في 4 يناير 2006 في 15:24
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
الكود التالي مأخوذ من كود يقوم بـ Detect HyperLink مع بعض التعديلات أصبح بامكانه إعطاء النص ذو اللون المحدد ...
الكود الأصلي تجده هنا : http://www.tek-tips.com/faqs.cfm?fid=4936
مع بعض التغييرات والتحسينات إن شاء الله يفيدك ...
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then With Me.RichTextBox1 If .SelColor = vbRed Then 'And .SelUnderline Then 'find the beginning of the Hyperlink For I = .SelStart To 1 Step -1 .SelStart = I If .SelStart = I Then 'sometimes the .SelStart doesn't change..this is the work around If .SelColor <> vbRed Then 'Not .SelUnderline Then 'This is for hyperlink Exit For End If End If Next I StartPos = .SelStart 'Find the end of the Hyperlink For I = .SelStart + 1 To Len(Me.RichTextBox1) .SelStart = I If .SelStart = I Then 'sometimes the .SelStart doesn't change..this is the work around If .SelColor <> vbRed Then 'If Not .SelUnderline Then 'This is for hyperlink Exit For End If End If Next I EndPos = .SelStart - 1 'Now Scrape HyperLink .SelStart = StartPos .SelLength = EndPos - StartPos MyHyperLink = .SelText .SelStart = 1 .SelLength = 0 'Now launch internet explorer to that page Form1.Caption = MyHyperLink 'Shell """d:\Program Files\Internet Explorer\IExplore.exe """ & MyHyperLink, vbNormalFocus End If End With End If End Sub
وكما قلت مسبقاً إستخدام Syntax Highlighting In RichEdit سيجعل العمل أكثر دقة وأكثر احترافيه ...
مثلاً ستكون أسماء الرواه مع معلوماتهم في قاعدة بيانات وأثناء قراءة النص الى RichEdit ستقوم بفحص اذا ما كان النص الحالي اسم من اسماء الرواة و تعطيه index أو خاصية معينة ثم تغير لونه أو تجعله كـ HyperLink ...
كما هو الحال في محرر الكود في الفيجوال بيسك والدلفي وغيرها ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
جزاك الله خيرا أخي الكريم chiper على المساعدة
سأنظر في المثال وأحاول التعديل وأخبرك بإذن الله
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…