vb@rchiv · Tipps & Tricks · Hintergrundgrafik(Bild) in einer Zelle eines DatagridView

Rubrik: Controls · DataGrid & DataGridView | VB-Versionen: VB2022

18.02.25

Hintergrundgrafik(Bild) in einer Zelle eines DatagridView Eine Funktion wird gezeigt, die das Zeichnen eines Bildes als Hintergrundbild in einer Zelle des DatagridViews realisiert.
Autor: Dietrich Herrmann	Bewertung:	Views: 723
ohne Homepage	System: Win7, Win8, Win10, Win11	kein Beispielprojekt

Wenn man keine ImageColumn im Datagridview verwenden will, kann man mit Hilfe der folgenden Funktion ein Hintergrundbild nur in eine einzelne Zelle oder alle Zellen einer ganzen Spalten zeichnen. Ein vorhandener Wert in der Zelle wird auf das Bild gezeichnet.

Hier die Funktion:

''' <summary>
''' Zeichnen eines Bilds als Background von DGV-Zellen einer Spalte
''' </summary>
''' <param name="e">sender im Cellpainting</param>
''' <param name="cols">ein Feld der Indizes von Columns</param>
''' <param name="bgImg">das Image</param>
''' <param name="pos">die Position des Images in der Zelle</param>
''' <param name="transC">die transparente Farbe im Image</param>
''' <remarks>ist anzuwenden im Ereignis CellPainting eines DatagridViews
''' Positionen: Z.. zentriert, r.. rechts, f.. Zelle gefüllt</remarks>
Public Sub DrawBGImgInDGVCell(e As Object, cols() As Short,
  bgImg As Bitmap, Optional pos As String = "z",
  Optional transC As Color = Nothing)
 
  Dim idx As Short = e.columnIndex
 
  If e.RowIndex <> -1 AndAlso (cols.IndexOf(cols, idx) >= 0) Then
    If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
      If Not IsNothing(transC) Then bgImg.MakeTransparent(transC)
 
      Dim r As Rectangle
 
      If pos = "z" Then
        ' Grafik zentriert
        r = New Rectangle(New Point((e.CellBounds.Width - bgImg.Width) / 2 + e.CellBounds.X,
          e.CellBounds.Y), bgImg.Size)
 
      ElseIf pos = "r" Then
        ' Grafik rechts
        r = New Rectangle(New Point(e.CellBounds.Right - bgImg.Width,
          e.CellBounds.Y), New Size(bgImg.Size.Width, bgImg.Height))
 
      ElseIf pos = "f" Then
        ' Grafik füllt Zelle aus
        r = New Rectangle(e.cellbounds.x, e.cellbounds.y, e.cellbounds.width, e.cellbounds.height)
      End If
      e.Graphics.DrawImage(bgImg, r)
    End If
 
    If Not e.Handled Then
      ' den Zellinhalt über der Grafik zeigen
      e.Handled = True
      e.PaintContent(e.CellBounds)
    End If
  End If
End Sub

Die Anwendung erfolgt im CellPainting Ereignis, bspw. (alle Zellen von 2 Spalten):

Private Sub myDGV_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) _
  Handles myDGV.CellPainting
 
  DrawBGImgInDGVCell(e, {8, 17}, imgBGC, "f", Color.White)
End Sub

mit:

myDGV: das DatagridView
{8, 17}: die Spaltenindizes
imgBGC: das gewünschte Image
"f": Image wird gefüllt in die Zelle gezeichnet
Color.White: die Farbe im Image, die transparent sein soll