[Microformt]

الاخوه الكرام
 السلام عليكم ورحمة الله وبركاته
 كيف اجعل المستخدم يكتب في  Text انجليزي فقط ؟؟
نامل من الله المساعده والله يحفظكم ويرعاكم
 تحياتي

[عبدالله الصافي]

كود :

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

وهذا كما تري في حدث تنشيط خانة النص

[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

وهذا كما تري في حدث تنشيط خانة النص

 اخي العزيز
 السلام عليكم ورحمة وبركاته
الف الف شكر لك اخي العزيز
 تحياتي

[MicroDoha]

ممكن التوضيح على المثال 

[سعود]

PHP كود :

Private Sub Command1_Click()
Dim str As String
str = "[a-zA-Z]"
Dim reg As New RegExp
reg.Pattern = str
If reg.Test(Text1.Text) = False Then
MsgBox "áÇ íÓãÍ ÈÛíÑ ÇáÍÑæÝ ÇáÇäÌáíÒíÉ", vbCritical, ""
Exit Sub
End If
End Sub 


المرجع المظلل  بعد تفعيله اكتب الكود اعلى هذه الصورة