المشاركات : 12
المواضيع 4
الإنتساب : Jan 2016
السمعة :
0
الشكر: 12
تم شكره 12 مرات في 6 مشاركات
تحية طيبة للجميع وتقبل الله طاعاتكم
سوالي لدي combobox كيف اجعل الارقام الظاهرة بالعربي (الهندي) بدلا من عرض الارقام باللغة الانجليزية123
جربت طريقة التحويل من اليمين الى اليسار ولكن لم تغير شي بقي الحال على ماهو
ولكم جزيل الشكر
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
هذه طريقة لتحويل الارقام من انجليزي لعربي حتى لو كانت خاصية 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
وربما يكون احد الاخوة في المنتدى لديه طريقة أفضل
المشاركات : 12
المواضيع 4
الإنتساب : Jan 2016
السمعة :
0
الشكر: 12
تم شكره 12 مرات في 6 مشاركات
حولها عربي ولكن غير التنسيق لان بعض الارقام في الكمبو يوجد بها فاصلة ، هو جعل كل رقم في سطر
المشاركات : 12
المواضيع 4
الإنتساب : Jan 2016
السمعة :
0
الشكر: 12
تم شكره 12 مرات في 6 مشاركات
اريد فضلا طريقة اخرى لا تغير التنسيق الحل المقدم من الاخ الكريم سامي محمد فعلا غير الارقام الى العربي ولكن اصبح التنسيق مختلف حيث اصبح كل رقم بعد الفاصلة في سطر منفصل
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
السلام عليكم ورحمة الله وبركاته
اخي سامي محمد جزاك الله كل الخير على ماتقدمه
اخي سمير المشكلة هي كيف ومتى يتم تغيير الارقام من العربية الى الهندية
لم اجد حدثا مناسبا اي بمجرد ان غيرت القيمة تتحول الارقام
افضل حدث هو 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 12
المواضيع 4
الإنتساب : Jan 2016
السمعة :
0
الشكر: 12
تم شكره 12 مرات في 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
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
اخي سمير هل وضعت الكود نسخ لصق مع اسم الحدث؟ اي كامل الكود البرنامج لن يتعرف على الحدث اذا لم تنشؤه
يجب انشاء الحدث اختتر اداة الكومبو بوكس واذهب الى قائمة الاحداث واختر حدث 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 اي بعد ان تختار اضغط مفتاح انتر
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 12
المواضيع 4
الإنتساب : Jan 2016
السمعة :
0
الشكر: 12
تم شكره 12 مرات في 6 مشاركات
(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
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
02-05-20, 01:14 AM
(آخر تعديل لهذه المشاركة : 02-05-20, 01:17 AM {2} بواسطة ابراهيم ايبو.)
اخي سمير استخدم الحدث 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 12
المواضيع 4
الإنتساب : Jan 2016
السمعة :
0
الشكر: 12
تم شكره 12 مرات في 6 مشاركات
(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
اكرر شكري لك استاذ ابراهيم ماقصرت
|