Hallo Forum,
habe eine DGV mit Cellstyle.BackColor nach bestimmten Kriterium über cellFormating. Das funktioniert auch Super.
nun möchte ich statt BackColor eine ImageColumn mit Icon füllen.
Wer kann mir da weiterhelfen?
hier mal das CellFormating, die ImageColumn würde ich der DGV manuell hinzufügen, aber weiß gerade nicht wie ich die dann korrekt fülle mit entsprechendem Symbol (Icon) aus ImageList
habe eine DGV mit Cellstyle.BackColor nach bestimmten Kriterium über cellFormating. Das funktioniert auch Super.
nun möchte ich statt BackColor eine ImageColumn mit Icon füllen.
Wer kann mir da weiterhelfen?
hier mal das CellFormating, die ImageColumn würde ich der DGV manuell hinzufügen, aber weiß gerade nicht wie ich die dann korrekt fülle mit entsprechendem Symbol (Icon) aus ImageList
VB.NET-Quellcode
- Private Sub dgv_LV_Artikelbestand_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dgv_LV_Artikelbestand.CellFormatting
- If e.RowIndex = (-1) Then Return
- If e.Value Is DBNull.Value Then Return
- If e.Value Is Nothing Then Return
- If e.ColumnIndex = col_LV_AB_Gesamtanzahl.Index Then
- Dim idx_Zeile As Integer = e.RowIndex
- Dim idx_Meldeschwelle As Integer = col_LV_AB_Meldeschwelle.Index
- Dim cell_Meldeschwelle As DataGridViewCell = dgv_LV_Artikelbestand.Rows(idx_Zeile).Cells(idx_Meldeschwelle)
- Dim idx_Mindestbestand As Integer = col_LV_AB_Mindestbestand.Index
- Dim cell_Mindestbestand As DataGridViewCell = dgv_LV_Artikelbestand.Rows(idx_Zeile).Cells(idx_Mindestbestand)
- Dim val_Gesamtanzahl As Integer = CInt(e.Value)
- Dim val_Meldeschwelle As Integer = CInt(cell_Meldeschwelle.Value)
- Dim val_Mindestbestand As Integer = CInt(cell_Mindestbestand.Value)
- If val_Gesamtanzahl < val_Mindestbestand AndAlso val_Gesamtanzahl > val_Meldeschwelle Then
- e.CellStyle.BackColor = Color.Yellow 'statt BackColor ein Icon aus Imagelist
- e.CellStyle.ForeColor = Color.Black
- Return
- End If
- If val_Gesamtanzahl <= val_Meldeschwelle Then
- e.CellStyle.BackColor = Color.Red 'statt BackColor ein Icon aus Imagelist
- e.CellStyle.ForeColor = Color.White
- Return
- End If
- If val_Gesamtanzahl >= val_Mindestbestand Then
- e.CellStyle.BackColor = Color.Green 'statt BackColor ein Icon aus Imagelist
- e.CellStyle.ForeColor = Color.Black
- Return
- End If
- End If
- End Sub