none
organizar columna de imágenes en una sola fila usando datagridview RRS feed

  • Pregunta

  • Hola amigos, estoy realizando una pequeña aplicación punto de venta para la tienda de helados de mi hermana.

    Lo que quiero es que se maneje con una pantalla táctil, a lo que he cargado todo por medio de imágenes. Las imágenes

    temporalmente están en una carpeta y los nombres de las imágenes son los mismos de su correspondiente tabla de sql.

    La cuestión es que ya realizo la carga de las imágenes en el dgv, pero estas salen en una sola columna, y quiero que salga la mismo información pero en una sola fila, así, cuando se elija la opción, cargue las siguientes opciones en otra grilla de imágenes. La dvg es la gruis oscuro, el codigo que utilizo para traer las imagenes es:

     Conexión1.ConnectionString = connString
                Conexión1.Open()
                Dim tabla As New DataTable
                Dim pic As New PictureBox

                ds = New DataSet
                Dim table As DataTableCollection = ds.Tables

                adapter = New SqlDataAdapter("SELECT dscProducto FROM Productos", Conexión1)

                adapter.Fill(ds, "Productos")
                tabla = ds.Tables("Productos")


                Dim tat As New DataTable
                tat.Columns.Add("Descripcion", GetType(System.String))
                tat.Columns.Add("Imagen", GetType(System.Drawing.Image))

                Dim dr As DataRow ' = tabla.Rows(0)

                For x As Integer = 0 To tabla.Rows.Count - 1

                    dr = tat.NewRow()
                    dr("Descripcion") = tabla.Rows(x)(0)

                    Dim destino As New Bitmap(90, Me.DGV.RowTemplate.Height - 5)
                    pic.Image = Image.FromFile(ruta & "\" & dr("Descripcion").ToString & ".jpg")
                    Dim Ima_origen As Image = pic.Image

                    Dim g As Graphics
                    g = Graphics.FromImage(destino)
                                g.DrawImage(Ima_origen, New Rectangle(0, 0, destino.Width, destino.Height), _
                                0, 0, Ima_origen.Width, Ima_origen.Height, GraphicsUnit.Pixel)
                    dr("Imagen") = destino
                    g.Dispose()

                    tat.Rows.Add(dr)
                    tat.Dispose()
                    pic.Dispose()
                Next

                DGV.DataSource = tat
                DGV.Columns(0).Visible = False
                DGV.Refresh()
                'Liberamos
                ds.Dispose()
                adapter.Dispose()
                Conexión1.Close() 'Cerramos

     
    • Cambiado Enrique M. Montejo viernes, 31 de julio de 2015 9:13 Pregunta relacionada con controles de Windows Forms.
    martes, 28 de julio de 2015 18:36