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

الاخوه الكرام
السلام عليكم ورحمة الله وبركاته
كيف اجعل المستخدم يكتب في 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

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

(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
وهذا كما تري في حدث تنشيط خانة النص

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

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

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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Microformt

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

Microformt

MicroDoha

سعود