Hola a todos,
Tengo un ImageList y un ListView
En tiempo de ejecución agrego imágenes al ImageList y los items al ListView (todo esto desde una bd MySQL). Los items se muestran perfecto.
1. Cómo haría para mostrar las imágenes?
2. Cómo puedo obtener el valor y el índice de un elemento seleccionado?
Este es el código que tengo hasta ahora:
Código:
'Esto para cargar los idiomas y sus banderas
PrivateSub Cargar_Idiomas()
Try
Dim sql, bandera, idioma AsString
Dim ix AsInteger
sql = "SELECT p.imagen,i.Nombre,p.bandera FROM `Pais` p inner join Idiomas i on p.Id_Idioma=i.Id_Idioma WHERE(i.Vista = 1)"
ada = New MySqlDataAdapter(sql, Cnx)
ada.Fill(dts, "MisIdiomas")
'lleno el ImageList con las banderas y el listview con Idiomas
For ix = 0 To dts.Tables("MisIdiomas").Rows.Count - 1
Dim bytes() AsByte = CType(dts.Tables("MisIdiomas").Rows(ix)("imagen"), Byte())
Dim ms AsNew IO.MemoryStream(bytes)
Dim bm As System.Drawing.Bitmap
bm = New Bitmap(ms)
pcbImagen.Image = bm
bandera = dts.Tables("MisIdiomas").Rows(ix)("bandera").ToString
idioma = dts.Tables("MisIdiomas").Rows(ix)("Nombre")
lstvIdiomas.ArrangeIcons(ListViewAlignment.Left)
ImageList1.Images.Add(bandera, pcbImagen.Image)
lstvIdiomas.Items.Add(idioma)
Next
'MessageBox.Show(ImageList1.Images.Count - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If Cnx.State = ConnectionState.Open Then
Cnx.Close()
EndIf
EndTry
EndSub
Espero puedan ayudarme, tengo días en este tema
Gracias