السلام عليكم ورحمة الله وبركاته
اخي الكريم
بالنسبة الى اللغة سنأخذها من اللغة الافتراضية للكيبورد ذات الاندكس صفر ان كانت الانكليزية وان كانت هي الثانية بالترتيب اما ان تجعلها الاولى او بالكود استبدل الصفر ب 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
ملاحظة : لوكانت اللغة المختارة هي العربية عند فتح الفورم الحاوي على الداتاغرايد فقط قم بوضع مؤشر الماوس على اي خلية ثم انقر على الخلية التي تريد الكتابة فيها ستتحول الى الانكيزية (جرب فلربما تتغير من اول اختيار خلية)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
