10-04-15, 05:33 PM
(آخر تعديل لهذه المشاركة : 10-04-15, 05:34 PM {2} بواسطة 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
هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
KeyAscii = 0
Exit Sub
End If
End Sub
هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها
