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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اريد كود ادخال الرقم (/showthread.php?tid=7857)

اريد كود ادخال الرقم - خيماوي كووول - 07-03-13

ممكن تفيدوني بالكود ادخال الرقم من 10 الى 40 في تكست بوكس .. ولا يسمح ادخال اقل من 10 ولا اكثر من 40

شاكر لكم

اريد كود ادخال الرقم - @@أبورائد@@ - 07-03-13

السلام عليكم ورحمة الله وبركاته



فيه هذه الطريقة بشكل سريع
PHP كود :
Private Sub Text1_LostFocus()
    If Val(Me.Text1.Text) < 10 Or Val(Me.Text1.Text) > 40 Then Text1.SetFocus
End Sub 



السلام عليكم ورحمة الله وبركاته

اريد كود ادخال الرقم - خيماوي كووول - 07-03-13

جزاك الله خير

اريد كود ادخال الرقم - kader30 - 11-03-13

وهناك طريقة أخرى يمكن أن اضيفها :


Private Sub Text1_keypress()
If Val(Text1.Text) < 10 Or Val(Text1.Text) > 40 Then
Text1.Text = ""
End Sub


الدكتور : عبان عبد القادر
من ورقلة ( الجزائر )