تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كتابة حقل انجليزي
#1
سلام

أريد كود يكتب في الحقل  انجليزي فقط   مع الشرح  اذا امكن
الرد }}}
تم الشكر بواسطة:
#2
(23-02-16, 06:52 PM)alfakeeh كتب : سلام

أريد كود يكتب في الحقل  انجليزي فقط   مع الشرح  اذا امكن

تفضل هذا كود منع كتابة غير الحروف الانجليزية (كبير وصغير) فقط
ضع الكود في الحدث Text_KeyPress

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If 
KeyAscii >= 97 And KeyAscii <= 122 Then
Exit Sub
ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then
Exit Sub
Else
KeyAscii 0
End 
If
End Sub 
الرد }}}
تم الشكر بواسطة:
#3
يعطيك العافية  
وشكرا على الرد السريع

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then
Exit Sub
ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then
Exit Sub
Else
KeyAscii = 0
       نضيف هذا السطر لتفعيل مفتاح backspace عند المسح بالانجليزي [b]                                                                                                                KeyAscii = 8[/b]

End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then
Exit Sub
ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then
Exit Sub
Else
KeyAscii = 0
KeyAscii = 8
End If
End Sub

مشكلة لايعمل مفتاح backspace عند المسح
الرد }}}
تم الشكر بواسطة:
#4
(23-02-16, 09:50 PM)alfakeeh كتب :
مشكلة لايعمل مفتاح backspace عند المسح

تفضل مع زر المسح
PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If 
KeyAscii >= 97 And KeyAscii <= 122 Then
Exit Sub
ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then
Exit Sub
ElseIf KeyAscii 8 Then
Exit Sub
Else
KeyAscii 0
End 
If
End Sub 
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم...

ضع هذا الكود في الحدث KeyPress لمربع النص:
كود :
If KeyAscii > 31 Then
   If Not (((KeyAscii >= Asc("a")) And (KeyAscii <= Asc("z"))) _
           Or ((KeyAscii >= Asc("A")) And (KeyAscii <= Asc("Z")))) Then
       KeyAscii = 0
   End If
End If


نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , ahmedabdelaliem
#6
مرحبا اخي الحبيب واستاذ الاساتذه ناجي ابراهيم يعلم الله كم السعادة التي تسر قلبي عندما رأيت مشاركتك هذه دائما منور الدنيا كلها للاخوه الاعضاء استاذ ناجي ابراهيم هو علم من اعلام لغات البرمجه ودائما يخدم الجميع ومهما وصفت الى حضراتكم وتحدثت عنه فلم اوفيه حقه والكثير من المبرمجين يعرفون من هو الستاذ ناجي ابراهيم لانه تاريخ مشرف من العطاء بارك الله لك في صحتك وعافيتك وحياتك وسائر عملك لا اعلم كيف اوفيك حقك لان مهما كتبت لن اوفيك حقك اخي الذي احببته بدون ان اراه واتمنى من الله عز وجل ان اراك ولو مره في الحياه وتكون في بيته الحرام مرحبا بك من جديد
والسلام عليكم ورحمة الله وبركاته
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#7
السلام عليكم

- يا أهلا وسهلاً بك أخي العزيز ناجي إبراهيم وين أيامك يارجل والله إشتقنا لك ولإبداعات المميزه والله إفتقدناك وجودك بيننا يعني لنا الكثير والكثير بصراحه بالنسبه لي عند مشاهدتي لتواجدك أرتاح نفسياً وأكون سعيد جداً، أرجو من الله أن لاتغيب كثيراً عن المنتدى وأن تتكرم وتتواجد على الأقل بين فترة وأخرى ، وأرجو أن أشاهد بعض إبداعاتك الثمينه التي عودتنا عليها أنا شخصياً أستفدت كثيراً مما قدمته الله يزيدك من علمه وفضله وجزاك الله كل خير ويوفقك ويسعدك .

- تحياتي لك .
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
  كتابة الكسر فى صورة بسط ومقام اسلام الكبابى 0 1,004 13-03-21, 07:55 AM
آخر رد: اسلام الكبابى
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 4 2,250 04-09-19, 05:06 PM
آخر رد: سعود
  ما هو الكود الذي يحول انجليزي عربي princeofislam 8 4,857 31-07-19, 04:19 AM
آخر رد: princeofislam
Question [vb6.0] كيف امنع المستخدم من كتابة الاحرف والرموز في Combo ؟ Microformt 2 1,682 28-06-19, 03:26 AM
آخر رد: Microformt
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 2,118 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  [vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6 mohamed arafa 5 2,361 13-09-18, 03:47 AM
آخر رد: mohamed arafa
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 1,990 30-09-17, 08:27 PM
آخر رد: bidaya
Question [vb6.0] كيف انشي زر امر يحول موشر الكتابة من عربي الى انجليزي والعكس ؟؟ Microformt 3 2,081 04-09-17, 05:21 PM
آخر رد: Microformt
  كيف كتابة نص عامودي في الاكتف ريبورت scsi7000 1 1,433 27-07-17, 11:15 AM
آخر رد: Ahmed_Mansoor

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


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