[cordava]

سلام عليكم لدي هذا الكود يقوم بقراءة الصور ك ImageList من قاعدة البيانات وعرضها علي 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