تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كيف اعمل شرط على text box علشان يدخل ارقام فقط
#1
كيف اعمل شرط على text box علشان يدخل ارقام فقط
الرد }}}
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
جرّب هكذا مثلاً إن شاء الله تضبط معك ..
إحتراماتي
كود :
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

الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , noor alhuda , amer2000 , sendbad100 , sendbad100 , Amir_Alzubidy
#3
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
هذا الكون رح يضبط معاك مضمون
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , sendbad100 , Amir_Alzubidy , noor alhuda



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم