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