المساعدة - البحث - قائمة الأعضاء - التقويم
نسخة كاملة: كيف اظهر الارقام داخل الكريستال ريبورت بالعربية
برمجة - شبكات - كمبيوتر - منتديات الفريق العربي للبرمجة > منتديات لغات البرمجة العام > منتدى مبرمجي لغة Microsoft Visual Basic 6 وما قبلها من إصدارات > قسم التقارير
JAGUAR7007
الارقام بتظهر في التقرير بالانجليزية

عاوز الارقام تظهر بالعربي اعمل اية !!!!؟

ارجوا الافادة من زوي الخبرة
ابو السيفين
أخي الحبيب أنا جربت أغير الخط و تم تحول الرقم الى العربي و بالتحديد جربت الخط التالي SC_AMEEN

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

و عندي مصيبة ثانية ان التقرير شكلة بيثبت لو قمت بنقل البرنامج من مكان لمكان آخر

يعني البرنامج في مكانة اي تعديل في قاعدة البيانات بتظهر

انقل البرنامج مفيش اي تعديل بيظهر علي التقرير اية السبب !؟؟؟؟
mbelal
يأخي والله المشكلة دي تعبتني

حولت فيها كثيرا بدون فائدة وياليت الأخ أبو السيفين ، يقول الخط ده فين الى هو sc_ameen
وهل المشكلة في تغير الخط ؟
ولكم جزيل الشكر.



الأخ / أبو السيفين
مشكووووووووووور

بالفعل غيرت الخط ، وطبعت الأرقام بالعربي .
ولكن هل فيه خطوط أخرى تطبع عربي غير هذا الخط ؟

جزاك الله خير
moad2007
غير اعدادات الخيارات الإقليمية وخلى الترقيم (وطني)
طبعا هذا يظهر في وندوز اكس بي عربي
مايكل دريس
السلام عليكم ورحمة الله وبركاتة
-------------------------------
انا تعبت جدا فى ايجاد خط ترقيم استخدمة مع الكريستال ريبورت خط عدل ينفع مع التقارير
وملف الخط فى المرفقات ومرقع التحميل موجود هنا
موقع لتحميل الخطوط من غير اى تسجيل
http://www.media4all.net/font/font-179.htm

الخط المقصود الذى لا ارى مثلة للترقيم باللغة العربية وهو فى المرفقات

فقط حملة واضفة فى الفونت الموجود مع الويندوز فى كونترول بانال

تحياتى لكم جميعا


اما هنا اريد ان اسئل سؤال
عند انهاء البرنامج باستخدام اى خط خارجى وبعد تحزيمة وقمت ببيعة مثلا
هل هيشتغل بالخط ولا لازم العميل الذى قام بشراءة يقوم بتركيب الخط عندة اولا

ارجوا الرد هنا لو سمحتم

ahmedkiwi




أهلا اخي الكريم

أنا عانيت نفس ما انت عانيت ولمدة طويلة وحطيت موضوع بمنتدى ميكروسوفت

ولكن بعد جهد لقيت الحل وحطيته بهذا الرابط

http://forums.msdn.microsoft.com/en-US/vsc...5-c1d355b65693/

والحل اهو انه نعرف الكاراكتر كود للأرقام العربية


"0", (&#1632)

"1", (&#1633)

"2", (&#1634)

"3", (&#1635)

"4", (&#1636)

"5", (&#1637)

"6", (&#1638)

"7", (&#1639)

"8", (&#1640)

"9", (&#1641)

وبعدها نعدل البيانات في التكيست بوكس
ArNumTextBox.Text = ArNumTextBox.Text.Replace("0", ChrW(1632))
وهكذا

طبعا التعديل يكون قبل كود التصدير لل بي دي اف

لكن الأفضل انه نبني فنكشن كاملة بالحل والفنكشن اللي بنيتها اهي


Private Sub ChangeToArabicNumber()

'Eng.Ahmed Rashid Al-Farhan

[/color]


Dim ArNumTextBox As TextBox

For Each ctlMaster As Control In Page.Controls

If TypeOf ctlMaster Is MasterPage Then



For Each ctlForm As Control In ctlMaster.Controls

If TypeOf ctlForm Is HtmlForm Then



For Each ctlContent As Control In ctlForm.Controls

If TypeOf ctlContent Is ContentPlaceHolder Then



For Each ctlChild As Control In ctlContent.Controls

If TypeOf (ctlChild) Is TextBox Then



ArNumTextBox = ctlChild

' Case "0"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"0", ChrW(1632))

' Case "1"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"1", ChrW(1633))

' Case "2"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"2", ChrW(1634))

' Case "3"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"3", ChrW(1635))

' Case "4"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"4", ChrW(1636))

' Case "5"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"5", ChrW(1637))

' Case "6"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"6", ChrW(1638))

' Case "7"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"7", ChrW(1639))

' Case "8"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"8", ChrW(1640))

' Case "9"



ArNumTextBox.Text = ArNumTextBox.Text.Replace(
"9", ChrW(1641))

End If



Next



End If



Next



End If



Next



End If



Next



End [color="#6633ff"]Sub

والحين راح تشوف التقرير بالعربي ومن غير لا تروح للكنترول بانيل او تغير الإصدار الخاص للكريستال ريبورت مثل ما الكثيرين بالإنترنت يحطون الحل هذا

ويليت أكون خدمتك ولو بعد وقت طويل






maajed555
الأخ أحمد ،،، شكرا لك على هذه الدالة

ولكن كيف أستخدم هذه الدالة ؟
وأين أضعها؟ هل أضعها داخل التقرير أم في مكان آخر؟

أرجو التوضيح وفقك الله وسددك
ahmedkiwi
أهلا اخي ماجد

طبعا تحط الفنكشن في الكود اللي بالبيج
ورأس الفنكشن

كود
ChangeToArabicNumber()



تحطها بزر الطباعه مالك

وحياك الله


العود
السلام عليكم و رحمة الله و بركاته
ألا يوجد حل تاني غير الدالة المرفقة ؟؟؟ sad.gif
لأني أستخدم أرقام ليست آحاد ( مثل 52 و47 82 )
هذه "نسخة - خفيفة" من محتويات الرئيسية للإستعراض الكامل مع المزيد من الصور والخيارات الرجاء إضغط هنا.
Invision Power Board © 2001-2009 Invision Power Services, Inc.