تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟
#1
Question 
بسم الله الرحمن الرحيم
 الاخوه الكرام
السلام عليكم ورحمة وبركاته

كيف اشترط على المستخدم  إدخال نص في مكان اسم المواظف  وفي رقم المواظف إدخال رقم ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم في برنامجي المرفق
 تحياتي


الملفات المرفقة
.rar   nops.rar (الحجم : 1.44 ك ب / التحميلات : 18)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله وبركاته

أهلا بك أخي سالم , ضع هذا الكود في داخل كود المثال الذي أرفقته :

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)

If 
KeyAscii 8 Then Exit Sub

Dim zNumbers 
As String

zNumbers 
"0123456789"

If InStr(1zNumbersChr$(KeyAscii)) > 0 Then KeyAscii 0: Exit Sub

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If 
KeyAscii 8 Then Exit Sub

Dim zNumbers 
As String

zNumbers 
"0123456789"

If InStr(1zNumbersChr$(KeyAscii)) <= 0 Then KeyAscii 0: Exit Sub

End Sub 
الرد }}}}
#3
(23-10-16, 01:39 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته

أهلا بك أخي سالم , ضع هذا الكود في داخل كود المثال الذي أرفقته :

PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)

If 
KeyAscii 8 Then Exit Sub

Dim zNumbers 
As String

zNumbers 
"0123456789"

If InStr(1zNumbersChr$(KeyAscii)) > 0 Then KeyAscii 0: Exit Sub

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If 
KeyAscii 8 Then Exit Sub

Dim zNumbers 
As String

zNumbers 
"0123456789"

If InStr(1zNumbersChr$(KeyAscii)) <= 0 Then KeyAscii 0: Exit Sub

End Sub 

اخي العزيز : احمد
 جزك الله با الجنه انت ومن تحب
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  من لديه طريقه الطباعه على مكان معين من ورقه الستيكر a4 المجزئه الي 33 جزء scsi7000 2 103 30-07-17, 07:03 PM
آخر رد: scsi7000
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 393 01-04-17, 02:18 AM
آخر رد: awidan76
  [vb6.0] كود نسخ ملف من مكان لأخر mero zarad 49 1,564 26-03-17, 07:37 PM
آخر رد: الخير طهوري
  اشترط على المستخدم ادخال رقم 1 في البداية طالب 9 425 12-02-17, 02:12 AM
آخر رد: مساعدة
Question [vb6.0] كيف يمكن تحديد أسم المستخدم من القائمة وإدخال كلمة المرور ؟؟ Microformt 1 267 14-12-16, 03:53 PM
آخر رد: sendbad100
Question [vb6.0] كيف امنع المستخدم أن إدخل في Text رمز او رقم ؟؟ Microformt 6 533 29-04-16, 08:27 PM
آخر رد: Microformt
Question منع المستخدم للبرنامج من الوصول الى الاكواد والتغيير فيها او نسخها haiderkh 7 524 21-04-16, 10:18 PM
آخر رد: Ahmed_Mansoor
Lightbulb [سؤال] كود يعمل على منع المستخدم من تثبيت البرامج على نظام التشغيل ياسر عبد الكريم 0 282 12-04-16, 09:28 PM
آخر رد: ياسر عبد الكريم
Question [vb6.0] كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ Microformt 5 781 16-12-15, 08:04 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل برنامجي المرفق إعتمد احد الخيارات في إدخال نوع التاريخ ؟؟ Microformt 6 1,187 14-12-15, 12:58 AM
آخر رد: الاصيله

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


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