Programación General > Visual Basic 6.0 e inferiores

 Re: Utilizacion de Ucase

(1/1)

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

Brroz:
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.

angelescj:
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:

Navegación

[0] Índice de Mensajes