تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الارقام بالعربي
#1
تحية طيبة للجميع وتقبل الله طاعاتكم 

سوالي لدي combobox كيف اجعل الارقام الظاهرة بالعربي (الهندي) بدلا من عرض الارقام باللغة الانجليزية123
جربت طريقة التحويل من اليمين الى اليسار ولكن لم تغير شي بقي الحال على ماهو 
ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
هذه طريقة لتحويل الارقام من انجليزي لعربي حتى لو كانت خاصية RightToLeft = No

كود :
   For x As Integer = 0 To 100
            ComboBox1.Items.Add(x.ToString.Replace(0, ChrW(1632)).Replace(1, ChrW(1633)).Replace(2, ChrW(1634)).Replace(3, ChrW(1635)).Replace(4, ChrW(1636)).Replace(5, ChrW(1637)).Replace(6, ChrW(1638)).Replace(7, ChrW(1639)).Replace(8, ChrW(1640)).Replace(9, ChrW(1641)))
        Next
وربما يكون احد الاخوة في المنتدى لديه طريقة أفضل
الرد
تم الشكر بواسطة: سمير1404 , سمير1404 , ابراهيم ايبو
#3
حولها عربي ولكن غير التنسيق لان بعض الارقام في الكمبو يوجد بها فاصلة ، هو جعل كل رقم في سطر
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
اريد فضلا طريقة اخرى لا تغير التنسيق الحل المقدم من الاخ الكريم سامي محمد فعلا غير الارقام الى العربي ولكن اصبح التنسيق مختلف حيث اصبح كل رقم بعد الفاصلة في سطر منفصل
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
السلام عليكم ورحمة الله وبركاته

اخي سامي محمد جزاك الله كل الخير على ماتقدمه
اخي سمير المشكلة هي كيف ومتى يتم تغيير الارقام من العربية الى الهندية
لم اجد حدثا مناسبا اي بمجرد ان غيرت القيمة تتحول الارقام
افضل حدث هو ComboBox1_Invalidated اي عندما تنتقل من الكومبو بعد الاختيار الى كونترول أخر يعمل انفاليدات للقيمة
ولكن يقضل ان تسلسل اندكس  الادوات حتي لاتضغط بالماوس على الاداة التالية للتحرير 
يمكنك وضع الكود في الحدث الذي يناسبك جرب الاحداث
كود :
Private Sub ComboBox1_Invalidated(sender As Object, e As InvalidateEventArgs) Handles ComboBox1.Invalidated
       ComboBox1.Text = ComboBox1.Text.Replace(0, ChrW(1632))
       ComboBox1.Text = ComboBox1.Text.Replace(1, ChrW(1633))
       ComboBox1.Text = ComboBox1.Text.Replace(2, ChrW(1634))
       ComboBox1.Text = ComboBox1.Text.Replace(3, ChrW(1635))
       ComboBox1.Text = ComboBox1.Text.Replace(4, ChrW(1636))
       ComboBox1.Text = ComboBox1.Text.Replace(5, ChrW(1637))
       ComboBox1.Text = ComboBox1.Text.Replace(6, ChrW(1638))
       ComboBox1.Text = ComboBox1.Text.Replace(7, ChrW(1639))
       ComboBox1.Text = ComboBox1.Text.Replace(8, ChrW(1640))
       ComboBox1.Text = ComboBox1.Text.Replace(9, ChrW(1641))
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سمير1404
#6
(02-05-20, 12:08 AM)ابراهيم ايبو كتب :
السلام عليكم ورحمة الله وبركاته

اخي سامي محمد جزاك الله كل الخير على ماتقدمه
اخي سمير المشكلة هي كيف ومتى يتم تغيير الارقام من العربية الى الهندية
لم اجد حدثا مناسبا اي بمجرد ان غيرت القيمة تتحول الارقام
افضل حدث هو ComboBox1_Invalidated اي عندما تنتقل من الكومبو بعد الاختيار الى كونترول أخر يعمل انفاليدات للقيمة
ولكن يقضل ان تسلسل اندكس  الادوات حتي لاتضغط بالماوس على الاداة التالية للتحرير 
يمكنك وضع الكود في الحدث الذي يناسبك جرب الاحداث
كود :
Private Sub ComboBox1_Invalidated(sender As Object, e As InvalidateEventArgs) Handles ComboBox1.Invalidated
       ComboBox1.Text = ComboBox1.Text.Replace(0, ChrW(1632))
       ComboBox1.Text = ComboBox1.Text.Replace(1, ChrW(1633))
       ComboBox1.Text = ComboBox1.Text.Replace(2, ChrW(1634))
       ComboBox1.Text = ComboBox1.Text.Replace(3, ChrW(1635))
       ComboBox1.Text = ComboBox1.Text.Replace(4, ChrW(1636))
       ComboBox1.Text = ComboBox1.Text.Replace(5, ChrW(1637))
       ComboBox1.Text = ComboBox1.Text.Replace(6, ChrW(1638))
       ComboBox1.Text = ComboBox1.Text.Replace(7, ChrW(1639))
       ComboBox1.Text = ComboBox1.Text.Replace(8, ChrW(1640))
       ComboBox1.Text = ComboBox1.Text.Replace(9, ChrW(1641))
   End Sub

اخي ابراهيم شكر الله لك 
ولكن مع الاسف مازالت المشكلة قائمة جربت ما ذكرت ولكن بقيت الارقام بحالها انجليزي 123
الرد
تم الشكر بواسطة:
#7
اخي سمير هل وضعت الكود نسخ لصق مع اسم الحدث؟ اي كامل الكود البرنامج لن يتعرف على الحدث اذا لم تنشؤه
يجب انشاء الحدث  اختتر اداة الكومبو بوكس واذهب الى قائمة الاحداث واختر حدث Invalidated
سيتم انشاء حدث فارغ قم بنسخ هذه الاسطر وضعها في الحدث
كود :
  ComboBox1.Text = ComboBox1.Text.Replace(0, ChrW(1632))
       ComboBox1.Text = ComboBox1.Text.Replace(1, ChrW(1633))
       ComboBox1.Text = ComboBox1.Text.Replace(2, ChrW(1634))
       ComboBox1.Text = ComboBox1.Text.Replace(3, ChrW(1635))
       ComboBox1.Text = ComboBox1.Text.Replace(4, ChrW(1636))
       ComboBox1.Text = ComboBox1.Text.Replace(5, ChrW(1637))
       ComboBox1.Text = ComboBox1.Text.Replace(6, ChrW(1638))
       ComboBox1.Text = ComboBox1.Text.Replace(7, ChrW(1639))
       ComboBox1.Text = ComboBox1.Text.Replace(8, ChrW(1640))
       ComboBox1.Text = ComboBox1.Text.Replace(9, ChrW(1641))

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







الرد
تم الشكر بواسطة: سمير1404 , سمير1404
#8
(02-05-20, 12:34 AM)ابراهيم ايبو كتب : اخي سمير هل وضعت الكود نسخ لصق مع اسم الحدث؟ اي كامل الكود البرنامج لن يتعرف على الحدث اذا لم تنشؤه
يجب انشاء الحدث  اختتر اداة الكومبو بوكس واذهب الى قائمة الاحداث واختر حدث Invalidated
سيتم انشاء حدث فارغ قم بنسخ هذه الاسطر وضعها في الحدث
كود :
  ComboBox1.Text = ComboBox1.Text.Replace(0, ChrW(1632))
       ComboBox1.Text = ComboBox1.Text.Replace(1, ChrW(1633))
       ComboBox1.Text = ComboBox1.Text.Replace(2, ChrW(1634))
       ComboBox1.Text = ComboBox1.Text.Replace(3, ChrW(1635))
       ComboBox1.Text = ComboBox1.Text.Replace(4, ChrW(1636))
       ComboBox1.Text = ComboBox1.Text.Replace(5, ChrW(1637))
       ComboBox1.Text = ComboBox1.Text.Replace(6, ChrW(1638))
       ComboBox1.Text = ComboBox1.Text.Replace(7, ChrW(1639))
       ComboBox1.Text = ComboBox1.Text.Replace(8, ChrW(1640))
       ComboBox1.Text = ComboBox1.Text.Replace(9, ChrW(1641))

وعند التشغيل اختر اي عنصر من الكومبو ثم اضغط مفتاح تاب ستتغير الارقام
كذلك يمكنك استخدام حدث KeyDown اي بعد ان تختار اضغط مفتاح انتر
الاستاذ ابراهيم 
فعلا طبقت اللي ذكرته لي ولكن مازالت نفس الوضع لم يتغير علما ان ا الارقام عندي عربي فيListView
الرد
تم الشكر بواسطة: ابراهيم ايبو
#9
اخي سمير استخدم الحدث ComboBox1_KeyDown  اي مع ضغط مفتاح انتر وسيعمل معك بإذن الله
كود :
Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
       ComboBox1.Text = ComboBox1.Text.Replace(0, ChrW(1632))
       ComboBox1.Text = ComboBox1.Text.Replace(1, ChrW(1633))
       ComboBox1.Text = ComboBox1.Text.Replace(2, ChrW(1634))
       ComboBox1.Text = ComboBox1.Text.Replace(3, ChrW(1635))
       ComboBox1.Text = ComboBox1.Text.Replace(4, ChrW(1636))
       ComboBox1.Text = ComboBox1.Text.Replace(5, ChrW(1637))
       ComboBox1.Text = ComboBox1.Text.Replace(6, ChrW(1638))
       ComboBox1.Text = ComboBox1.Text.Replace(7, ChrW(1639))
       ComboBox1.Text = ComboBox1.Text.Replace(8, ChrW(1640))
       ComboBox1.Text = ComboBox1.Text.Replace(9, ChrW(1641))
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سمير1404
#10
(02-05-20, 01:14 AM)ابراهيم ايبو كتب : اخي سمير استخدم الحدث ComboBox1_KeyDown  اي مع ضغط مفتاح انتر وسيعمل معك بإذن الله
كود :
Private Sub ComboBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles ComboBox1.KeyDown
       ComboBox1.Text = ComboBox1.Text.Replace(0, ChrW(1632))
       ComboBox1.Text = ComboBox1.Text.Replace(1, ChrW(1633))
       ComboBox1.Text = ComboBox1.Text.Replace(2, ChrW(1634))
       ComboBox1.Text = ComboBox1.Text.Replace(3, ChrW(1635))
       ComboBox1.Text = ComboBox1.Text.Replace(4, ChrW(1636))
       ComboBox1.Text = ComboBox1.Text.Replace(5, ChrW(1637))
       ComboBox1.Text = ComboBox1.Text.Replace(6, ChrW(1638))
       ComboBox1.Text = ComboBox1.Text.Replace(7, ChrW(1639))
       ComboBox1.Text = ComboBox1.Text.Replace(8, ChrW(1640))
       ComboBox1.Text = ComboBox1.Text.Replace(9, ChrW(1641))
   End Sub
اكرر شكري لك استاذ ابراهيم ماقصرت
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم