ممكن كود للكتابة بعدة ألوان داخل أداة النص

#13 مايو 2005 في 14:25 صاحب الموضوع

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

لو سمحتم بغيت كود لتغيير بعض الأشياء داخل أداة النص ( Text Box ) كالتالي :

1- حجم الخط للسطر الأول مثلاً ليس كحجمه في السطر العاشر وكذا ليس في الأخير .

2- لون الخط أيضاً يختلف من السطر الأول والخامس والعاشر .

3- وضع بعض الإضافات كتسطير أو تضخيم أو مائل .*** وللتوضيح أكثر فقد أضفت هذه الصور لأحد البرامج .

** وإن أمكن أريد كود يمنع النسخ واللصق في أداة النص .

** فضلاً لا أمراً أريد شرح للكود .

***********

مع التحية

#23 مايو 2005 في 14:42

بعد التحية

يمكنك عمل ذلك مع اداة الريتش تكست وليس مع التكست العادى

وبالنسبة لكود التلوين فهو

قم اولا بتحديد الجزء المراد تلوينه ثم اضف الكود

Private Sub command1_click()
RichText1.SelColor=vbred
End Sub

وبالنسبة لمنع النسخ واللصق فضع هذا الكود داخل اداة تايمر

Private Sub Timer1_Timer()
ClipBoard.Clear
End Sub

وبالنسبة للاداة التى يقف عليها الماوس فى الصورة المرفقة فعلى حد علمى هى اداة HyperLink

اما باقى الاكواد فانا للاسف لااعرفها :rolleyes:

تم تعديل هذه المشاركة بواسطة ghost2010 في 3 مايو 2005 في 14:43

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

#33 مايو 2005 في 14:42

من أجل دلك يجب عليك استعمال أداة RichTextBox

أما أداة التكست العادية فلا يمكن عمل دلك بها

موقع المبرمجون العرب

أول موقع عربي لمسابقات الخوارزميات

مواضيعي في المنتدى

#43 مايو 2005 في 15:09

شكراً جزيلاً

ياأخ : ghost2010

ولا يسعني إلا الدعاء لك بالتوفيق في الدنيا والآخرة

والشكر موصول أيضاً لك أخي :crazy-man

********* ملاحظة *********

الكود الذي كتبته أخي : ghost2010

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

وشكراً

ياحبذا سرعة الرد

تم تعديل هذه المشاركة بواسطة MEMORY SYSTEM في 3 مايو 2005 في 15:14

#53 مايو 2005 في 19:38

اخى الفاضل

لقد توصلت الى باقى الاكواد وهاهى اليك

بالنسبة لتغيير حجم سطر معين اليك هذا الكود

private sub Command1_Click()
RichText1.SelFontSize=20
End Sub

وكود التلوين سبق كتابته

وكود التسطير

RichText1.SelUnderline =true

وكود التضخيم

RichText1.SelBold =true

وكود جعل الخط مائل

RichText1.SelItalic =true

وربنا يوفقك فى عملك ولو احتجت مساعدة لاتتردد فى السؤال :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

#63 مايو 2005 في 19:45

أخي بارك الله فيك

وأنا مقدر تعبك وجهدك

وأعذرني إذا تعبتك معي

لكن ...........

والله إن مستحي منك

كثرت عليك الطلبات

فياليت تعطيني من وقتك الثمين

وتفهمني " وأنا لا أقصد الإساءة أو أنك لا تفهم * حاشا وكلا * "

لكن المطلوب باختصار هو التالي :

الكود الذي أكتبه داخل سورس البرنامج بحيث لايمكن للمستخدم التعديل فيه

فقط يظهر على حسب طلبي أنا كالصورة لدى المستخدم .

ليس الكود الذي أضعه بعد أن يظلل المستخدم على النص ينفذ الأوامر .

بطريقة أخرى : كمثال الصورة بالأعلى .

أعذرني مرة أخرى

وأنا آآآآآآآآآآآآآآآآآآآآآسف

وشكراً جزيلاً

تم تعديل هذه المشاركة بواسطة MEMORY SYSTEM في 3 مايو 2005 في 19:47

#73 مايو 2005 في 19:50

اخى الفاضل

انا عارف اننا مانعرفش بعض معرفة شخصية لكن هاطلب منك طلب

ممكن تبعت لى نمرة تليفونك عشان اكلمك وافهم منك المشكلة بالظبط

الايميل بتاعى

vb_ghost2010@yahoo.com

ارجو انك تبعته وياريت الاسم كمان واكون متشكر جدا :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال