En realidad eso hago, la imagen va en un directorio y guardo la dirección completa.
No puse el codigo como lo hago ahora.
Código vb:
Ver originalPublic Sub cargarListaB(ByVal form As frmBuscador)
Dim cnn As OleDbConnection
Dim img As String
Dim con As Conexion
Dim ds As New DataSet
Dim tabla As DataTable
Dim column As DataColumn
Dim row As DataRow
Dim c As Integer = 0
'On Error GoTo rError
con = New Conexion
cnn = con.DBConectar
cnn.Open()
Dim qbusca As String = "select imagen, codigo, descripcion from materiales where id_tipo = " & form.cboTipo.SelectedValue & " Or id_marca = " & form.cboMarca.SelectedValue
ds = con.consulta(qbusca, cnn)
cnn.Close()
form.ImageList1.ImageSize = New Size(160, 160)
form.lvwListaB.Clear()
creaTablaB(form)
form.ImageList1.Dispose()
Dim oreg As New ListViewItem
For Each tabla In ds.Tables
For Each row In tabla.Rows
For Each column In tabla.Columns
img = row(0)
oreg = form.lvwListaB.Items.Add("Seleccionar")
oreg.SubItems.Add(img)
oreg.SubItems.Add(row(1))
oreg.SubItems.Add(row(2))
If Len(img) > 1 Then
form.ImageList1.Images.Add(Image.FromFile(img))
form.lvwListaB.StateImageList = form.ImageList1
oreg.StateImageIndex = c
c = c + 1
End If
Exit For
Next
Next row
Next tabla
rError:
rtaError = evaluarError(Err)
'de acuerdo a la respuesta, realiza...
Select Case rtaError
Case Finalizar
End
Case Reintentar
Resume
Case Ignorar
Resume Next
Case Cancelar
'no hace nada
End Select
End Sub
El problema esta cuando la lista supera los 15 itemas