16-05-13, 10:00 AM
كتابة ارقام فقط
Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim ss As String
If KeyAscii = 8 Then Exit Sub
ss = "0123456789."
i = InStr(ss, Chr(KeyAscii))
If i = 0 Then KeyAscii = 0
End Sub
