Como le hago para que al introducir información me cambie el teclado a
mayúsculas, pero cuándo active el campo de correo electrónico me lo cambie a
minúscuylas


EDUARDO OLAZ
============

Parto de la base de que quieres que todos los textBox, menos el del correo,
trabajen con mayúsculas.
Para ello haremos lo siguiente
1º Cada vez que pulses una tecla, hacemos que el formulario la intercepte,
antes que ningún control.
     Para ello usamos la propiedad KeyPreview que la ponemos a True al
cargarse el formulario.
2º Desde el evento KeyPress del formulario convertimos el caracter
corrrespondiente al código KeyAscii pulsado, a su carácter en mayúscula, y
devolvemos el Ascii convertido.
        KeyAscii = Asc(UCase(Chr$(KeyAscii)))
3º Tras haber pasado por el filtro del formulario, el resto de los controles
recibirán el carácter en mayúscula.
4º Por supuesto textBox del correo electrónico, txtCorreoElectronico,
recibirá todos los caracteres en mayúscula, por lo que habrá que cambiarlos
a minúsculas. En el evento KeyPress del control hacemos:
        KeyAscii = Asc(LCase(Chr$(KeyAscii)))
No estaría de más también un procedimiento que comprobara que los caracteres
son válidos.
Aquí tienes el código:
_____________________________________________________

Private Sub Form_Load()
    KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub

Private Sub txtCorreoElectronico_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(LCase(Chr$(KeyAscii)))
End Sub
_____________________________________________________