أبا عمر قام بنشر مارس 15, 2013 قام بنشر مارس 15, 2013 إخواني لقد طرحت من قبل إستفسار عن إمكانية تنسيق النصوص في مربعات النص مثل الإيميل أو محرر المشاركة الخاص بمنتدانا الغالي مثلا وقد وجدت برنامج للأستاذ الكبير رضا عقيل الذي أسال الله عز وجل أن يرضى عنه ويرزقه ذرية صالحة وهو برنامج الجوزات المطور الخاص به وقد وجدت به ما طلبت فهل من مثال عليها مرفق صورة للمطلوب تنسيق النص.rar
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 أخي ابا عمر نحتاج في النموذج : مربع نص مستهدف مربع تحرير وسرد للتحكم في حجم النص مربع تحرير وسرد للتحكم في إسم الخط مربع تحرير وسرد للتحكم في محاذاة النص زر تبديل للتحكم في سماكة الحروف BOLD زر تبديل للتحكم في الخط المائل زر تبديل للتحكم في وضع خط تحت النص زر أمر لإستعادة الوضع الافتراضي للنص في مربع النص المستهدف وللحديث بقية ....... .............
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 نتابع مربع النص المستهدف نجعله في تفاصيل النموذج ويكون غير منضم (للتجرية و التطبيق) ، ونجعل له في خصائصه (القيمة الافتراضية) نصاً بسيطاً مربع تحرير وسرد للتحكم في حجم النص : نجعله في رأس النموذج ، ويكون نوع مصدر الصف في خصائصه Value List ومصدر الصف أرقام مختارة حسب رغبتك (لا تقل عن 8) ومثلاً 8;9;10;11;12;13;14;17;22;24 فائدة : ولا بد هنا أن يفصل بين كل رقم و لاحقه فاصلة منقوطة وللحديث بقية .... .........
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 نتابع مربع تحرير وسرد للتحكم في إسم الخط ، نجعله في رأس النموذج ، ويكون مصدر الصف فيه من جدول أنواع الخطوط tblFontName وسيكون جزءاً من التطبيق المرفق في نهاية الشرح ، وقد نتحدث لاحقاً بإذن الله عن كيفية الحصول على قائمة بإسماء الخطوط الموجودة على الجهاز . صورة مرفقة .. ......... مربع تحرير وسرد للتحكم في محاذاة النص ، نجعله في رأس النموذج ، ويكون نوع مصدر الصف في خصائصه Value List ومصدر الصف قيم مختارة تمثل أوضاع المحاذاة المتوفرة وهي General;Left;Center;Right;Distribute وللحديث بقية ... ..........
أبا عمر قام بنشر مارس 16, 2013 الكاتب قام بنشر مارس 16, 2013 متابعك أستاذي الكريم أبو آدم بدقة وأحاول تحين الفرصة للتطبيق معك خطوة خطوة جزاك _ الله _ خيراً
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 نتابع نحتاج لإنشاء ثلاثة أزرار تبديل (كما سبق) ، ويتم إنشاء أزرار التبديل كما هو موضح بالصورة صورة مرفقة ... زر تبديل للتحكم في سماكة الحروف BOLD وننسخ خلفه الكود Private Sub Toggle22_Click() If Me.Toggle22 Then Me.Text0.FontBold = False Else Me.Text0.FontBold = True End If Me.Text0.FontBold = Me.Toggle22 End Sub زر تبديل للتحكم في الخط المائل وننسخ خلفه الكود Private Sub Toggle23_Click() If Me.Toggle23 Then Me.Text0.FontItalic = False Else Me.Text0.FontItalic = True End If Me.Text0.FontItalic = Me.Toggle23 End Sub زر تبديل للتحكم في وضع خط تحت النص وننسخ خلفه الكود Private Sub Toggle24_Click() If Me.Toggle24 Then Me.Text0.FontUnderline = False Else Me.Text0.FontUnderline = True End If Me.Text0.FontUnderline = Me.Toggle24 End Sub و للحديث بقية .... ...........
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 نتابع لإستعادة الوضع الافتراضي للنص في مربع النص المستهدف ، ننشيئ روتيناً بسيطاً في النموذج ، حيث ننسخ في محرر الفيجوال Private Sub fDefault() Me.Text0.FontBold = False Me.Toggle22 = False Me.Text0.FontItalic = False Me.Toggle23 = False Me.Text0.FontUnderline = False Me.Toggle24 = False Me.Text0.FontSize = 12 Me.Combo13 = 12 Me.Text0.FontName = "Arial" Me.Combo15 = "Arial" Me.Text0.TextAlign = 3 Me.Combo4 = "Right" End Sub حيث نقوم بإستدعاء هذا الروتين كلما إحتجنا اليه ، ومن ذلك ، خلف زر أمر إستعادة الوضع الافتراضي ، وفي حدث عند التحميل للنموذج ، حيث نقوم بالاستدعاء بإستخدام Call fDefault وللحديث بقية .... ......
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 نتابع خلف مربع تحرير وسرد للتحكم في حجم النص ، ننسخ الكود Private Sub Combo13_Change() Forms("Form1").Controls("Text0").FontSize = Me.Combo13 End Sub خلف مربع تحرير وسرد للتحكم في إسم الخط ، ننسخ الكود Private Sub Combo15_Change() Forms("Form1").Controls("Text0").FontName = Me.Combo15 End Sub خلف مربع تحرير وسرد للتحكم في محاذاة النص ، ننسخ الكود Private Sub Combo4_Change() Select Case [Combo4] Case "General" Forms("Form1").Controls("Text0").TextAlign = 0 Case "Left" Forms("Form1").Controls("Text0").TextAlign = 1 Case "Center" Forms("Form1").Controls("Text0").TextAlign = 2 Case "Right" Forms("Form1").Controls("Text0").TextAlign = 3 Case "Distribute" Forms("Form1").Controls("Text0").TextAlign = 4 End Select End Sub وللحديث بقية .... .........
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 جزيت خيراً أبا عمر بانتظار تعليقاتكم بعد التطبيق .... NA_FontProperties.rar 1
أبا عمر قام بنشر مارس 16, 2013 الكاتب قام بنشر مارس 16, 2013 أسأل _الله_في عليائه أن يرضى عنك ومن تحب ومن تخصهم بالدعاء مثال ممتاز لكن عدة إستفسارت أستاذي الكريم 1- هل يمكن التحكم بتنسيق جزء من النص الموجود داخل مربع النص. 2- في حال رغبيتنا في جعل هذا المثال في الإعدادات الإساسية للبرنامج " مثل برنامج الأستاذ رضا " مثلا يقوم المستخدم بإختيار المناسب له وبالضغط على موافق يقوم بتطبيق المختار على كامل التطبيق أو نماذج محدده في التطبيق
أبا عمر قام بنشر مارس 16, 2013 الكاتب قام بنشر مارس 16, 2013 كما أسأل_ الله _ سبحانه وتعالى أن يرزقك بمساعدتك لنا حلاوة تجدها في قلبك وأن يفتح عليك في العبادة وأن يفتح عليك في السجود فيتعلق به قلبك وأن يسددك ربي الى أرشد أمورك ومن تحب ومن تخصهم بالدعاء
أبو آدم قام بنشر مارس 16, 2013 قام بنشر مارس 16, 2013 أحسن الله اليك أبا عمر فيما أحسنت من الدعاء أجبت في طرحي على عموم ما فهمت من طلبك الأول ...... أنا لم أطلع على التطبيق الذي تتحدث عنه للأخ رضا وعموماً ... في 2003 التطبيق يكون على كامل النص (فيما أعلم) وبعد ما فصّلت في القول ... آملاً أن أكون قد أحسنت الفهم عنك ... نعيد النظر في التفصيل ... ولكن قد أحتاج لإجابة منك عن بعض الأسئلة في حينه والله من وراء القصد وهو حسبي .. ...........
أبا عمر قام بنشر مارس 16, 2013 الكاتب قام بنشر مارس 16, 2013 (معدل) أستاذي الفاضل أنت ما قصرت أبداً لا من قريب ولا من بعيد سواء في شرحك الرائع أو المثال المرفق الذي هو غاية في الروعة وهذا ما كنت أريده فأسأل _ الملك _ سبحانه وتعالى أن يجعل لك بكل ثانية قضيتها في سبيل إنهاء هذا العمل حسنة ومن تحب ومن تخصهم بالدعاء والحسنة بعشر _ والله_ يضاعف لمن يشاء. لكن أحيانا تطرأ أفكار أحببت أن أستفسر عنها لكي يكتمل العمل وينفع_ الله _ به خلقاً كثير يكون أوله وآخره في موازينك يوم تلقاه سبحانه وهو عنك راضٍ غير غضبان وأنا على أتم إستعداد لأي أسئلة ختاماً لا أجد أبلغ من جزاك_الله_خيراً تم تعديل أبريل 16, 2014 بواسطه أبا عمر
أبو آدم قام بنشر مارس 18, 2013 قام بنشر مارس 18, 2013 للحصول على أنواع الخطوط المثبتة على جهازك برمجياً http://www.officena.net/ib/index.php?showtopic=45994 .............
abdoullah قام بنشر مارس 18, 2013 قام بنشر مارس 18, 2013 والله عمل جبار جزااك الله خير الجزاء مفيد جدا
عبيدالله قام بنشر مارس 18, 2013 قام بنشر مارس 18, 2013 موضوع جميل ورائع وإلى الأمام دوما وكان لي موضوع سابق احب ان اشارككم به وهو عبارة عن تضمين اكثر من تنسيق مختلف داخل مربع النص هكذا (مثال): الاسم: سامي علي ابوعايش، العمر: 23 سنة، الحالة الاحتماعية: عازب، الحالة التعليمية: طالب جامعي اترككم مع المرفق مع ملاحظة انه لا يعمل إلا على 2007 وما فوق لأنه يعتمد على ادماج اكواد "html" ضمن اكواد "vba" FormatText 2007.rar
أبو آدم قام بنشر مارس 18, 2013 قام بنشر مارس 18, 2013 أحسن الله اليك عبيدالله كنت قد مررت بهذا التطبيق الجميل ، وفيه فيما فهمت تجميع مجموعة من النصوص في مربع النص مع ضبط خصائص الخط لكل جزء والتساؤل الأخير لأخينا أبا عمر يدور حول إختيار جزء من النص في مربع النص و التحكم في ضبط خصائص النص لهذا الجزء (إن كنت قد أحسنت الفهم عنه) فهل لكم في الأمر تجربة تشاركنا بها . وجزيت عنا خير الجزاء ..........
أبا عمر قام بنشر مارس 18, 2013 الكاتب قام بنشر مارس 18, 2013 (معدل) جزاك_الله_خيراً أستاذي عبيد الله جزاك_الله_خيراً أستاذي أبو آدم لقد أحسنت الفهم عني أولاً وآخراً وإن كان من قصور فأكيد من سوء أسلوبي في إيصال المعلومة تم تعديل مارس 18, 2013 بواسطه أبا عمر
أبا عمر قام بنشر مارس 18, 2013 الكاتب قام بنشر مارس 18, 2013 أستاذي الكريم أبو آدم أسأل_ ربي_ سبحانه وتعالى أن يهدي قلبك ويطهره وأن يجعلك من الربانيين ومن تحب ومن تخصهم بالدعاء
أبو آدم قام بنشر مارس 18, 2013 قام بنشر مارس 18, 2013 أحسن الله اليك أبا عمر ... وجزيت عني خير الجزاء .......
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.