none
Botón para controlar varias unidades en un dataGridView RRS feed

  • Pregunta

  • Hola buenas

    Tengo un control de dataGridView en donde me parece en la cabecera del dataGridView

     

    UNIDAD           DESCRIPCION         PRECIO           TOTAL

      1

      14

      10

     

     

    Tengo un botón que se llama  Auto ON  y en el quiero que al pulsar este botón pueda controlar

    Las unidades deseadas de varias unidades ejemp. 10 y al pulsar otra vez  este  botón Auto ON  que vuelva a su estado normal de introducir unidades de una sola cantidad ejemp..  1

     

     

    También tengo varios botones numéricos del 0 al 9 para colocar unidades deseadas

     

    Si podéis decir como puedo hacerlo o un ejemplo os lo agradecería

     

    Gracias


    Matiasg
    • Cambiado Enrique M. Montejo martes, 16 de octubre de 2012 18:01 Controles de windows forms (De:Lenguaje VB.NET)
    sábado, 14 de enero de 2012 21:17

Todas las respuestas

  • no entendi que relacion tiene el grid con estos botones de auto ony el estado normal, que implciaria este estado ?

    o apuntas a que al estar en auto on se pueda editar el grid y al no estarlo se ponga en readonly

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    sábado, 14 de enero de 2012 22:44
  • hola leandro la relacion no es ninguna solo lo quiero es introducir en el grid las unidades que deseo, ó es 2 unidades ó puede ser 24 unidades y creo que eso se puede conseguir con este boton Auto ON. El Auto On es un nombre que le puesto yo, o se podría poner botón Unidades dobles algo parecido. yo tengo algo hecho lo que pasa es que me introduce un 0 a la izquierda, te muestro la fuente de codigo.

    ¿o como puedo hacerlo mejor Leandro?

    Private Sub BotonesNumericos(ByVal sender As Object, ByVal e As EventArgs) Handles butReset.Click, btnCantidad.Click

     

    If sender Is Me.butReset Then                                    'BOTON RESET  

               

                cant = "0"

                Dim i As Integer = grLineaPedidos.Rows.Count - 1

               

                'Y ponemos la cantidad pedida

                grLineaPedidos.Item("cantida", i - 1).Value = "1"

               

                'SELECCION

                Me.Panel60.BackColor = Color.Orange

          

     ElseIf sender Is Me.btnCantidad Then                      'BOTON CANTIDAD

           

                'Botón Auto ON

                If sender Is btnCantidad Then

                  

                   'Cambio modo de actualizar la cantidad.

                    'Si está en "Auto ON", la cantidad será de un dígito.

                    'Sino, se podrá inidicar una cantidad mayor

                   

                  If btnCantidad.Text = "Auto ON" Then

                        btnCantidad.Text = "Auto OF"

                        ToolTip1.RemoveAll()

                        Me.Panel59.BackColor = Color.Orange

                    Else

                        btnCantidad.Text = "Auto ON"

                        btnCero.Enabled = False

                        ToolTip1.SetToolTip(btnCantidad, "Auto ON")

                        If cant = "0" Then cant = "1"

                        Me.Panel59.BackColor = Color.White   '

                    End If

                End If

     

     End Sub

     


    Matiasg
    domingo, 15 de enero de 2012 17:26
  • se me habia olvidado el boton numerico, te lo muestro todo

    Private Sub BotonesNumericos(ByVal sender As Object, ByVal e As EventArgs) Handles butReset.Click, btnCantidad.Click

     

    If sender Is Me.butReset Then                                    'BOTON RESET

               

                cant = "0"

                Dim i As Integer = grLineaPedidos.Rows.Count - 1

               

                'Y ponemos la cantidad pedida

                grLineaPedidos.Item("cantida", i - 1).Value = "1"

               

                'SELECCION

                Me.Panel60.BackColor = Color.Orange

          

     ElseIf sender Is Me.btnCantidad Then                              'BOTON CANTIDAD

           

                'Botón Auto ON

                If sender Is btnCantidad Then

                  

                   'Cambio modo de actualizar la cantidad.

                    'Si está en "Auto ON", la cantidad será de un dígito.

                    'Sino, se podrá inidicar una cantidad mayor

                   

                  If btnCantidad.Text = "Auto ON" Then

                        btnCantidad.Text = "Auto OF"

                        ToolTip1.RemoveAll()

                        Me.Panel59.BackColor = Color.Orange

                    Else

                        btnCantidad.Text = "Auto ON"

                        btnCero.Enabled = False

                        ToolTip1.SetToolTip(btnCantidad, "Auto ON")

                        If cant = "0" Then cant = "1"

                        Me.Panel59.BackColor = Color.White   '

                    End If

                End If

     

     End Sub

    Private Sub PulsarCantidad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUno.Click, btnDos.Click, _

       btnTres.Click, btnCuatro.Click, btnCinco.Click, btnSeis.Click, btnSiete.Click, btnOcho.Click, _

       btnNueve.Click, btnCero.Click

     

    If sender Is Me.btnUno Then

                valor = 1

                cantidad = valor

                totales = cantidad * precio1

     

                    'Variables

                    Dim butSender As Button = CType(sender, Control)

     

                    'Actualizo cantidad

                    If btnCantidad.Text = "Auto OF" Then

                        totales = cant * precio1

                        cant &= butSender.Text

                        grLineaPedidos.Item("cantida", i - 1).Value = cant

                        grLineaPedidos.Item("subtotal", i - 1).Value = totales

                        Return

                        'Impido asignar ceros a la izquierda

                        grLineaPedidos.Item("cantida", i - 1).Value = cant.Length > 1

                        Mid(cant, 1, 1) = "0"

                        cant = Mid(cant, 2)

                    End If

     End Sub

     


    Matiasg
    domingo, 15 de enero de 2012 17:32
  • sigo sin encontrar una relacion de estos botones con el datagridview

    no veo que estos botones afecten en nada al grid

     

    ademas veo que haces

    ElseIf sender Is Me.btnCantidad Then

    y luego

    If sender Is btnCantidad Then

    para que preguntas dos veces si con la primer alcanzaba

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    domingo, 15 de enero de 2012 17:49
  • sí aleandro, lo que quiero es introducir al grid la cantidad ó las unidades deseada.

    gracias

    saludo


    Matiasg
    domingo, 15 de enero de 2012 18:00