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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ (/showthread.php?tid=26567)



كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ - Microformt - 20-09-18

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


RE: كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ - عبدالله الصافي - 21-09-18

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


RE: كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ - Microformt - 21-09-18

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


RE: كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ - MicroDoha - 04-09-19

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


RE: كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ - سعود - 04-09-19

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 
المرجع المظلل  بعد تفعيله اكتب الكود اعلى هذه الصورة