منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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 
(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 

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