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

¿ Se puede realizar ?

Estas en el tema de ¿ Se puede realizar ? en el foro de Visual Basic clásico en Foros del Web. Hola : Tengo tres textbox en un formulario y estoy necesitando que sin importar que textbox tiene el foco , al presionar A se escriba ...
  #1 (permalink)  
Antiguo 29/05/2008, 13:25
 
Fecha de Ingreso: octubre-2006
Mensajes: 139
Antigüedad: 17 años, 6 meses
Puntos: 1
¿ Se puede realizar ?

Hola :
Tengo tres textbox en un formulario y estoy necesitando que sin importar que textbox tiene el foco , al presionar A se escriba el text1 con esa letra , al presionar B , se escriba text2 , y al presionar C , se escriba el text3
¿ Se puede realizar ? ¿ Alguna ayuda ? Empleé el evento keypreview en el form , pero no logro lo que me propongo.
Desde ya gracias
  #2 (permalink)  
Antiguo 29/05/2008, 13:45
Avatar de Kruzado  
Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 17 años, 1 mes
Puntos: 17
Respuesta: ¿ Se puede realizar ?

en el ejemplo que das, si en e tex2 escribo "CASA", el foco se me va al text1 sin poder ingresar el texto completo, me entiendes?, si no es asi, favor explicar nuevamente
  #3 (permalink)  
Antiguo 29/05/2008, 13:46
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Respuesta: ¿ Se puede realizar ?

Cita:
Iniciado por DIDAKE Ver Mensaje
Hola :
Tengo tres textbox en un formulario y estoy necesitando que sin importar que textbox tiene el foco , al presionar A se escriba el text1 con esa letra , al presionar B , se escriba text2 , y al presionar C , se escriba el text3
¿ Se puede realizar ? ¿ Alguna ayuda ? Empleé el evento keypreview en el form , pero no logro lo que me propongo.
Desde ya gracias
Pues con el KeyPreview puedes hacerlo así (en el evento KeyPress del Form):
Código:
 
Select Case Ucase(Chr(KeyAscii))
     Case "A"
           Text1.Text = Text1 & Chr(KeyAscii)
           KeyAscii = 0
      Case "B"
           Text2.Text = Text2 & Chr(KeyAscii)
           KeyAscii = 0
      Case "C"
           Text3.Text = Text3 & Chr(KeyAscii)
           KeyAscii = 0
End Select
No sé por qué no te hace lo que deseas...
__________________
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 00:08.