السماح للمستخدم بأستخدام أرقام فقط فى مربع النص text1
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
السماح للمستخدم بأستخدام أرقام فقط فى مربع النص text1
السلام عليكم
عندى برنامج و اريد أن أجبر المستخدم من أدخال أرقام فقط فية بدلا من نصوص ؟؟؟؟
أرجوا الاجابة فى أقرب وقت ....
عندى برنامج و اريد أن أجبر المستخدم من أدخال أرقام فقط فية بدلا من نصوص ؟؟؟؟
أرجوا الاجابة فى أقرب وقت ....
زهراء- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة :
الجنس :
رد: السماح للمستخدم بأستخدام أرقام فقط فى مربع النص text1
تفضلي اختي هذا الكود
في حدث الــ KeyPress ضعي هذا الكود
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
MsgBox " Please Write numbers only.. ", vbCritical + vbMsgBoxRight, "Error "
KeyAscii = 0
End If
في حدث الــ KeyPress ضعي هذا الكود
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
MsgBox " Please Write numbers only.. ", vbCritical + vbMsgBoxRight, "Error "
KeyAscii = 0
End If
goldenman100- عضو شرفى
- تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة :
الجنس :
رد: السماح للمستخدم بأستخدام أرقام فقط فى مربع النص text1
الله يبارك فيك يأخى ....تقبل تحياتى
زهراء- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد