![sin imagen de perfil sin imagen de perfil](/img/anonymouse.png)
cambiar a mayúsculas
Publicado por carlos (70 intervenciones) el 18/05/2024 19:44:08
he probado todos estos códigos en un formulario para cambiar de minúscula a mayúscula
'Con estos dos Eventos se fuerzan a Mayúsculas todos los Campos:
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
-------------------------------------------------------------------------------------------------
'Con este Evento se fuerza a Mayúsculas solo el Campo Nombre
Private Sub Nombre_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
cuando es en un cuadro de texto, funciona ok, pero al tratar de hacerlo en cuadro combinando no funciona
me pudieras ayudar
'Con estos dos Eventos se fuerzan a Mayúsculas todos los Campos:
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
-------------------------------------------------------------------------------------------------
'Con este Evento se fuerza a Mayúsculas solo el Campo Nombre
Private Sub Nombre_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr$(KeyAscii)))
End Sub
cuando es en un cuadro de texto, funciona ok, pero al tratar de hacerlo en cuadro combinando no funciona
me pudieras ayudar
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0