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

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



كيف اعمل شرط على text box علشان يدخل ارقام فقط - noor alhuda - 26-12-16

كيف اعمل شرط على text box علشان يدخل ارقام فقط


RE: فيجول بيسك - عبد العزيز البسكري - 26-12-16

السّلام عليكم و رحمة الله و بركاته
جرّب هكذا مثلاً إن شاء الله تضبط معك ..
إحتراماتي
كود :
Private Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then
MsgBox "الرجاء ، أدخل أرقاماً فقط", vbCritical, "خطأ"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End Sub




RE: فيجول بيسك - قتيبه عباد - 03-05-17

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
هذا الكون رح يضبط معاك مضمون