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?
Pergunta
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 para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.