problema en recorrido constante

[guillebomtrasmiti]

hola amigos, tengo 8 textbox...y quiero que al pulsar enter se salte de textbox en textbox, en principio lo he conseguido, pero el problema es que cada vez que salto de uno a otro he puesto unas operaciones que no suceden en el textbox que necesito, si no que suceden todo el rato, imaginaros que quiero multiplicar el textbox 6 por el 7 y poner el resultado en el 8 pues bien en cuanto estoy en el primer textbox y pulso enter, trata de hacer el cálculo anque en esos textbox todavía no hay datos...os pongo el código gracias por vuestra ayuda...

aquí hago el salto con intro
'Proporciona que pueda cambiar de textbox en textbox pulsando enter
Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
'Try
' ¿Se ha pulsado la tecla Enter?
If e.KeyData <> Keys.Enter Then
MyBase.OnKeyDown(e)
Return
End If
' Desplazar el foco entre los distintos controles
'mediante la tecla Return. El código está basado en un
'ejemplo de Francesco Balena.
'
'Iniciar todos los controles seleccionados actualmente.
Dim ctrl As Control = Me.ActiveControl

Dim b As Boolean = False
Do
' Obtener el siguiente control hacia delante en el
' orden de tabulación.
ctrl = Me.GetNextControl(ctrl, True)
restadto()


' GetNextControl(ctrl, False) puede devolver Nothing si
' es el primer control.
If (ctrl IsNot Nothing) AndAlso (ctrl.CanFocus) AndAlso (ctrl.TabStop) Then
' Si el control puede recibir el foco, se lo doy.
ctrl.Focus()
b = True
End If
Loop While b = False

MyBase.OnKeyDown(e)
'Catch
'End Try
End Sub


aquí el cálculo que repite sin parar
public sub restardto()
If RadioSinDto.Checked Then
multiplicatextboxunidades()
'calculo precio por el total de unidades compradas para dar el precio de la línea total y doy formato
Dim total As Decimal = 0
total = CDec(CStr((Val(TextUnd.Text) * Val(TextPrecio.Text))))
TextTotalLinea.Text = Format(Format(total, "#,##0.00"))

'calculo el precio * las unidades del formato del producto
Dim totalund As String
totalund = TextTotaluco.Text
MessageBox.Show(TextTotaluco.Text)
'Dim total2 As Decimal = 0
'total2 = CDec(((Val(TextPrecio.Text) / Val(Textuncomp.Text))))
'TextPUnid.Text = Format(Format(total2, "#,##0.00"))

'aquí calculo la cantidad de producto comprado ejemplo
TextTotaluco.Text = CStr((Val(Textuncomp.Text) * Val(TextTUnid.Text)))

End If
end sub

[Ka0stj]

Guille te comento, de la forma que estas tratando de hacerlo no es lo correcto, los textbox traen eventos, en tu caso lo puedes solucionar con el evento KeyPress.

Por ejemplo supongamos que tienes 3 textbox, tb1, tb2 y tb3. En tb3 quieres poner la multiplicación de tb1 x tb2.

Private Sub tb1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tb1.KeyPress

If e.KeyChar = Convert.ToChar(Keys.Enter) Then
tb2.Focus()
End If

End Sub

Private Sub tb2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tb2.KeyPress

If e.KeyChar = Convert.ToChar(Keys.Enter) Then
'-- Validas que tb1 y tb2 tengan valor
If Not String.IsNullOrEmpty(tb1.Text) And Not String.IsNullOrEmpty(tb2.Text) Then
Me.tb3.Text = tb1.Text * tb2.Text
tb3.Focus()
Else
MessageBox.Show("tb1 y tb2 son campos obligatorios. ", "Error")
End If

End If

End Sub

Saludos!

[Aquaventus]

Hola Guille! creo que eso lo podrias controlar mejor con el evento KeyPress... Te pongo un ejemplo en c# ya tu lo pasas porque me da flojeritis pasarlo a vb.net XD :

Para que pases de TextBox en TextBox

Código c#:

private void txtPaterno_KeyPress(object sender, KeyPressEventArgs e)
        {
            //Si la Tecla es Enter
            if (e.KeyChar == Convert.ToChar(Keys.Enter))
            {
                    txtSiguienteTextBox.Focus();
             }
}
 

Para que calcules en tu ultimo textBox :

Código c#:

private void txtPaterno_KeyPress(object sender, KeyPressEventArgs e)
        {
            //Si la Tecla es Enter
            if (e.KeyChar == Convert.ToChar(Keys.Enter))
            {
                    //Aqui ya pones el codigo que deseas que realize
                    //Como el calculo que pides
             }
}
 

Espero te haya servido. Saludos! .

[Aquaventus]

jajaja para cuando escribí, no vi la respuesta de Ka0stj, Nuestras respuestas son similares nada mas que en lenguajes distintos XD. Guiate de cualquiera. SAludos!.

[guillebomtrasmiti]

lo he intentado así, pero tampoco, en cada pulsación de intro ejecuta todo el código y solo quiero que lo ejecute cuando esté en un textbox concreto

[guillebomtrasmiti]

vale
vale
vale
arreglado..................estaba poniendolo al revés...gracias amigos sois los mejores del mundo besos y abrazos a todossssssssssssssssssssssssssssssssssssssssssssss ssss

[Aquaventus]

en el evento key press de tu ultimo textox pon el metodo de calculo!, en los otros 2 eventos donde ingresas los valores a calcular solo le colocas el TextBoxSiguiente.Focus().

NO OLVIDES COMENTAR LOS CODIGOS DEL EVENTO KEYDOWN PARA QUE FUNCIONE PORQUE SINO TE VA A SEGUIR DANDO EL MISMO RESULTADO :).

[guillebomtrasmiti]

soisssss....la caña del planeta net....joer gracias otra vez en cuanto lo termine pongo el código

[guillebomtrasmiti]

AHIIIII VAAAA...Funcionando a la perfección...gracias

Private Sub TextUnd_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextUnd.KeyPress

If e.KeyChar = Convert.ToChar(Keys.Enter) Then
TextFComp.Focus()
End If

End Sub

Private Sub TextFComp_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextFComp.KeyPress

If e.KeyChar = Convert.ToChar(Keys.Enter) Then
'-- Validas que tb1 y tb2 tengan valor
If Not String.IsNullOrEmpty(TextUnd.Text) And Not String.IsNullOrEmpty(TextFComp.Text) Then
Me.TextTUnid.Text = CStr(CDbl(TextUnd.Text) * CDbl(TextFComp.Text))
TextTUnid.Focus()
Else
MessageBox.Show("Debe cubrir UNIDADES y F.COMPRA campos obligatorios. ", "Error")
End If

End If

End Sub

[abel_c_b]

Gracias por el code