با سلام
فكر كنم اينم جواب بده من خودم هم استفاده ميكنم
Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
'ONLY NUMBERS AND BACKSPACE
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
با سلام
فكر كنم اينم جواب بده من خودم هم استفاده ميكنم
Option Explicit
Private Sub Text1_KeyPress(KeyAscii As Integer)
'ONLY NUMBERS AND BACKSPACE
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)