OnlyNumber
Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc("0") To Asc("9"), vbKeyBack Case Else Beep KeyAscii = 0 End Select End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
Case Else
Beep
KeyAscii = 0
End Select
End Sub
( onlynumber.html )- by Paolo Puglisi
- Modifica del 17/12/2023