قائمة الصور علي Listview - نسخة قابلة للطباعة

كود :
Private Sub retrieve()



        ListView1.Clear()

        Dim imglist As New ImageList

        imglist.ColorDepth = ColorDepth.Depth32Bit

        ListView1.LargeImageList = imglist

        ListView1.LargeImageList.ImageSize = New System.Drawing.Size(200, 200)

        ListView1.Sorting = SortOrder.Ascending

        Dim strsql As String = "select * from Images "

        Dim dt_images As New DataTable

        cmd.Connection = con

        cmd.CommandText = strsql

        adp.SelectCommand = cmd

        adp.Fill(ds)

        For Each dr As DataRow In ds.Tables(0).Rows

            Dim imb_buffer = CType(dr("pic"), Byte())

            Dim img_stream As New MemoryStream(imb_buffer, True)

            img_stream.Write(imb_buffer, 0, imb_buffer.Length)

            imglist.Images.Add(dr("Nu_File").ToString(), New Bitmap(img_stream))

            img_stream.Close()

            Dim lsvparent As New ListViewItem

            lsvparent.Text = dr("pic").ToString

            lsvparent.ImageKey = dr("Nu_File").ToString

            ListView1.Items.Add(lsvparent)

        Next

        

    End Sub