الآن: تنسيقات متعددة للنص داخل مربع نص واحد (نوع الخط، البنط، اللون، حجم الخط)

موضوع رائع ومن عندي +1

ولكن كيف يتم تغيير الحجم ونوع الخط والبنط ؟؟؟ فما شاهدته هو فقط التحكم بلون الخط

أرجو التوضيح

الله يجزاك خير

موضوع التنسيق فعلا مطلوب وظريف جدا

لكن المهم ان اجعل في امكانية تحديد الكلمات التي يتغير تنسيقها من خيارات أو من شريط ادوات .

مع الشكر ، والله الموفق

بارك الله بك +1

ارجو تحويلة لتنسيق 2003

اخى جزاك الله خيراااااااااااا

هل يمكن تطبيق ذلك على 2003

مع وافر الاحترام

لا أدري هل يمكن أن يعمل على اكسس 2003 أم لا

ولكن سوف ارفق لكم ملف تم تحويلة من تنسيقات 2010 إلى تنسيقات 2003

نصوص منسقة.rar

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

أما بالنسبة لـ اياد بيك، فعلاً لم اغير سوى لون النص (المبلغ) للعلم اني لم اشتغل لا من قريب ولا من بعيد على لغة الـ XLM، ولم أصل إلى هذه النتيجة إلا بعد جهد جهيد ولم اكن احتاج سوى هذه النتيجة في برنامجي بعد بحث طويل..

ارجو ممن يعملون على لغة الـ XLM ان يفيدونا عن بقية الخصائص الممكنة إن سمح وقتهم بذلك

الصيغة العامة:

FormatText(TargetText ;FontName ;FontSize ;FontColor ;FontBold ;FontItalic ;FontUnderline )

الشرح:

FormatText: اسم الدالة الخاصة بإعادة تنسيق النص

TargetText: النص المستهدف لإعادة تنسيقة

FontName: اسم الخط ويكتب بين علامتي تنصيص("×××")َ

FontSize: حجم الخط ويمكن كتابتها بين علامتي تنصيص أو بدونها

FontColor: لون الخط، ويكتب بين علامتي تنصيص ("×××") ويمكن كتابة اسم اللون باللغة الإنجليزية أو كتابة كود اللون

FontBold: لجعل النص غامق اكتب -1 سالب واحد أو True

FontItalic: لجعل النص مائل اكتب -1 سالب واحد أو True

FontUnderline: لتسطير النص (خط تحت النص) اكتب -1 سالب واحد أو True

النسخة الكاملة:

FormatText 2007.rar

التطبيق:

قم باستيراد الوحدة النمطية إلى برنامجك ثم استخدم الدالة.

المطلوب:

تجربة واختبار الدالة وتطويرها من قبل مشرفي واساتذة واعضاء المنتدى.

الوحدة النمطية:

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

المقابل:

الدعاء بالتوفيق.

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

موفقين بإذن الله