mais uma vez necessito da ajuda de vocês, tenho um formulário com 55 TextBox's com os respectivos nomes TextBox101 a TextBox155, eu preciso que em todos só aceite números inteiros. Com o código abaixo eu consigo extamente o que preciso:
Private Sub TextBox101_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 8 'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}" 'Emula o TAB
Case 48 To 57
Case Else: KeyAscii = 0 'Ignora os outros caracteres
End Select
End Sub
Porém terei de repetir 55 vezes o mesmo código mudando somente o os números finais do do TextBox de 101 até 155. Para que o código fique mais elegante, sem redundância e com redução na chance de erro, eu queria um evento "KeyPress avançado" o qual através de Loop, Next ou qualquer outra ferramente me desse apenas um único código que rodasse em todas as minhas TextBox's, isso é possível e alguém conhece?
Question
Pedrosa Souza
Boa tarde galera,
mais uma vez necessito da ajuda de vocês, tenho um formulário com 55 TextBox's com os respectivos nomes TextBox101 a TextBox155, eu preciso que em todos só aceite números inteiros. Com o código abaixo eu consigo extamente o que preciso:
Private Sub TextBox101_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 8 'Aceita o BACK SPACE Case 13: SendKeys "{TAB}" 'Emula o TAB Case 48 To 57 Case Else: KeyAscii = 0 'Ignora os outros caracteres End Select End SubPorém terei de repetir 55 vezes o mesmo código mudando somente o os números finais do do TextBox de 101 até 155. Para que o código fique mais elegante, sem redundância e com redução na chance de erro, eu queria um evento "KeyPress avançado" o qual através de Loop, Next ou qualquer outra ferramente me desse apenas um único código que rodasse em todas as minhas TextBox's, isso é possível e alguém conhece?
Obrigado Amigos
Pedro Souza
Link to comment
Share on other sites
0 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.