تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب كود -فتح ملف مساره موجود في text1.text awidan76 6 474 26-03-17, 08:39 AM
آخر رد: awidan76
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 927 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [كود] كود إدارج بيانات text عند الضغط على زر Enter Hell Cell 1 756 28-01-15, 02:42 PM
آخر رد: Amir_alzubidy
  كود مايكتب ب text يعرض في الفورم الثاني ب text samiZ7007 4 1,384 12-08-13, 06:57 PM
آخر رد: samiZ7007
  Change text to numbers K7EELAN 4 1,039 06-08-13, 09:33 PM
آخر رد: اسلام الكبابى
  كيف اجعل text يخذ خاصية MaskEdBox ؟؟ softmail8 6 1,284 31-07-13, 12:54 PM
آخر رد: softmail8
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 1,078 21-07-13, 09:30 PM
آخر رد: ابو بدران
  كيف يمكن انشي الى text ضل عن طريق البرمجة ؟ softmail8 3 770 20-06-13, 01:51 PM
آخر رد: softmail8
  كيف اعمل sort لبيانات فيها ارقام وعلامات مثل 12/32 ابو بدران 0 652 13-06-13, 06:21 PM
آخر رد: ابو بدران
  كود تمدد text في اثناء الكتابة wolf1120 4 1,051 04-06-13, 12:36 AM
آخر رد: wolf1120

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


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