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

(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(1, zNumbers, Chr$(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(1, zNumbers, Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub

End Sub