Escrever tudo em maiúsculas ou minúsculas
Para que um utilizador quando estiver a introduzir dados escreva sempre em maiúsculas basta colocar o seguinte código nas propriedades do campo, no evento ‘ao premir a tecla’ (OnKeyPress ):
KeyAscii = Asc(UCase(Chr(KeyAscii)))
onde keyascii vai receber o novo código ASCII
chr = exibe o carácter do código ASCII
Função ‘Asc’: Devolve um número inteiro que representa o código (ASCII) de carácter correspondente à primeira letra numa cadeia.
Função Ucase: converte uma cadeia de caracteres para maiúsculas.
Função Chr: mostra o carácter do código ASCII
Para converter para minúscula basta alterar Ucase por Lcase:
KeyAscii = Asc(LCase(Chr(KeyAscii)))