
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


0