none
Botones Gestor Restaurante RRS feed

  • Pregunta

  • Buenas Noches a Todos

    Tengo un pequeño estancamiento con un gestor de resturante

    1. Sucede que quiero crear un formulario donde ingreso el producto, Precio y la imagen (mas que todo un platillo o bebida.. etc.) hasta aquí estoy bien

    2. Que al guardarlo, me cree automáticamente un botón que al presionarlo en el formulario de factura, me ingrese el precio en la factura del cliente.

    Estoy usando un datagridview donde recojo la imagen y el nombre del producto, pero no puedo tomar el precio.

    He realizado este código pero como menciono, estoy estancado:

      Public Sub Botones()
            Dim i As Integer = 0
            While i < Me.ItemsrvcDataGridView.RowCount  'aqui recoge los datos dentro del datagridview para convertirlos en botones
                Dim CButton = New System.Windows.Forms.Button()

                CButton.Location = New System.Drawing.Point(3, 3)

                CButton.Size = New System.Drawing.Size(200, 200)
                CButton.TabIndex = 1
                CButton.TextAlign = System.Drawing.ContentAlignment.BottomCenter
                CButton.ForeColor = Color.Black
                CButton.BackgroundImage = Me.ItemsrvcDataGridView.Item(5, i).FormattedValue
                CButton.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
                CButton.Text = Me.ItemsrvcDataGridView.Item(0, i).Value
                CButton.UseVisualStyleBackColor = True
                FlowLayoutPanel1.Controls.Add(CButton)

                i += 1
                AddHandler CButton.Click, AddressOf miEvento
            End While


        End Sub
        Private Sub miEvento(ByVal sender As System.Object, ByVal e As EventArgs) 'Este es el evento de CLICK donde tiene que ingresar el precio del platillo o producto
            MessageBox.Show("Elemento ya existe", "Guardando")
            Label1.Text = "HOLA"

        End Sub

    Desde ya, muchas gracias por su paciencia y muy apreciada ayuda.

    martes, 4 de marzo de 2014 3:25

Respuestas

  • Sucede que ya resolví mi dilema, usé DirectCast(sender, Button)

    Se lo envié a un Label, este filtra dentro de un datagridview y escoge el producto con su nombre, a partir de ahí puedo enviar lo que desee que se encuentre dentro del datagridview, observenlo:

    Public Sub Botones()
            Dim i As Integer = 0
            While i < Me.ItemsrvcDataGridView.RowCount
                Dim CButton = New System.Windows.Forms.Button()

                CButton.Location = New System.Drawing.Point(3, 3)

                CButton.Size = New System.Drawing.Size(200, 200)
                CButton.TabIndex = 1
                CButton.TextAlign = System.Drawing.ContentAlignment.BottomCenter
                CButton.ForeColor = Color.Black

                CButton.BackgroundImage = Me.ItemsrvcDataGridView.Item(3, i).FormattedValue
                CButton.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
                CButton.ImageAlign = ContentAlignment.TopCenter
                CButton.TextAlign = ContentAlignment.BottomCenter
                CButton.Text = Me.ItemsrvcDataGridView.Item(0, i).Value
                CButton.UseVisualStyleBackColor = True
                FlowLayoutPanel1.Controls.Add(CButton)

                i += 1

                AddHandler CButton.Click, AddressOf miEvento
                AddHandler CButton.MouseEnter, AddressOf miEvento2


            End While


        End Sub
        Private Sub miEvento(ByVal sender As System.Object, ByVal e As EventArgs)
            Label1.Text = DirectCast(sender, Button).Text  'Este envia el valor del texto del boton donde deseemos,  de ahí podemos hacer cualquier cosa
            ProductoTextBox.Text = ItemsrvcDataGridView.Item(0, 0).Value
            PrecioTextBox.Text = ItemsrvcDataGridView.Item(1, 0).Value
        End Sub

        Private Sub miEvento2(ByVal sender As System.Object, ByVal e As EventArgs)

            Label2.Text = DirectCast(sender, Button).Text
            ItemsrvcBindingSource.Filter = "Nombre LIKE '" & Label2.Text & "%'" 'Filtrado
        End Sub

    • Marcado como respuesta Marcos Montoya domingo, 9 de marzo de 2014 2:26
    domingo, 9 de marzo de 2014 2:06