بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تحكم بتنسيق النصوص بكل حرية'.
تم العثور علي 1 نتيجه
-
تمكنت (بحمد الله) من عمل دالة لإعادة تنسيق جزء من النص داخل مربع النص في التقارير أو النماذج تقوم هذه الدالة بتمكين المستخدم التحكم في تنسيق النص أو جزء من النص داخل مربع نص واحد!! كيف؟.. انظر الصورة: بالنسبة للتقارير بالنسبة للنماذج الصيغة العامة: FormatText(TargetText ;FontName ;FontSize ;FontColor ;FontBold ;FontItalic ;FontUnderline ) الشرح: FormatText: اسم الدالة الخاصة بإعادة تنسيق النص TargetText: النص المستهدف لإعادة تنسيقة FontName: اسم الخط ويكتب بين علامتي تنصيص("×××")َ FontSize: حجم الخط ويمكن كتابتها بين علامتي تنصيص أو بدونها FontColor: لون الخط، ويكتب بين علامتي تنصيص ("×××") ويمكن كتابة اسم اللون باللغة الإنجليزية أو كتابة كود اللون FontBold: لجعل النص غامق اكتب -1 سالب واحد أو True FontItalic: لجعل النص مائل اكتب -1 سالب واحد أو True FontUnderline: لتسطير النص (خط تحت النص) اكتب -1 سالب واحد أو True التطبيق: قم باستيراد الوحدة النمطية إلى برنامجك ثم استخدم الدالة. المطلوب: تجربة واختبار الدالة وتطويرها من قبل مشرفي واساتذة واعضاء المنتدى. الوحدة النمطية: Function FormatText(TargetText As String, FontName As String, FontSize As String, FontColor As String, FontBold As Integer, FontItalic As Integer, FontUnderline As Integer) Dim FontB0, FontB1, FontI0, FontI1, FontU0, FontU1 As String If FontBold = True Then FontB0 = "<b>" FontB1 = "</b>" Else FontB0 = "" FontB1 = "" End If If FontItalic = True Then FontI0 = "<i>" FontI1 = "</i>" Else FontI0 = "" FontI1 = "" End If If FontUnderline = True Then FontU0 = "<u>" FontU1 = "</u>" Else FontU0 = "" FontU1 = "" End If FormatText = "<font face=" & FontName & " , size=" & FontSize & " , color=" & FontColor & FontB0 & FontI0 & FontU0 & "" & TargetText & "" & FontU1 & FontI1 & FontB1 & "</font>" End Function النسخة كاملة (2007 وما فوق) FormatText 2007.rar المقابل: الدعاء بالتوفيق.
