تقييم الموضوع :
  • 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 والشهر في Text اخر واليوم في text ؟؟ Microformt 2 223 21-12-18, 01:48 AM
آخر رد: اسامه الهرماوي
  [سؤال] بحث عن شهر وسنة كل قيمة فى text 1 ,text2 بطريقةsql هناء صالح 1 156 20-10-18, 09:31 PM
آخر رد: Amir_Alzubidy
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 249 21-09-18, 05:12 PM
آخر رد: Microformt
Question [vb6.0] كيف يتم برمجة تصفح السجلات ؟ Mysystem32 1 219 05-05-18, 05:50 PM
آخر رد: Amir_Alzubidy
  هل استطيع برمجة متغير جديد والتعامل معه في البرامج؟ abudawoodd 5 414 16-03-18, 12:59 PM
آخر رد: abudawoodd
Question [vb6.0] كيف اجعل زر الامر ينتقل امام text عند انتقل موشر الكتابه الى text اخر ؟؟ Microformt 2 389 29-10-17, 07:33 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 619 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 380 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 471 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 459 22-08-17, 10:24 PM
آخر رد: guerciftech

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


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