Imagenes en ListView

[juandedios]

Saludos:

Esto en VB 2005, estoy cambiando los DataGridView por ListView y todo esta bien, pero quiero poner una imagen al principio de cada fila.

La cosa es que para llenar los listview uso una funcion, pero donde pongo la linea que supuestamente pone la imagen al principio de la fila, solo me lo hace para la primera fila y no se como ponerlo para todos, aqui les pongo la funcion:

Código:

Public Sub LlenarListView(ByVal StrSql As String, ByVal Table As String, _
                              ByVal LSTV As ListView, ByVal IMG As ImageList)
        cmdNem = New MySqlCommand(StrSql, cnNem)
        daNem = New MySqlDataAdapter
        dsNem = New DataSet

        daNem.SelectCommand = cmdNem
        daNem.Fill(dsNem, Table)

        For c As Integer = 0 To dsNem.Tables(Table).Columns.Count - 1
            LSTV.Columns.Add(dsNem.Tables(Table).Columns(c).Caption)
        Next

        LSTV.SmallImageList = IMG

        With dsNem.Tables(Table)
            For f As Integer = 0 To .Rows.Count - 1
                Dim dato As New ListViewItem(.Rows(f).Item(0).ToString)
                ' recorrer las columnas
                For c As Integer = 1 To .Columns.Count - 1
                    dato.SubItems.Add(.Rows(f).Item(c).ToString())
                Next
                LSTV.Items.Add(dato)
                LSTV.Items(0).ImageIndex = 0
            Next
        End With
    End Sub

[juandedios]

Revisando mi codigo y analizandolo, despues de tomarme una buena taza de cafe, encontre la solucion a mi pregunta:

Código:

Public Sub LlenarListView(ByVal StrSql As String, ByVal Table As String, _
                              ByVal LSTV As ListView, ByVal IMG As ImageList)
        cmdNem = New MySqlCommand(StrSql, cnNem)
        daNem = New MySqlDataAdapter
        dsNem = New DataSet

        daNem.SelectCommand = cmdNem
        daNem.Fill(dsNem, Table)

        For c As Integer = 0 To dsNem.Tables(Table).Columns.Count - 2
            LSTV.Columns.Add(dsNem.Tables(Table).Columns(c).Caption)
        Next

        With dsNem.Tables(Table)
            For f As Integer = 0 To .Rows.Count - 1
                Dim dato As New ListViewItem(.Rows(f).Item(0).ToString)
                dato.ImageIndex = 0
                ' recorrer las columnas
                For c As Integer = 1 To .Columns.Count - 2
                    dato.SubItems.Add(.Rows(f).Item(c).ToString())
                Next
                LSTV.Items.Add(dato)
            Next
        End With
End Sub

Puse

Código:

dato.ImageIndex = 0

Despues de

Código:

 Dim dato As New ListViewItem(.Rows(f).Item(0).ToString)

y solucionado