تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟
#1
الاخوه الكرام
 السلام عليكم ورحمة الله وبركاته
 كيف اجعل المستخدم يكتب في  Text انجليزي فقط ؟؟
نامل من الله المساعده والله يحفظكم ويرعاكم
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#2
كود :
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
وهذا كما تري في حدث تنشيط خانة النص
الرد
#3
(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
وهذا كما تري في حدث تنشيط خانة النص
 اخي العزيز
 السلام عليكم ورحمة وبركاته
الف الف شكر لك اخي العزيز
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#4
ممكن التوضيح على المثال  Huh


الملفات المرفقة
.rar   Test.rar (الحجم : 1.45 ك ب / التحميلات : 7)
الرد
تم الشكر بواسطة:
#5
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 , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اشترط على المستخدم 14 رقماً في text ؟ Microformt 1 150 23-10-20, 01:18 AM
آخر رد: AL_BRNS
Question [vb6.0] هل يمكن ان اجعل زر الامر شفاف ؟؟ Microformt 0 252 21-08-20, 03:54 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن كود يضلل النص داخل Text ؟؟ Microformt 1 391 17-07-20, 05:51 PM
آخر رد: Mohamad Anan
Question [vb6.0] كيف يمكن اجبار المستخدم ادخال صيغة الوقت في تكست بوكس بهذة الصيغة مثلا 08:06 ص؟ Microformt 2 415 04-05-20, 11:27 PM
آخر رد: Microformt
Question [vb6.0] هل في الامكان ان اجعل نص هذه الرسالة جهة اليمن؟؟ Microformt 1 391 19-04-20, 12:49 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ Microformt 5 547 12-04-20, 12:53 AM
آخر رد: AL_BRNS
  هل توجد طريقة لتعبئة combobox من المستخدم للبرنامج؟ gonm64 4 736 23-11-19, 03:16 PM
آخر رد: gonm64
Question [vb6.0] هل يمكن ان اشترط على المستخدم إدخال التاريخ الهجري فقط والعكس ؟ Microformt 8 3,004 25-10-19, 11:43 PM
آخر رد: awidan76
  ما هو الكود الذي يحول انجليزي عربي princeofislam 8 3,516 31-07-19, 04:19 AM
آخر رد: princeofislam
Question [vb6.0] هل من الممكن ان اشترط على المستخدم إدخال اربعه ارقم في Combo ؟؟ Microformt 1 496 15-07-19, 10:01 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم