تنسيق النصوص داخل مربع النص

[الظل الغامض1]

بقي الالوان :) من يكملها ؟

تم تعديل مارس 19, 2013 بواسطه الظل الغامض1

[أبا عمر]

بقي الالوان :) من يكملها ؟

الأستاذ الكبير أبو آدم طبعاً جزاه_الله_خيراً

جزاك_ الله _ خيراً أستاذي الظل الغامض 

 

[أبو آدم]

أخوتي الفضلاء

الألوان الدارجة هي :

255;Red;0;Black

يتم إنشاء مربع تحرير وسرد للألوان كسابقاته

تكون هذه الألوان في مصدر الصف ، ونوع مصدر الصف Value List ، عدد الصفوف 2 ، سعة الصفوف الأول صفر لإخفاء رقم اللون و الثاني وصف اللون

 

0cm;2.544cm
 

في حدث عند التغيير لمربع التحرير ، ننسخ الكود

 

Private Sub Combo26_Change()
       Forms("Form1").Controls("Text0").ForeColor = Me.Combo26
End Sub


 

ويتم إضافة جملة اللون الافتراضي في روتين الوضع الافتراضي fDefault

 

والله من وراء القصد وهو حسبي

 

.............

[أبا عمر]

جزاك _ الله _ جنته أستاذي الكريم أبو آدم

[الظل الغامض1]

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

لأني حاولت لكن للأسف لم أخرج بنتيجة : (

[أبا عمر]

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

جزا ربي خيرا الأستاذ أبو آدام على المثال الذي قدمه وكذا الشرح الممتع ، رفع ربي قدره وأعزه ومن يحب ومن يخصهم بالدعاء 
وتتمه للفائدة وجدث مثال (ولا أذكر لمن صراحة جزاه الله خيرا) فيه تنسيق كامل مثل الورد وأجزاء من النص أيضا ...

ملفات مرفقة 

مثال لعمل تنسيق لجزء من النص.zip