16-11-13, 09:23 PM
(16-11-13, 09:03 PM)asto كتب : لابد من الاعتماد على تكست بوكس---------------------------------------------------------------------
و هذا الكود :
كود :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
اخي العزيز
السلام عليكم ورحمة وبركاته
لا فادة من الاجابة !!!!!
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ

