17-10-12, 03:27 PM
كاتب الموضوع : المبرمج الطموح 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]
حيث اننا نحتاج فقط الى تكست بوكس واحد اتمنى ان يستفيد الجميع
لا تنسوننا من الردود و انا جاهز لاي سؤال تطرحونه ...................................