GDI+ stürzt ab bei Doublebufferd (Fehlermeldung = Exception, nicht mehr) und flackert ohne

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von us4711.

    GDI+ stürzt ab bei Doublebufferd (Fehlermeldung = Exception, nicht mehr) und flackert ohne

    Hallo an alle,

    ich versuche mich gerade mal testweise an einer eigenen Progressbar, und nach allem was ich so gelesen habe ist gdi+ natürlich die Wahl der Qual geworden,
    aber es flackert halt mal richtig heftig wenn ich was zeichne, also dachte ich mir klar hau den Doublebuffer rein, aber egal wie ich dies mache (ob im designer die Option setzen, oder per Code)
    stürzt bei aktivem DB mein Prog einfach ab... und die genialste Fehlermeldung der Welt "exception" erscheint...

    der Code mit dem ich zu zeichnen versuche:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class GradientPbar
    3. #Region "Deklaration"
    4. Private G As Graphics
    6. Private ValueVal As Double = 50
    7. Private MinVal As Double = 0
    8. Private MaxVal As Double = 100
    10. Private WithLabelVal As Boolean = False
    11. Private GlossyVal As Boolean = True
    12. Private RoundedVal As Boolean = True
    14. Private LabelColorVal As Color = Color.Black
    15. Private TopColorVal As Color = Color.DarkRed
    16. Private BotColorVal As Color = Color.Black
    17. Private GlossColorVal As Color = Color.White
    19. Dim lgbbrush As LinearGradientBrush
    21. #End Region
    23. Public Property Value As Double
    24. Get
    25. Return ValueVal
    26. End Get
    27. Set(value As Double)
    28. Me.ValueVal = value
    29. Me.Invalidate()
    30. End Set
    31. End Property
    33. Public Property Minimum As Double
    34. Get
    35. Return Me.MinVal
    36. End Get
    37. Set(value As Double)
    38. Me.MinVal = value
    39. End Set
    40. End Property
    42. Public Property Maximum As Double
    43. Get
    44. Return Me.MaxVal
    45. End Get
    46. Set(value As Double)
    47. Me.MaxVal = value
    48. End Set
    49. End Property
    51. Protected Overrides Sub OnResize(ByVal e As EventArgs)
    52. Me.Invalidate()
    54. End Sub
    56. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    57. G = e.Graphics
    59. 'With G
    60. ' '.CompositingQuality = CompositingQuality.HighQuality
    61. ' '.InterpolationMode = InterpolationMode.HighQualityBicubic
    62. 'End With
    64. Dim rect As Rectangle = Me.ClientRectangle
    66. lgbbrush = New LinearGradientBrush(rect, TopColorVal, BotColorVal, LinearGradientMode.Vertical)
    68. Dim percent As Decimal = CDec((Value - MinVal) / (MaxVal - MinVal))
    70. rect.Width = CInt(rect.Width * percent)
    72. G.FillRectangle(lgbbrush, rect)
    74. lgbbrush.Dispose()
    75. G.Dispose()
    76. End Sub
    78. End Class



    weiss evtl. jemand rat ?

    Greets

    Edit:

    Hab jetzt testweise mal ein neues Project aufgemacht und da wieder ein Benutzersteuerelement hinzugefügt, DB aktiviert, und schwups ich kann es nicht mal mehr auf die Form ziehen da Sonst wieder ein Fehler kommt, er Meckert dabei ungültiger Parameter, aber eben nur wenn DB aktiv ist....
    Ist das wieder was wo Microsoft versaut hat in Win 10 ?
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „asusdk“ ()

    Wenn ich Deinen Code als Teil meiner WinForm nehme, läuft alles rund.
    Wenn DoubleBuffering eingeschaltet ist: ja, dann kommt der Crash. Liegt an dem Disposen von G in Zeile 75. Kannst Du das nicht zum Ende Deines Programms erst machen? Und irgendwo hab ich gehört (ok, gelesen), dass Du lgbrush auch mit nem Using-Block verbinden kannst. Soll wohl sauberer sein und das Dispose ersparen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Der Code durefte auch nicht funktionieren. Wer oder was stellt hier ClientRectangle zur verfuegung? Hast du vllt. vergessen von Control erben zu lassen? Noch dazu, was wenn Value < Minimum oder Value > Maximum? Ich kann Maximum bei 100 haben und einen Wert von 100000 setzen? Sollte eine Exception geworfen werden, oder automatisch Minimum = Minimum gesetzt, bzw. halt mit Maximum.
    And i think to myself... what a wonderfuL World!

    @Eddy naja zum einen hab ich den Code aus einem der Ersten google ergebnisse zu (gdi+ Progressbar) daher ist er sicher nicht perfekt, und es geht mir aktuell ja um das herumtesten mit GDI+ hab bisher eig. nur normale Formsanwendungen benutzt , und ClientRectangle hat doch ein Me. davor also schätz ich mal von der Größe des Usercontrol ?

    @VaporiZed ich seh grad leider nicht wie ich das in nen UsingBlock packen könnte ?
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    VB.NET-Quellcode

    1. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    2. G = e.Graphics
    3. Dim rect As Rectangle = Me.ClientRectangle
    4. Using lgbbrush = New LinearGradientBrush(rect, TopColorVal, BotColorVal, LinearGradientMode.Vertical)
    5. Dim percent As Decimal = CDec((Value - MinVal) / (MaxVal - MinVal))
    6. rect.Width = CInt(rect.Width * percent)
    7. G.FillRectangle(lgbbrush, rect)
    8. End Using
    9. End Sub

    Aber der Using-Block ist jetzt erstmal wurscht. G zu disposen ist an der Stelle der Fehlerauslöser. Das ist das einzig relevante.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VB.NET-Quellcode

    1. Using G As Graphics = e.Graphics


    Das ist ueberfluessig,

    VB.NET-Quellcode

    1. Protected Overrides Sub OnResize(ByVal e As EventArgs)
    2. Me.Invalidate()
    3. End Sub


    wenn du deisen Style setzt:
    ControlStyles.ResizeRedraw, True


    Wobei bei mir hat das G.Dispose keinen Fehler verursacht, VS2010 und VS2013.
    And i think to myself... what a wonderfuL World!

    @Eddy Inherits Control markiert er mir direkt rot "Die für GradientPbar festgelegte Control-Basisklasse darf sich bnicht von der UserControl-Basisklasse eines ihrer anderen partiellen Typen unterscheioden." <- was auch immer das heissen soll,

    VB.NET-Quellcode

    1. SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)

    wieso "Or" sollen denn nicht alle gesetzt werden ?

    G hab ich jetzt weggelassen und direlkt e.Graphics benutzt
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Unter VS2017CE kommt bei mir mit der e.Graphics.Dispose-Zeile zumindest ne betitelte Exception. Ohne die Zeile läuft es.
    @asusdk: Weil man da binär denken muss.
    Bilder

    • eGraphicsDispose.png

      14,07 kB, 1.039×316, 103 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    also mit:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class GradientPbar
    3. #Region "Deklaration"
    4. Private ValueVal As Double = 50
    5. Private MinVal As Double = 0
    6. Private MaxVal As Double = 100
    7. Private WithLabelVal As Boolean = False
    8. Private GlossyVal As Boolean = True
    9. Private RoundedVal As Boolean = True
    10. Private LabelColorVal As Color = Color.Black
    11. Private TopColorVal As Color = Color.DarkRed
    12. Private BotColorVal As Color = Color.Black
    13. Private GlossColorVal As Color = Color.White
    14. #End Region
    15. Sub New()
    16. SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True)
    17. End Sub
    18. Public Property Value As Double
    19. Get
    20. Return ValueVal
    21. End Get
    22. Set(ByVal value As Double)
    23. Me.ValueVal = value
    24. Me.Invalidate()
    25. End Set
    26. End Property
    27. Public Property Minimum As Double
    28. Get
    29. Return Me.MinVal
    30. End Get
    31. Set(ByVal value As Double)
    32. Me.MinVal = value
    33. End Set
    34. End Property
    35. Public Property Maximum As Double
    36. Get
    37. Return Me.MaxVal
    38. End Get
    39. Set(ByVal value As Double)
    40. Me.MaxVal = value
    41. End Set
    42. End Property
    43. Protected Overrides Sub OnResize(ByVal e As EventArgs)
    44. Me.Invalidate()
    45. End Sub
    46. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    48. Dim rect As Rectangle = Me.ClientRectangle
    49. Using lgbbrush As New LinearGradientBrush(rect, TopColorVal, BotColorVal, LinearGradientMode.Vertical)
    50. Dim percent As Decimal = CDec((Value - MinVal) / (MaxVal - MinVal))
    51. rect.Width = CInt(rect.Width * percent)
    52. e.Graphics.FillRectangle(lgbbrush, rect)
    53. End Using
    55. End Sub
    56. End Class


    flackert es wieder, trotz jetzt dank euch funktionierendem DB

    mit :

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class GradientPbar
    3. #Region "Deklaration"
    5. Private ValueVal As Double = 50
    6. Private MinVal As Double = 0
    7. Private MaxVal As Double = 100
    9. Private WithLabelVal As Boolean = False
    10. Private GlossyVal As Boolean = True
    11. Private RoundedVal As Boolean = True
    13. Private LabelColorVal As Color = Color.Black
    14. Private TopColorVal As Color = Color.DarkRed
    15. Private BotColorVal As Color = Color.Black
    16. Private GlossColorVal As Color = Color.White
    18. Dim lgbbrush As LinearGradientBrush
    20. #End Region
    22. Public Property Value As Double
    23. Get
    24. Return ValueVal
    25. End Get
    26. Set(value As Double)
    27. Me.ValueVal = value
    28. Me.Invalidate()
    29. End Set
    30. End Property
    32. Public Property Minimum As Double
    33. Get
    34. Return Me.MinVal
    35. End Get
    36. Set(value As Double)
    37. Me.MinVal = value
    38. End Set
    39. End Property
    41. Public Property Maximum As Double
    42. Get
    43. Return Me.MaxVal
    44. End Get
    45. Set(value As Double)
    46. Me.MaxVal = value
    47. End Set
    48. End Property
    50. Protected Overrides Sub OnResize(ByVal e As EventArgs)
    51. Me.Invalidate()
    53. End Sub
    55. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    57. Dim rect As Rectangle = Me.ClientRectangle
    59. lgbbrush = New LinearGradientBrush(rect, TopColorVal, BotColorVal, LinearGradientMode.Vertical)
    61. Dim percent As Decimal = CDec((Value - MinVal) / (MaxVal - MinVal))
    63. rect.Width = CInt(rect.Width * percent)
    65. e.Graphics.FillRectangle(lgbbrush, rect)
    67. lgbbrush.Dispose()
    69. End Sub
    71. Public Sub New()
    72. Dieser Aufruf ist für den Designer erforderlich.
    73. InitializeComponent()
    74. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    75. Me.UpdateStyles()
    76. Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    77. End Sub
    79. End Class

    läuft es butterweich =)

    @Eddy
    Wobei bei mir hat das G.Dispose keinen Fehler verursacht, VS2010 und VS2013.

    Ich nutze aktuell schon das 2017er

    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    Fehler hin oder her - Logik verbietet das Disposen von e.Graphics:
    Du hast dieses Objeckt nicht erstellst, dann darfst du es auch nicht vernichten - du weißt ja nicht, obs nicht woanners noch gebraucht wird.

    anders beim LinearGradientBrush: Den erstellst du - also räum ihn auch bitte wiederauf, wenn du ihn nicht mehr brauchst.