المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
الاخوه الكرام
السلام عليكم ورحمة الله وبركاته
كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟
نامل من الله المساعده والله يحفظكم ويرعاكم
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
21-09-18, 05:12 PM
(آخر تعديل لهذه المشاركة : 21-09-18, 05:17 PM {2} بواسطة Microformt.)
(21-09-18, 03:28 AM)عبدالله الصافي كتب :
كود :
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Const KLF_ACTIVATE As Long = &H1
هذا الكود اجعله في Module
كود :
Private Sub Txt_EnWord_GotFocus()
On Error Resume Next: Err.Clear
LoadKeyboardLayout "00000409" & Chr(0), KLF_ACTIVATE
End Sub
وهذا كما تري في حدث تنشيط خانة النص
اخي العزيز
السلام عليكم ورحمة وبركاته
الف الف شكر لك اخي العزيز
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ