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

 Tecla Tab

(1/2) > >>

Vortice:
Camaradas como puedo hacer para q al momento de presionar la tecla Tab desde una caja de texto haga un calculo o haga lo que yo quiera.

Lo hago de la siguiente manera pero no funciona.

Solo funciona cuando presiono enter

También he probado con los otros eventos key….

Private Sub monto_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles monto.KeyDown
        If e.KeyCode = Keys.Tab Then
            e.Handled = True
            margen.Text = (monto.Text - costo.Text) / monto.Text
            utilidad.Text = monto.Text - costo.Text
            fecha_prox_paso_seg.Focus()
        End If
        If e.KeyCode = Keys.Enter Then
            e.Handled = True
            margen.Text = (monto.Text - costo.Text) / monto.Text
            utilidad.Text = monto.Text - costo.Text
            fecha_prox_paso_seg.Focus()
        End If
        If e.KeyCode = 9 Then
            MsgBox("resulto")
        End If
    End Sub

Abhero:
cuando presionas TAB se supone que el textbox pierde el foco. Por que no pones tu codigo en el evento LostFocus de ese textbox?

Recuerdos,
Ab.  :hola:

Vortice:
Camarada, No es lo que yo ando buscando, te explico, yo necesito q al momento de estar posicionado en cierta caja de texto y presiona la tecla Tab el foco pase a otra caja de texto y al mismo tiempo me arroje un calculo q se ve reflejado en 2 cajas de texto diferentes, eso.

espero haberme explicado mejor, y gracias por tu respuesta.

Saludos

Mollense:

--- Cita de: "Vortice" --- Camarada, No es lo que yo ando buscando, te explico, yo necesito q al momento de estar posicionado en cierta caja de texto y presiona la tecla Tab el foco pase a otra caja de texto y al mismo tiempo me arroje un calculo q se ve reflejado en 2 cajas de texto diferentes, eso.

espero haberme explicado mejor, y gracias por tu respuesta.

Saludos
--- Fin de la cita ---
Justamente. Abhero está en lo correcto. Cuando presiones TAB el evento LostFocus es desencadenado.

Vortice:
Camaradas, efectivamnete Abhero esta en lo correcto, pero al agregar mi codigo q tenia puesto en el evento KeyDown me da error.

asi esta

Private Sub monto_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles monto.LostFocus
        If e.KeyChar = ChrW(Keys.Tab) Then
            e.Handled = True
            margen.Text = (monto.Text - costo.Text) / monto.Text
            utilidad.Text = monto.Text - costo.Text
            fecha_prox_paso_seg.Focus()
        End If
        If e.KeyCode = Keys.Tab Then
            e.Handled = True
            margen.Text = (monto.Text - costo.Text) / monto.Text
            utilidad.Text = monto.Text - costo.Text
            fecha_prox_paso_seg.Focus()
        End If

    End Sub

me dice q ni KeyChars, ni KeyCode son miembros de System.EventArgs

entonces no funciona, a menos q este haciendo algo mal, lo cual es lo mas provable ustedes tienen mas manejo de VB.Net, pero brothers que sera lo malo q estoy haciendo....

De antemano gracias.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente