المشاركات : 48
المواضيع 8
الإنتساب : Nov 2014
السمعة :
7
الشكر: 68
تم شكره 92 مرات في 11 مشاركات
السلام عليكم اخوان اذا ممكن مساعده
1-اريد التيكست يدخل فقط ارقام ومايكتب نص
واذا كان التيكست نص يكتب فقط نص ومايكتب ارقام
2-واريد اذا كان التيكست ادخال رقم موبايل ورقم الموبايل متكون من 11 رقم كيف برمجته
3-اذا كان التيكست بريد الالكتروني كيف يكون برمجته
اذا ممكن كود واكون شاكره الكم
المشاركات : 388
المواضيع 95
الإنتساب : Jul 2014
السمعة :
12
الشكر: 1658
تم شكره 1149 مرات في 197 مشاركات
10-04-15, 05:33 PM
(آخر تعديل لهذه المشاركة : 10-04-15, 05:34 PM {2} بواسطة larbihamri.)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
KeyAscii = 0
Exit Sub
End If
End Sub
هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
المشاركات : 28
المواضيع 4
الإنتساب : May 2015
السمعة :
0
الشكر: 0
تم شكره 97 مرات في 7 مشاركات
البلد:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 31 Then
If (KeyAscii < 48) Or (KeyAscii > 57) Then
KeyAscii = 0
MsgBox "ÇáÑÌÇÁ ßÊÇÈÉ ÃÑÞÇã ÝÞØ", vbInformation, "ÑÓÇáÉ"
End If
End If
End Sub
هذا فيما يخص كتابة رقم فقط
المشاركات : 23
المواضيع 7
الإنتساب : Jul 2015
السمعة :
1
الشكر: 444
تم شكره 126 مرات في 12 مشاركات
البلد:
فيما يخص عدد الارقام نحدد اكبر عدد للارقام من خاصية التيكست (MAX LENGHT) مثلا يساوي 10
واذا اردنا ان لايقل عن عشرة ارقام
في حدث KEYPRESS نكتب الكود التالي
If Len(Text1.Text) < 10 Then
MsgBox "MAX OR MIN TEEN NUMBER", vbExclamation
Text1.SetFocus