Código
Sub RECUPERAR() ImageList1 = New ImageList ImageList1.ImageSize = New Size(100, 100) ImageList1.ColorDepth = ColorDepth.Depth32Bit LF.LargeImageList = ImageList1 LF.Items.Clear() strSQL = "SELECT * FROM juegos" Dim daEmp As New OleDbDataAdapter(strSQL, strConexion) Dim dtEmp As New DataTable daEmp.Fill(dtEmp) For i = 0 To dtEmp.Rows.Count - 1 Dim img_buffer As Byte() img_buffer = DirectCast(dtEmp.Rows(i)("imagen"), Byte()) Dim img_stream As New MemoryStream(img_buffer, True) img_stream.Write(img_buffer, 0, img_buffer.Length) ImageList1.Images.Add(dtEmp.Rows(i)("id").ToString(), New Bitmap(img_stream)) img_stream.Close() Dim item As New ListViewItem(Strings.Left(dtEmp.Rows(i)("titulo").ToString, xTitulo)) item.SubItems.Add(dtEmp.Rows(i)("plataforma").ToString) item.ImageKey = dtEmp.Rows(i)("id").ToString LF.Items.Add(item) Next i End Sub
Pero me tira este error: