Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/myTextbox_KeyPress.bas

Created January 28, 2017 05:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/ac7289a85bf0bf73dbd8fd5e6707bba5 to your computer and use it in GitHub Desktop.
Save ndthanh/ac7289a85bf0bf73dbd8fd5e6707bba5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
myTextbox_KeyPress.bas
Private Sub cbSetText_Click()
MsgBox myTextbox.Value
End Sub
Private Sub myTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < vbKey0, Is > vbKey9
KeyAscii = 0
Beep
End Select
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment