تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 115 21-09-18, 05:12 PM
آخر رد: Microformt
  [vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6 mohamed arafa 5 199 13-09-18, 03:47 AM
آخر رد: mohamed arafa
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 354 30-09-17, 08:27 PM
آخر رد: bidaya
Question [vb6.0] كيف انشي زر امر يحول موشر الكتابة من عربي الى انجليزي والعكس ؟؟ Microformt 3 367 04-09-17, 05:21 PM
آخر رد: Microformt
  كيف كتابة نص عامودي في الاكتف ريبورت scsi7000 1 245 27-07-17, 11:15 AM
آخر رد: Ahmed_Mansoor
  لو سمحتوا انا اريد عند كتابة تاريخ الميلادي يظهر لى فى تكس تاريخ المعاش على سن 60 رجل الكهرباء 3 582 17-12-16, 08:54 PM
آخر رد: رجل الكهرباء
  [سؤال] كتابة اكواد رياضية asto 1 431 17-06-16, 03:43 PM
آخر رد: KamelArab
  [سؤال] هل استطيع كتابة اوامر فيجوال بيسك 2008 هنا في هذا القسم احمداحمداحمد6 2 545 19-10-15, 08:59 PM
آخر رد: احمداحمداحمد6
  [سؤال] كود كتابة آخر رقم بTextbox ؟ abdouhai 4 863 19-10-15, 08:05 PM
آخر رد: احمداحمداحمد6
  كيفية كتابة الرموز الرياضية نور الدين 2014 1 733 09-06-15, 09:30 PM
آخر رد: KamelArab

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


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