منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أستفسار في داتا جرد فيو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أستفسار في داتا جرد فيو (/showthread.php?tid=37745)

أستفسار في داتا جرد فيو - jemyx - 08-02-21

السلام عليكم ورحمة الله و بركاته 
أخواتي الكرام تحية طيبة و بعد .....
أعمل على مشروع فيجوال بيسك يتضمن نوافذ بها Datagridview و أحتاج إلى مساعدتكم
ارغب فى جعل كل م يكتب فى الحقول يكون أحرف أنجليزية فقط و فى نفس الوقت تكون Uppercase 
هل من حل ؟


RE: أستفسار في داتا جرد فيو - ابراهيم ايبو - 08-02-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة الى اللغة سنأخذها من اللغة الافتراضية للكيبورد ذات الاندكس صفر ان كانت الانكليزية وان كانت هي الثانية بالترتيب اما ان تجعلها الاولى او بالكود استبدل الصفر ب 1
ومن اجل تحويل الحروف الانكليزية الى capital اليك هذا الكود

ضع كل ارقام الاعمدة بجانب Case كما هو موضح

كود :
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
       Dim str As String
       'Apply to certin columns        
       Select Case e.ColumnIndex
           Case 0, 1, 2 ' اضافة انكس كل الاعمدة للداتاغرايد
               ' تحويل اللغة الى اللغة ذات الترتيب صفر في لغات الكيبورد اجعل الانكليزية اولا
               InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(0)
               str = DataGridView1.CurrentCell.Value
               DataGridView1.CurrentCell.Value = str.ToUpper
       End Select
   End Sub

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