سؤال محيرني لم اجد اجابته في الكتب

السلام،

يحتوي هذا الموقع على عمليات مشابة

http://www.freevbcode.com/ShowCode.Asp?ID=1086

و

http://www.vb-helper.com/howto_is_int.html

ms_z كتب:

السلام عليكم ورحمة الله وبركاته .

اخواني لو تكرمتو افيدوني في سالي

السؤال

اريد ان اعرف هل هنا ك دوال خاصه لفحص المدخلات اذا ما كانت ارقام او حروف واذا كانت حروف هل هي كبيره او صغيره ؟

ولكم جزيل الشكر

مع التحيه

الف شكر على الروابط

مع التحيه

الجواب لسِؤالك هو هالكودات :

الأول: ما بيسمح إلا بكتابة أحرف إنكليزية بمربع النص

Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then
'joud.net
Else
KeyAscii = 0
End If
'انتبه ضعه في الحدث لصندوق النص keypress
End Sub

الثاني : ما بيسمح إلا بكتابة أرقام و بنفس الطريقة

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
'joud.net
KeyAscii = 0
End If
End Sub

إن شاء الله كون قدرت على الإجابة على سؤالك