SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Omarrpat en Martes 11 de Noviembre de 2003, 18:11

Título: Re: Utilizacion de Ucase
Publicado por: Omarrpat en Martes 11 de Noviembre de 2003, 18:11

Como puedo utilizar un Ucase en un maskEdit?
:think:

Título: Re: Utilizacion de Ucase
Publicado por: Brroz en Martes 11 de Noviembre de 2003, 18:25

Hola Omarrpat.

MaskEdBox1.Text = Ucase(MaskEdBox1.Text)

Evidente, ¿no?

Supongo que lo que te interesa saber es cómo crear una máscara para sólo introducir letras mayúsculas en el control... Bien, pues no sé cómo. Yo lo solucionaría o en el evento validate del control, o en el evento change, o en el evento KeyPress. Por ejemplo:

Private Sub MaskEdBox1_Validate(Cancel as Boolean)
MaskEdBox1.Text = Ucase(MaskEdBox1.Text)
End Sub

Private Sub MaskEdBox1_Change
MaskEdBox1.Text = Ucase(MaskEdBox1.Text)
End Sub

Private Sub MaskEdBox1_KeyPress(KeyAscii As integer)
If KeyAscii < 97 Or KeyAscii > 122 Then Exit Sub
KeyAscii = Asc(Ucase(Chr(KeyAscii)))
End Sub

Chao.

Título: Utilizacion de Ucase
Publicado por: angelescj en Martes 11 de Noviembre de 2003, 18:39

Para que sólo pueda escribir en mayúsculas basta con poner el símbolo ">" a partir de la posición en la que queremos que los caracteres estén en mayúsculas. Si los escribe en minúsculas los pasa a mayúsculas.
EJ:
mskEjemplo.mask=">" ==> Todos los caracteres en mayúsculas.
mskEjemplo2.mask="??>" ==> Los dos primeros caracteres los deja como están y el resto a mayúsculas
:good: