[VB.NET] Problema campo immagine con Datagridview

[jackk87]

Buonasera a tutti,
ho creato una datagridview con un'ultimo capo immagine

dichiarazioni generali del form:

Dim bds As New BindingSource
    Dim dts As New DataSet

procedura per riempire la DGW con i clienti:

Dim dtp As OleDb.OleDbDataAdapter 'crea il dataadapter
        Dim sql As String

        'Query
        sql = "SELECT * " & _
                  "FROM cliente ORDER BY cognome"

        'Dataset
        dts = New DataSet("cliente")
        'DataAdapter
        dtp = New OleDb.OleDbDataAdapter(sql, Cn)
        dtp.Fill(dts, "cliente")
        'BindingSource
        bds = New BindingSource()
        bds.DataSource = dts
        bds.DataMember = "cliente"

        'DataGridView
        dgwClienti.DataSource = bds

        dgwClienti.Columns.Item(0).Visible = False
        dgwClienti.Columns.Item(1).HeaderText = "Nome"
        dgwClienti.Columns.Item(1).Width = 80
        dgwClienti.Columns.Item(2).HeaderText = "Cognome"
        dgwClienti.Columns.Item(2).Width = 160
        dgwClienti.Columns.Item(3).HeaderText = "Indrizzo"
        dgwClienti.Columns.Item(3).Width = 180
        dgwClienti.Columns.Item(4).HeaderText = "Cap"
        dgwClienti.Columns.Item(4).Width = 50
        dgwClienti.Columns.Item(5).HeaderText = "Città"
        dgwClienti.Columns.Item(5).Width = 80
        dgwClienti.Columns.Item(6).HeaderText = "Provincia"
        dgwClienti.Columns.Item(6).Width = 60
        dgwClienti.Columns.Item(7).HeaderText = "Partita IVA"
        dgwClienti.Columns.Item(7).Width = 80
        dgwClienti.Columns.Item(8).HeaderText = "Codice Fiscale"
        dgwClienti.Columns.Item(8).Width = 120
        dgwClienti.Columns.Item(9).Visible = False

        dgwClienti.AllowUserToResizeRows = False
        
        Dim nuovacolonna As New DataGridViewImageColumn
        nuovacolonna = New DataGridViewImageColumn()
        nuovacolonna.Image = ilLivello.Images(0)
        nuovacolonna.HeaderText = "Tipo"
        nuovacolonna.Width = 51
        dgwClienti.Columns.Add(nuovacolonna)

        For Each Row As DataGridViewRow In dgwClienti.Rows
            Row.Cells(10).Value = ilLivello.Images(CInt(Row.Cells(9).Value))
        Next

ilLivello è un'imagelist dove ci sono 3 immagini e il campo numero 9 della DGW contiene il livello che può assumere massimo 3 valori (0,1,2) che sarebbero gli indici delle immagini contenute nell'imagelist.

mi si presenta questo errore:


allora ho inserito una nuova riga di codice:

Private Sub dgwClienti_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgwClienti.CellClick
        MsgBox(dgwClienti.CurrentCell.ColumnIndex & " - " & dgwClienti.CurrentCell.RowIndex)
    End Sub

così cliccando sul campo immagine la msgbox mi restituisce che ha l'indice della colonna=0 invece dovrebbe essere 10.

se questo codice lo inserisco sull'evento del click di un pulsante:

Dim nuovacolonna As New DataGridViewImageColumn
        nuovacolonna = New DataGridViewImageColumn()
        nuovacolonna.Image = ilLivello.Images(0)
        nuovacolonna.HeaderText = "Tipo"
        nuovacolonna.Width = 51
        dgwClienti.Columns.Add(nuovacolonna)

        For Each Row As DataGridViewRow In dgwClienti.Rows
            Row.Cells(10).Value = ilLivello.Images(CInt(Row.Cells(9).Value))
        Next

quindi in pratica se la colonna immagine la inserisco dopo tramite un pulsante la msgbox mi restituisce che ha come indice 10 quindi funziona tutto correttamente ed il risultato è:



Ma a me servirebbe il primo caso cioè di creare il campo immagine quando compilo la DGW.

La cosa strana se questa parte di codice la modifico così e la carico insieme alla DGW il campo immagine assume index 10 :

For Each Row As DataGridViewRow In dgwClienti.Rows
            Row.Cells(0).Value = ilLivello.Images(CInt(Row.Cells(9).Value))
        Next

Spero che qualcuno mi aiuti a capire questo strano comportamento della dgw grazie in anticipo a tutti

[jackk87]

up