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

هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
الرد }}}}
تم الشكر بواسطة:
#3
(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



هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
اخي شكرا جزيلا لكن اذا ممكن تشرح لي خطوه خطوه
الرد }}}}
تم الشكر بواسطة:
#4
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

هذا فيما يخص كتابة رقم فقط
الرد }}}}
تم الشكر بواسطة:
#5
فيما يخص عدد الارقام نحدد اكبر عدد للارقام من خاصية التيكست (MAX LENGHT) مثلا يساوي 10
واذا اردنا ان لايقل عن عشرة ارقام
في حدث KEYPRESS نكتب الكود التالي

If Len(Text1.Text) < 10 Then
MsgBox "MAX OR MIN TEEN NUMBER", vbExclamation
Text1.SetFocus
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 3 106 17-09-17, 06:49 PM
آخر رد: Microformt
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 137 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 121 22-08-17, 10:24 PM
آخر رد: guerciftech
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 166 28-05-17, 11:58 PM
آخر رد: Microformt
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 182 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  [vb6.0] برمجة زر بحث vb6 مع قاعدة بيانات php my admin abazrmhamed 7 382 10-02-17, 01:34 AM
آخر رد: abazrmhamed
Question [vb6.0] كيف يتم برمجة خيارت البحث (بدقة) في برنامجي المرفق ؟؟ Microformt 2 410 14-01-17, 05:57 PM
آخر رد: Microformt
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 1,173 17-11-16, 11:54 PM
آخر رد: iisys
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 538 07-11-16, 06:16 AM
آخر رد: AL_BRNS
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 303 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy

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


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