Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Introduce sto en el text Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Upper(KeyAscii) End Sub xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Introdude esto en el formulario Function Upper(KeyAscii As Integer) If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = KeyAscii - 32 End If Upper = KeyAscii End Function
Estimado amigo: En www.ambsoftware.com encontrarás un ejemplo que te muestra cómo hacerlo. Para localizarlo te recomiendo que utilices el buscador de recursos de la página principal y escribas en la casilla la palabra "mayúscula". Escríbela con acento ya que el buscador los distingue. Espero que esta información te sirva de ayuda. Fdo.- Alvaro Marín