CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Crear Procedimiento Keypress

(1/1)

Cajami:
Hola amigos del foro, bueno mi duda es la siguiente: Puedo crear procedimientos para varios controles, por ejemplo en un form tengo 3 textbox y creo un procedimiento para que cuando el cursos llegue al objeto se seleccione el texto si lo ubiece, bueno es es facil:

Private Sub Foco(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus
        CType(sender, TextBox).SelectAll()
        CType(sender, TextBox).Select()
    End Sub

Bueno eso es facil, es mencionar despues del Handles los textbox en este caso, ahora mi duda es que como puedo hacer para que en vez del evento GotFocus sea el evento KeyPress, lo he intentado y he llegado hasta aqui:

 Private Sub Pasar(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
        If e.KeyChar = ChrW(13) Then


        End If
    End Sub

Ahora el problema es que voy a poner dentro de ese If, la verdad quiero que al presionar Enter ps el cursos se mueva al control siguiente, asi como funciona presionando Tab, creo que los controles tienes la propiedad TabIndex, como hacerlo que se mueva sin necesidad de escribir el objeto a seguir, por ejemplo

TextBox2.Focus, ps eso lo quiero, asi como la tecla Tab, asi quiero al presionar el Enter, bueno espero me hayan comprendido, nos vemos

__________________________________________________________
El Estudio y el Amor no se juntan, pero hacen al ser humano completo

senzao18:
En el evento KeyDown del Formulario ponle


--- Código: Text ---  If e.KeyCode = Keys.Enter Then            SendKeys.Send("{TAB}") End If  Y pon la propiedad KeyPreview del Formulario a True


O bien


--- Código: Text --- Private Sub Pasar(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown  If e.KeyCode = Keys.Enter Then            SendKeys.Send("{TAB}") End If End Sub  
El que decisas usar no te quitara la tarea de acomodar el TabIndex de los controles que recibiran el FOCO. :comp:

Cajami:
Gracias Senzao18, como lo estaba pensando hacer ps no cubre todas mis expectativas, muchas gracias, nos vemos.


________________________________________________________
El Estio y El Amor no se juntan, pero hacen al ser humano completo

Navegación

[0] Índice de Mensajes