manejar cambios en un formulario usando teclas funcion

[slaxsna]

Iniciado por future89

holas,
mi problema es el siguiente, como estoy recien en esto de programar en visual
nose como implementar mi ventana de ventas, nose como continuar la venta ya sea ingresando el monto, y siquiero volver hacias atras para agregar mas productos, sumar el total de los precio en el textbox de total, en fin muchas cosas de esta pantalla

luego apreto F9 y oculto el textbox y el label de abajo y pongo visible el texbox paara el monto.
sera lo correcto????? y como podria volver atrás???

Bueno amigo si lo que quieres es regresar podrias poner otro evento en el cual te vuelva a cerrar el textbox de cobrar por ejemplo el ESC puede ser buena opcion para cancelar el cobro y seguir con tu lista de productos añadidos.

Otra opción y que yo uso es que el cobro sea en otro Form y por ejemplo si voy a realizar el cobro presiono la tecla F12 y si requiero añadir mas productos solo cierro ese form y listo.

Tambien dices que no sabes como cobrar la venta no? y sumar el total de los productos okey te explicare:

Ya teniendo tu listview con productos y listo para realizar el cobro puedes hacer un for así:

Código vb:

For s = 0 To listview1.Items.Count - 1
                Subtotal = CDbl(Subtotal) +CDbl(listview1.Items(s).SubItems(2).Text)
            Next
            Me.TextBox1.Text = "$" & Format(Subtotal, "0.00")
 

Donde TextBox1 sera el nombre del textbox del Total..

Si estas poniendo el textbox de monto, entonces te vendria bien poner ya sea un Label u otro textbox para visualizar la feria que le regresaras al cliente, entonces lo puedes hacer así:

Te voi a pasar como yo lo tengo en un sistema

Código vb:

Private Sub RealizarOperacion()
        Try
            txtRecibido.Text = Format(CDbl(txtRecibido.Text), "#,###,###,##0.00####")
 
            Dim cambio As Double
            Dim recibido As Double = CDbl(txtRecibido.Text)
            Dim total As Double = CDbl(Subtotal)
 
            If recibido >= total Then
                cambio = CDbl(recibido) - CDbl(total)
                txtCambio.Text = Format(CDbl(cambio), "#,###,###,##0.00####")
                lblNota.ResetText()
            Else
                lblNota.Text = "El efectivo ingresado es menor al monto a pagar. Verifique"
                txtCambio.Text = "0.00"
                txtRecibido.Focus()
            End If
        Catch
            txtRecibido.Focus()
            txtRecibido.Clear()
        End Try
    End Sub
 

Bueno cualquier otra duda ps ahí avisas, espero poder haberte ayudado si no pues me dices..

Saludos