منتديات الفريق العربي - النسخة الخفيفة

المساعدة - البحث - قائمة الأعضاء - التقويم

نسخة كاملة: كيف اظهر الارقام داخل الكريستال ريبورت بالعربية

برمجة - شبكات - كمبيوتر - منتديات الفريق العربي للبرمجة > منتديات لغات البرمجة العام > منتدى مبرمجي لغة Microsoft Visual Basic 6 وما قبلها من إصدارات > قسم التقارير

JAGUAR7007

Jan 11 2007, 08:35 AM

الارقام بتظهر في التقرير بالانجليزية

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

ارجوا الافادة من زوي الخبرة

ابو السيفين

Jan 13 2007, 06:02 PM

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

اتمنى لك التوفيق

JAGUAR7007

Jan 14 2007, 09:40 PM

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

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

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

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

mbelal

Feb 12 2007, 01:29 PM

يأخي والله المشكلة دي تعبتني

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

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

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

جزاك الله خير

moad2007

Dec 10 2007, 11:34 AM

غير اعدادات الخيارات الإقليمية وخلى الترقيم (وطني)
طبعا هذا يظهر في وندوز اكس بي عربي

مايكل دريس

Jan 23 2008, 11:30 PM

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

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

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

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

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

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

ahmedkiwi

Jul 20 2008, 02:56 PM

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

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

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

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

Jul 22 2008, 05:11 AM

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

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

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

ahmedkiwi

Jul 26 2008, 10:00 PM

أهلا اخي ماجد

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

كود
ChangeToArabicNumber()

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

وحياك الله

العود

Dec 31 2008, 12:33 AM

السلام عليكم و رحمة الله و بركاته
ألا يوجد حل تاني غير الدالة المرفقة ؟؟؟
لأني أستخدم أرقام ليست آحاد ( مثل 52 و47 82 )

هذه "نسخة - خفيفة" من محتويات الرئيسية للإستعراض الكامل مع المزيد من الصور والخيارات الرجاء إضغط هنا.