+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] برمجة ال text (/showthread.php?tid=12012)
برمجة ال text - ruaa muslem - 10-04-15
السلام عليكم اخوان اذا ممكن مساعده
1-اريد التيكست يدخل فقط ارقام ومايكتب نص
واذا كان التيكست نص يكتب فقط نص ومايكتب ارقام
2-واريد اذا كان التيكست ادخال رقم موبايل ورقم الموبايل متكون من 11 رقم كيف برمجته
3-اذا كان التيكست بريد الالكتروني كيف يكون برمجته
اذا ممكن كود واكون شاكره الكم
RE: برمجة ال text - larbihamri - 10-04-15
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
هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
RE: برمجة ال text - ruaa muslem - 10-04-15
(10-04-15, 05:33 PM)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
هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
RE: برمجة ال text - m-shrif - 30-06-15
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
هذا فيما يخص كتابة رقم فقط
RE: برمجة ال text - محمد ئوزبك - 23-07-15
فيما يخص عدد الارقام نحدد اكبر عدد للارقام من خاصية التيكست (MAX LENGHT) مثلا يساوي 10
واذا اردنا ان لايقل عن عشرة ارقام
في حدث KEYPRESS نكتب الكود التالي
If Len(Text1.Text) < 10 Then
MsgBox "MAX OR MIN TEEN NUMBER", vbExclamation
Text1.SetFocus