منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مفاجاة المبتدئين كود منع ادخال قيمة حرفية في التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : مفاجاة المبتدئين كود منع ادخال قيمة حرفية في التكست بوكس (/showthread.php?tid=6073)



مفاجاة المبتدئين كود منع ادخال قيمة حرفية في التكست بوكس - RaggiTech - 17-10-12

كاتب الموضوع : المبرمج الطموح vb6

السلام عليكم لن اطول عليكم بالحديث هذا هو الكود
كود :
[color=#000000][COLOR=#0000bb][/color][color=#007700]private [/color][color=#0000bb]sub text1_keypress [/color][color=#007700]([/color][color=#0000bb]keyascii [/color][color=#007700]as [/color][color=#0000bb]integer[/color][COLOR=#007700])
if ( [/COLOR][color=#0000bb]keyascii [/color][color=#007700]< [/color][color=#0000bb]48 [/color][color=#007700]or [/color][color=#0000bb]keyascii [/color][color=#007700]> [/color][color=#0000bb]57 [/color][color=#007700]) [/color][color=#0000bb]then keyascii [/color][color=#007700]= [/color][COLOR=#0000bb]0
end sub  
[/COLOR][/COLOR]

حيث اننا نحتاج فقط الى تكست بوكس واحد اتمنى ان يستفيد الجميع
لا تنسوننا من الردود و انا جاهز لاي سؤال تطرحونه ...................................


مفاجاة المبتدئين كود منع ادخال قيمة حرفية في التكست بوكس - RaggiTech - 17-10-12


و هذا هو المثال .................................................. ...........