منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

تحية طيبة للجميع وتقبل الله طاعاتكم

سوالي لدي combobox كيف اجعل الارقام الظاهرة بالعربي (الهندي) بدلا من عرض الارقام باللغة الانجليزية123
جربت طريقة التحويل من اليمين الى اليسار ولكن لم تغير شي بقي الحال على ماهو
ولكم جزيل الشكر

هذه طريقة لتحويل الارقام من انجليزي لعربي حتى لو كانت خاصية 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

وربما يكون احد الاخوة في المنتدى لديه طريقة أفضل

حولها عربي ولكن غير التنسيق لان بعض الارقام في الكمبو يوجد بها فاصلة ، هو جعل كل رقم في سطر

اريد فضلا طريقة اخرى لا تغير التنسيق الحل المقدم من الاخ الكريم سامي محمد فعلا غير الارقام الى العربي ولكن اصبح التنسيق مختلف حيث اصبح كل رقم بعد الفاصلة في سطر منفصل

السلام عليكم ورحمة الله وبركاته

اخي سامي محمد جزاك الله كل الخير على ماتقدمه

اخي سمير المشكلة هي كيف ومتى يتم تغيير الارقام من العربية الى الهندية

لم اجد حدثا مناسبا اي بمجرد ان غيرت القيمة تتحول الارقام

افضل حدث هو 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

(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

اخي سمير هل وضعت الكود نسخ لصق مع اسم الحدث؟ اي كامل الكود البرنامج لن يتعرف على الحدث اذا لم تنشؤه
يجب انشاء الحدث اختتر اداة الكومبو بوكس واذهب الى قائمة الاحداث واختر حدث 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 اي بعد ان تختار اضغط مفتاح انتر

(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

اخي سمير استخدم الحدث 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

(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

اكرر شكري لك استاذ ابراهيم ماقصرت

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سمير1404

سامي محمد

سمير1404

سمير1404

ابراهيم ايبو

سمير1404

ابراهيم ايبو

سمير1404

ابراهيم ايبو

سمير1404