المشاركات : 48
المواضيع 8
الإنتساب : Nov 2014
السمعة :
7
الشكر: 68
تم شكره 92 مرات في 11 مشاركات
السلام عليكم اخوان اذا ممكن مساعده
1-اريد التيكست يدخل فقط ارقام ومايكتب نص
واذا كان التيكست نص يكتب فقط نص ومايكتب ارقام
2-واريد اذا كان التيكست ادخال رقم موبايل ورقم الموبايل متكون من 11 رقم كيف برمجته
3-اذا كان التيكست بريد الالكتروني كيف يكون برمجته
اذا ممكن كود واكون شاكره الكم
المشاركات : 501
المواضيع 119
الإنتساب : Jul 2014
السمعة :
16
الشكر: 1786
تم شكره 1291 مرات في 275 مشاركات
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
الشكر: 448
تم شكره 128 مرات في 12 مشاركات
فيما يخص عدد الارقام نحدد اكبر عدد للارقام من خاصية التيكست (MAX LENGHT) مثلا يساوي 10
واذا اردنا ان لايقل عن عشرة ارقام
في حدث KEYPRESS نكتب الكود التالي
If Len(Text1.Text) < 10 Then
MsgBox "MAX OR MIN TEEN NUMBER", vbExclamation
Text1.SetFocus