منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ (/showthread.php?tid=17744)



كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ - Microformt - 22-10-16

بسم الله الرحمن الرحيم
 الاخوه الكرام
السلام عليكم ورحمة وبركاته

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



RE: كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ - Ahmed_Mansoor - 23-10-16

وعليك السلام ورحمة الله وبركاته

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

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 



RE: كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ - Microformt - 23-10-16

(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 

اخي العزيز : احمد
 جزك الله با الجنه انت ومن تحب
 تحياتي