+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : كتابة حقل انجليزي (/showthread.php?tid=14867)
كتابة حقل انجليزي - alfakeeh - 23-02-16
سلام
أريد كود يكتب في الحقل انجليزي فقط مع الشرح اذا امكن
RE: كتابة حقل انجليزي - administrator - 23-02-16
(23-02-16, 06:52 PM)alfakeeh كتب : سلام
أريد كود يكتب في الحقل انجليزي فقط مع الشرح اذا امكن
تفضل هذا كود منع كتابة غير الحروف الانجليزية (كبير وصغير) فقط
ضع الكود في الحدث Text_KeyPress
ضع الكود في الحدث 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
RE: كتابة حقل انجليزي - alfakeeh - 23-02-16
يعطيك العافية
وشكرا على الرد السريع
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 عند المسح
RE: كتابة حقل انجليزي - administrator - 23-02-16
(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
RE: كتابة حقل انجليزي - ناجي إبراهيم - 25-02-16
السلام عليكم...
ضع هذا الكود في الحدث 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نرجو الاستفادة و السلام.
RE: كتابة حقل انجليزي - ahmedabdelaliem - 25-02-16
مرحبا اخي الحبيب واستاذ الاساتذه ناجي ابراهيم يعلم الله كم السعادة التي تسر قلبي عندما رأيت مشاركتك هذه دائما منور الدنيا كلها للاخوه الاعضاء استاذ ناجي ابراهيم هو علم من اعلام لغات البرمجه ودائما يخدم الجميع ومهما وصفت الى حضراتكم وتحدثت عنه فلم اوفيه حقه والكثير من المبرمجين يعرفون من هو الستاذ ناجي ابراهيم لانه تاريخ مشرف من العطاء بارك الله لك في صحتك وعافيتك وحياتك وسائر عملك لا اعلم كيف اوفيك حقك لان مهما كتبت لن اوفيك حقك اخي الذي احببته بدون ان اراه واتمنى من الله عز وجل ان اراك ولو مره في الحياه وتكون في بيته الحرام مرحبا بك من جديد
والسلام عليكم ورحمة الله وبركاته
RE: كتابة حقل انجليزي - Ahmed_Mansoor - 25-02-16
السلام عليكم
- يا أهلا وسهلاً بك أخي العزيز ناجي إبراهيم وين أيامك يارجل والله إشتقنا لك ولإبداعات المميزه والله إفتقدناك وجودك بيننا يعني لنا الكثير والكثير بصراحه بالنسبه لي عند مشاهدتي لتواجدك أرتاح نفسياً وأكون سعيد جداً، أرجو من الله أن لاتغيب كثيراً عن المنتدى وأن تتكرم وتتواجد على الأقل بين فترة وأخرى ، وأرجو أن أشاهد بعض إبداعاتك الثمينه التي عودتنا عليها أنا شخصياً أستفدت كثيراً مما قدمته الله يزيدك من علمه وفضله وجزاك الله كل خير ويوفقك ويسعدك .
- تحياتي لك .