سؤالي عن كيفية التأكد من ان المستخدم ادخل ارقام فقط في التيكست بوكس وليس حروف او رموز ..
يعني على سبيل المثال هذا الكود يتأكد من ان المستخدم ادخل شيء في التيكست بوكس :
if Textbox1.text.trim <> "" then .... ....
لكن المشكلة بالنسبة للاحرف الرموز ؟؟
ياليت القى الحل عندكم شباب
If IsNumeric(Text1.Text) = True Then
msgbox "هذا رقم"
Else
msgbox "هذا ليس رقم"
End If
الايمان +الحلم +العلم +العمل = النجاح
ما اسهل ان تنجح ... وما اصعب ان تحافظ على نجاحك
مشكور اخي والله الرجاء شارك معنا في هذا الموضوع :
أخي العزيز لا داعي لعمل اعلان لموضوعك في كل موضوع
المرة المقبلة اذا فعلت نفس الأمر سأضطر لحذف مشاركتك
و شكرا
جزاكم جزاكم الله خيراستفاد من هذه المعلومات لاحقا
سوف اسا
لا حول و لا قوة الا بالله العلي العظيم
مشروع المخازن و حسابات العملاء و الموردين مع التحليل بطريقة احترافية
اخي العزيز خذ هذي الملف يخلي المستخدم مايدخل غير الارقام وممكن نقطة افاصلة العشرية
<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>
اخوي عصام عبد الجواد
شكرا جزيلا لك وان شاء تكون المسألة بهذه البساطة ..
اخوي elbzar
ساشارك ان شاء الله وبالتوفيق للجميع
اخوي crazy-man
لاادري ماذا تقصد ؟؟
انا لم اقم بعمل اي اعلان فقط كتبت الموضوع !!!
ارجو التوضيح ..
اخوي Wise
شكرا على المشاركة
اخوي Romantic_touch
شكرا جزيلا لك وجزاك الله خير
ولا ياهمك ياحبيب (العيدروس)
<span style='color:green'>سؤل ابن عباس عن علمه كيف جمعه فقال :( أوتيت لسانا سؤولا وقلبا عقولا)</span>
اقتباسانا لم اقم بعمل اي اعلان فقط كتبت الموضوع !!!
الأخ crazy-man يقصد الأخ elbzar وليس أنت ,,,
اخوي Romantic_touch
هلا والله باهل جدة
شكلك حبيب ولا لك معرفة ؟؟
اخوي hazzoom
كيف عرفت ؟؟؟ :blink: :lol:
اكتب هذا الكود فى الحدث keypress للتكست المراد اختباره
If IsNumeric(TextBox.Text) Then Else e.Handled=True EndIf
ولما تحتاح تزيد بعض المفاتيح غير الارقام زى back space مثلا
تكمل الشرط
هكذا
If IsNumeric(TextBox.Text)orelse e.keychar=chr(keys.anykey)
anykey تكتب بداله المفتاح المراد تنشيطه
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
اخوي SOLO.NET
مافهمت النقطة الثانية ياليت توضحها اكثر ..
وشكرا لك
اقتباساخوي SOLO.NETمافهمت النقطة الثانية ياليت توضحها اكثر ..
وشكرا لك
اقتباسولما تحتاح تزيد بعض المفاتيح غير الارقام زى back space مثلاتكمل الشرط
هكذا
CODE
If IsNumeric(TextBox.Text)orelse e.keychar=chr(keys.anykey)
اقصد هنا لو حبيت انك تسمح للمستخدم بكتابة اشياء اخرى غير الارقام مثلا النقطه . وخلافه
فى الشرط فى البدايه اختبرنا النص هل هو رقمى بالداله IsNumeric وبعدين نختبر اى زر من لوحه المفاتيح مضغوط وتعود به e.keychar
يعنى لو حبيت تخلى التكست ما يستقل الا ارقام وكذلك تسمح للمستخدم بالضغط على مفتاح back space للتراجع يكون الشرط هكذا
If IsNumeric(TextBox.Text)orelse e.keychar=chr(keys.BackSpace)
keys عبارة عن مرقم يمثل مفاتيح لوحة الكتابة
VB.NET and C# Comparison
http://www.harding.edu/fmccown/vbnet_csharp_comparison.html
=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده
اخوي SOLO.NET
الحين فهمت ..
شكرا جزيلا ..
هذا الموضوع مغلق.