Text y la tecla Shiff

[kakinets]

ante todos hola y perdon por la pregunta estupida pero habia dejado medio abandonado el vb y ahora retome.. y me olvide de estas boludeces.

Mi duda es la siguiente:
- Que propiedad me combiene usar para q cuando este en el Textbox1 y Aprete la tecla Shiff pase al TextBox2(esre text tiene la palabra"nombre") y la palabra mensionada aparezca seleccionada??

          Saludos..

Me parece q fui claro sino aganmelo saber...

[vivachapas]

bueno para pasar el al otro text es facil... en las opciones del text1 en keyascii pones q cuando se pulse shifft el foco (setfocus) se pase al text2
para seleccionarlo.. no se como hacerlo se me ocurre algo con SendKeys control+E

espero q te ayude

[ranslsad]

Hola, yo tambien tuve esas duda y lo que vi es que lo que debes hacer es colocar los text en orden, primero el text 1 y despues el text box, y en el orden que los vayas colocando.. (asi ami me funciona)

Espero que te riva..

Salu2

Ranslsad

[vivachapas]

el orden no es lo mas importante... si te fijas hay una funcion tabindex... le pones 0 donde queres q sea el foco cuando se inicie el programa 1 al q queres q le siga cuando presiones Tab y asi...
pero el quiere pasarlos con shift segun entiendo...
estuve probando pero no se cual seria el keyascii de shift... tmp se xq lo queres hacer con shift mejor deja Tab q te va a traer menos problemas...
con respecto a q se seleccione como ya te dije puedes usar el sendkeys

[kakinets]

me puedes decir cual la ascii del tab??

[Xerok1!]

el ascii de la tecla tab es "9",pero puedes hacer esto::

crea 2 textbox,y escribe todo el rato teclas al azar..cambiara de casilla por cada tecla:

Código [Seleccionar] Expandir

Private Sub Text1_Change()
Text2.SetFocus
End Sub

Private Sub Text2_Change()
SendKeys "{tab}"
End Sub


como puedes ver no necesitas el ascii del tab,solo con esribir eso ya   vale..(en el code se hace de 2 formas distintas..puedes usar para los 2 la misma..)

un saludo,espero q les sirviera algo de ayuda...

[kakinets]

no anda no se que le agarro!!

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End If

End Sub

ahi esta el codigo q uso