مـنــتــدى الـــشــــــاهـــد
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
مـنــتــدى الـــشــــــاهـــد

منتدى اسلامى وتعليمي وترفيهي
 
الرئيسيةالرئيسية  البوابةالبوابة  أحدث الصورأحدث الصور  التسجيلالتسجيل  دخولدخول  

 

 كتابة ارقام فقط

اذهب الى الأسفل 
3 مشترك
كاتب الموضوعرسالة
Admin
المدير
المدير
Admin


المساهمات : 175
تاريخ التسجيل : 21/11/2007
العمر : 40
الموقع : https://elshahed.ahlamontada.net

كتابة ارقام فقط Empty
مُساهمةموضوع: كتابة ارقام فقط   كتابة ارقام فقط Icon_minipostedالأربعاء 05 ديسمبر 2007, 11:02 pm

Private Sub Text1_Change()
If Text1.Text = "" Then
Exit Sub
End If
If Not IsNumeric(Text1.Text) Then
Msgbox "من فضلك ادخل ارقام فقط"
Text1.Text = ""
End If
End Sub
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://elshahed.ahlamontada.net
mahmoud ezz
عضو نشط
عضو نشط
mahmoud ezz


المساهمات : 22
تاريخ التسجيل : 17/12/2008
العمر : 33
الموقع : mazika_love902000@yahoo.com

كتابة ارقام فقط Empty
مُساهمةموضوع: عن الموضوع   كتابة ارقام فقط Icon_minipostedالخميس 14 مايو 2009, 10:21 pm

شكراً جزيلا يا استاذ محمد علي هذا الموضوع الرائع وعلي تعبك معانا


عدل سابقا من قبل mahmoud ezz في الجمعة 22 مايو 2009, 8:36 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
Mohammed King
عضو نشط
عضو نشط



المساهمات : 22
تاريخ التسجيل : 10/01/2009
الموقع : soper_world_dj@yahoo.com

كتابة ارقام فقط Empty
مُساهمةموضوع: رد: كتابة ارقام فقط   كتابة ارقام فقط Icon_minipostedالجمعة 15 مايو 2009, 10:36 am

ThXx Dr.Mohamed
upon subject splendid
good luck
= = = = = = = =
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كتابة ارقام فقط
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
مـنــتــدى الـــشــــــاهـــد :: تكنولوجيا وكمبيوتر :: البرمجة :: فيجوال بيسك-
انتقل الى: