23-02-16, 06:52 PM
23-02-16, 07:26 PM
(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
23-02-16, 09:50 PM
يعطيك العافية
وشكرا على الرد السريع
مشكلة لايعمل مفتاح backspace عند المسح
وشكرا على الرد السريع
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 عند المسح
23-02-16, 10:19 PM
(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
25-02-16, 02:13 AM
السلام عليكم...
ضع هذا الكود في الحدث KeyPress لمربع النص:
نرجو الاستفادة و السلام.
ضع هذا الكود في الحدث 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نرجو الاستفادة و السلام.
25-02-16, 05:12 AM
مرحبا اخي الحبيب واستاذ الاساتذه ناجي ابراهيم يعلم الله كم السعادة التي تسر قلبي عندما رأيت مشاركتك هذه دائما منور الدنيا كلها للاخوه الاعضاء استاذ ناجي ابراهيم هو علم من اعلام لغات البرمجه ودائما يخدم الجميع ومهما وصفت الى حضراتكم وتحدثت عنه فلم اوفيه حقه والكثير من المبرمجين يعرفون من هو الستاذ ناجي ابراهيم لانه تاريخ مشرف من العطاء بارك الله لك في صحتك وعافيتك وحياتك وسائر عملك لا اعلم كيف اوفيك حقك لان مهما كتبت لن اوفيك حقك اخي الذي احببته بدون ان اراه واتمنى من الله عز وجل ان اراك ولو مره في الحياه وتكون في بيته الحرام مرحبا بك من جديد
والسلام عليكم ورحمة الله وبركاته
والسلام عليكم ورحمة الله وبركاته
25-02-16, 05:21 AM
السلام عليكم
- يا أهلا وسهلاً بك أخي العزيز ناجي إبراهيم وين أيامك يارجل والله إشتقنا لك ولإبداعات المميزه والله إفتقدناك وجودك بيننا يعني لنا الكثير والكثير بصراحه بالنسبه لي عند مشاهدتي لتواجدك أرتاح نفسياً وأكون سعيد جداً، أرجو من الله أن لاتغيب كثيراً عن المنتدى وأن تتكرم وتتواجد على الأقل بين فترة وأخرى ، وأرجو أن أشاهد بعض إبداعاتك الثمينه التي عودتنا عليها أنا شخصياً أستفدت كثيراً مما قدمته الله يزيدك من علمه وفضله وجزاك الله كل خير ويوفقك ويسعدك .
- تحياتي لك .
- يا أهلا وسهلاً بك أخي العزيز ناجي إبراهيم وين أيامك يارجل والله إشتقنا لك ولإبداعات المميزه والله إفتقدناك وجودك بيننا يعني لنا الكثير والكثير بصراحه بالنسبه لي عند مشاهدتي لتواجدك أرتاح نفسياً وأكون سعيد جداً، أرجو من الله أن لاتغيب كثيراً عن المنتدى وأن تتكرم وتتواجد على الأقل بين فترة وأخرى ، وأرجو أن أشاهد بعض إبداعاتك الثمينه التي عودتنا عليها أنا شخصياً أستفدت كثيراً مما قدمته الله يزيدك من علمه وفضله وجزاك الله كل خير ويوفقك ويسعدك .
- تحياتي لك .