Bilder in einer Custom DataGridView Column flackern

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Bilder in einer Custom DataGridView Column flackern

    Hallo zusammen!

    Ich habe mir für eine Datenbank eine Custom DataGridView Column gebaut, die mir auf Grundlage
    eines Standartpfads in Kombination eines Wertes eines Datenbankfeldes, Bilder in einem DataGridView
    anzeigt. Grundsätzlich funktioniert das gut und bei manchen (!) DataGridViews geht mein Ansatz auch
    ohne Probleme, aber bei machen(?!) DGV flackern die Bilder und der Scrollbalken verschwindet.

    Hier mein Code:

    Die Custom-Column:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    3. Public Class SLDGVDBImageColumn
    4. Inherits DataGridViewImageColumn
    6. Public Property pathTemplate As String
    7. Public Property placeHolder As String = "@"
    8. Public Property isAbsolute As Boolean = False
    10. Public Sub New()
    11. Dim c As SLDGVDBImageCell = New SLDGVDBImageCell()
    12. Me.CellTemplate = c
    13. Me.ReadOnly = True
    14. End Sub
    16. Public Overrides Function Clone() As Object
    17. Dim newObj As SLDGVDBImageColumn = MyBase.Clone()
    18. With newObj
    19. .pathTemplate = Me.pathTemplate
    20. .placeHolder = Me.placeHolder
    21. .isAbsolute = Me.isAbsolute
    22. End With
    23. Return newObj
    24. End Function
    27. End Class


    Die Custom-Cell:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports System.Drawing
    3. Imports System.IO
    5. Public Class SLDGVDBImageCell
    6. Inherits DataGridViewImageCell
    8. Public Sub New()
    9. End Sub
    11. Protected Overrides Function GetValue(ByVal rowIndex As Integer) As Object
    12. Dim myColumn As SLDGVDBImageColumn = CType(Me.DataGridView.Columns(Me.ColumnIndex), SLDGVDBImageColumn)
    13. Dim value As Image = Nothing
    14. If Not MyBase.GetValue(rowIndex) Is DBNull.Value Then
    15. If Not MyBase.GetValue(rowIndex).ToString = "" Then
    16. Dim pathString As String = Replace(myColumn.pathTemplate, myColumn.placeHolder, MyBase.GetValue(rowIndex).ToString)
    17. If Not myColumn.isAbsolute Then
    18. pathString = Application.StartupPath & "" & pathString
    19. End If
    20. If Not myColumn.pathTemplate = "" Then
    21. If My.Computer.FileSystem.FileExists(pathString) Then
    22. Me.ImageLayout = DataGridViewImageCellLayout.Zoom
    23. Using fs As New FileStream(pathString, FileMode.Open, FileAccess.Read)
    24. Dim img = Image.FromStream(fs)
    25. Return img
    26. End Using
    27. Else
    28. Me.ImageLayout = DataGridViewImageCellLayout.Normal
    29. End If
    30. End If
    31. End If
    32. End If
    33. Return value
    34. End Function
    35. End Class


    Habe ich irgendwo einen sehr groben Schnitzer oder will mich VB einfach nur
    manchmal ärgern? 8|

    Vielen Dank schon mal für eure Hilfe!

    hast du mal eine Debug-Ausgabe gemacht, wie oft GetObject aufgerufen wird? weil da jedesmal eine Datei zu laden - hmm, hmm....

    was ist eigentlich die Arbeitsweise dieser Column - soll die als Bild anzeigen, was als Dateipfad in den Daten vorliegt?
    Da würde eigentlich das Formatting-Event glaub reichen.
    Nur eben das Performance-Problem, dass man die Bitmaps iwie cachen müsste...

Facebook
Telefonspende