Companheiros,
Boa Noite!
Criei um módulo de classe para formatar como data vários controles TextBox em um formulário, sem ter que ficar formatando um a um individualmente. No evento Keypress dentro do módulo de classe já consegui, travar a quantidade de caracteres em 10 dígitos, alinhar a data no centro de cada textbox, permitir apenas o uso de números e de backspace e inserir as barras da formatação das datas que serão digitadas nas textbox. Até aí tudo certo.
Ocorre que é necessário validar se o usuário digitou uma data válida. Obviamente, eu poderia utilizar outros controles (como DTPicker) que me pouparia inclusive o trabalho dessa validação. Mas preciso usar TextBox e é inviável utilizar o evento EXIT de cada TextBox existente no formulário. Essa validação de datas posso fazer com a função IsDate do VBA. Todavia, não posso inserir essa validação dentro do Evento KeyPress pois a validação seria disparada cada vez que o usuário pressionasse uma tecla referente a entrada de um número.
Desse modo, pensei em utilizar o Evento EXIT para fazer a referida validação. Para minha surpresa, esse evento não está disponível na lista de eventos existente na Classe criada. Ou seja: nem todos os eventos existentes em um controle TextBox estão disponíveis na classe (que cria um objeto TextBox) criada.
Assim, gostaria de pedir a ajuda dos colegas integrantes do fórum para saber como eu poderia, dentro da classe criada, validar as datas que são entradas nas caixas de texto do formulário. Que evento eu poderia ou deveria usar? Tem como eu criar o evento EXIT dentro da classe?
Para melhor entendimento de todos, anexo um pequeno exemplo.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 30/08/2017 3:36 pm