Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

¿cual es la funcion?

Estas en el tema de ¿cual es la funcion? en el foro de Visual Basic clásico en Foros del Web. hola a todos, espero esten bien, quisiera saber la funcion en visual basic 6.0 para que en un textbox no distinga entre mayusculas y minusculas, ...
  #1 (permalink)  
Antiguo 03/07/2008, 01:04
 
Fecha de Ingreso: marzo-2008
Mensajes: 10
Antigüedad: 16 años, 1 mes
Puntos: 0
¿cual es la funcion?

hola a todos, espero esten bien, quisiera saber la funcion en visual basic 6.0 para que en un textbox no distinga entre mayusculas y minusculas, de antemano agradezco la ayuda que me puedan proporcionar, un saludo a todos y espero sus respuestas
  #2 (permalink)  
Antiguo 03/07/2008, 01:48
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: ¿cual es la funcion?

Cita:
Iniciado por skato0000 Ver Mensaje
hola a todos, espero esten bien, quisiera saber la funcion en visual basic 6.0 para que en un textbox no distinga entre mayusculas y minusculas, de antemano agradezco la ayuda que me puedan proporcionar, un saludo a todos y espero sus respuestas
¿Te refieres a que solamente se pueda escribir en mayúsculas o minúsculas?

Para escrbir siempre en mayúsculas:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub


Siempre en minúsculas:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub


  #3 (permalink)  
Antiguo 03/07/2008, 13:00
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Exclamación Respuesta: ¿cual es la funcion?

La solución que propones es correcta, compañero Avellaneda.
No obstante, si se hace copiar/pegar no va a cambiar. Así que propongo que se coloque en el evento Change. Así:
Código:
'Mayúsculas
Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
End Sub
'Minúsculas
Private Sub Text1_Change()
Text1.Text = LCase(Text1.Text)
End Sub
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:03.