• Sábado 18 de Mayo de 2024, 10:43

Autor Tema:  Re: Utilizacion de Ucase  (Leído 1229 veces)

Omarrpat

  • Miembro activo
  • **
  • Mensajes: 62
    • Ver Perfil
Re: Utilizacion de Ucase
« en: Martes 11 de Noviembre de 2003, 18:11 »
0
Como puedo utilizar un Ucase en un maskEdit?
:think:

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Utilizacion de Ucase
« Respuesta #1 en: Martes 11 de Noviembre de 2003, 18:25 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 154
    • Ver Perfil
Utilizacion de Ucase
« Respuesta #2 en: Martes 11 de Noviembre de 2003, 18:39 »
0
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: