Unlösbare Compiler-Warnung betreffend IDisposable

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Duster.

    Unlösbare Compiler-Warnung betreffend IDisposable

    Hallo Leute,

    ich programmiere erade an einem kleinen WinForms GDI+ Programm das ein interaktives GDI+ Tutorial werden soll.
    Lief
    alles eigentlich ganz, bis vor 2 Tagen. Ich bekam nachdem ich das
    Interface IDisposable in die Basisklasse Shape eingebaut hatte für alle
    Klassen die von Shape erben folgende Compiler Warnung:

    Warnung CA2213
    "Form1" enthält das Feld "_line", das den IDisposable-Typ
    "SingleLine" aufweist, aber nie verworfen wird. Ändern Sie die
    Dispose-Methode in "Form1", um "Close" oder "Dispose" für dieses Feld
    aufzurufen.

    Shape implementiert IDisposable und "SingleLine" ist die Klasse die von Shape erbt.

    Ich
    schaffe es einfach nicht diese Warnung loszuwerden. Habe ich
    IDisposable falsch implementiert. Ich hab schon zig Beispiele gefunden
    und alles mögliche ausprobiert (using... etc). Gegen Ende auch einfach
    heuristrisch aber nichts klappt

    Ich
    halte es aber für wichtig diese auf diese Warnung zu reagieren und sie
    nicht zu unterdrücken, da sonst der Speicher vielleicht vollaufen
    könnte!
    Wenn es gewünscht wird und weiterhilft poste ich auch den ganzen Source des kleinen Projekts und nicht nur Auszüge.

    Vielen Dank für Eure Mühe und Hilfe vorab!

    Shape:

    VB.NET-Quellcode

    1. Imports PensBrushesAndShapes.DataTypes
    3. Namespace ShapeTypes.BASE
    5. Friend Class Shape
    6. Implements IDisposable
    8. #Region "Shape Private Variables"
    10. Friend MyPen As Pen
    11. Private ReadOnly _penData as PenData
    13. #End Region
    15. #Region "Shape Constructors"
    17. Public Sub New()
    18. End Sub
    20. Public Sub New(penData As PenData)
    21. _penData = penData
    22. MyPen = GeneratePen(_penData)
    23. End Sub
    25. #End Region
    27. #Region "Shape Functions"
    29. Public Sub Dispose() Implements IDisposable.Dispose
    30. MyPen?.Dispose()
    31. End Sub
    33. Friend Function GeneratePen(penData As PenData) As Pen
    34. MyPen = New Pen(Color.FromArgb(penData.Alpha,
    35. penData.Red,
    36. penData.Green,
    37. penData.Blue), penData.Width)
    39. Return MyPen
    40. End Function
    42. #End Region
    44. End Class
    45. End NameSpace


    Klasse SingleLine:

    VB.NET-Quellcode

    1. Imports PensBrushesAndShapes.DataTypes
    2. Imports PensBrushesAndShapes.ShapeTypes.BASE
    4. Namespace ShapeTypes.Lines
    5. Friend Class SingleLine
    6. Inherits Shape
    7. #Region "CLASS SINGLELINE"
    9. #Region "SingleLine Private Variables"
    11. Private ReadOnly _e As PaintEventArgs
    12. Private ReadOnly _penData As PenData
    13. Private ReadOnly _coordinates As Point()
    15. #End Region
    17. #Region "SingleLine Properties"
    19. 'Shape.ShapeName = "SingleLine"
    21. #End Region
    23. #Region "SingleLine Constructors"
    25. Public Sub New()
    26. End Sub
    28. Public Sub New(e As PaintEventArgs, penData As PenData, coordinates As Point())
    30. _e = e
    31. _penData = penData
    32. _coordinates = coordinates
    34. DrawSingleLine(_e, _penData, _coordinates)
    36. End Sub
    38. #End Region
    40. #Region "SingleLine Functions"
    42. Private Function DrawSingleLine(e As PaintEventArgs, penData As PenData, coords As Point()) As PaintEventArgs
    44. Dim linePen As Pen
    45. linePen = GeneratePen (penData)
    46. linePen.DashStyle = penData.DashStyle
    47. linePen.StartCap = penData.StartCap
    48. linePen.EndCap = penData.EndCap
    50. e.Graphics.DrawLine(linePen, coords(0), coords(1))
    52. linePen.Dispose()
    53. Return e
    54. End Function
    56. #End Region
    58. #End Region
    60. End Class
    61. End Namespace


    Aufruf:

    VB.NET-Quellcode

    1. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    2. MyBase.OnPaint(e)
    4. _cmdDrawState = True
    6. Dim typ as String
    7. typ = _penData.ShapeName
    9. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    10. MyBase.OnPaint(e)
    12. _cmdDrawState = True
    14. Dim typ as String
    15. typ = _penData.ShapeName
    17. Select Case typ
    18. Case "SingleLine"
    19. _line = New SingleLine(e, _linePenData, _lineCoords)
    20. _line.Dispose()
    21. End Select
    23. End Sub


    Verzweifelt,
    Duster

    Soweit ich sehe, braucht deine Shape-Klasse IDisposable nicht zu implementieren (ist eh höchst fragwürdig umgesetzt).
    Schmeiss das MyPen-Feld raus aus der Shape-Klasse und lösch alles was inne Shape-Klasse mit IDisposable zu tun hat.

    Weil soweit ich sehe, wird MyPen ausserhalb von Shape nirgends benutzt.

    Merke: Weniger Code ist besserer Code.

    @Duster Jede Form hat in der Datei FormX.Designer.vb bereits die Prozedur:

    VB.NET-Quellcode

    1. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    2. <System.Diagnostics.DebuggerNonUserCode()> _
    3. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    4. Try
    5. If disposing Then
    6. If components IsNot Nothing Then
    7. components.Dispose()
    8. End If
    9. _line.Dispose() ' ### hier
    10. End If
    11. Finally
    12. MyBase.Dispose(disposing)
    13. End Try
    14. End Sub
    Dort drinnen kannst Du Deine Objekte disposen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich würd mich dem Problem zwar gern annehmen, aber ich krieg nen Vogel, wenn immer nur die Hälfte zur Verfügung gestellt wird und man so das Problem daheim nicht nachstellen kann. Der Aufruf-Codeblock ist mit den Zeilen#1-#7 doppelt und somit eh schon nicht lauffähig. Und mit den ganzen Unbekannten lädt das Ganze nicht gerade zur Mithilfe ein. Sorry.
    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.

    @'RodFromGermany
    Super, vielen dank es funktioniert.
    Hab grad noch was entdeckt. Wenn ich im Konnstruktor von SingleLine "MyBase.Disbose" schreibe, funktioniert es auch.
    Aber wiso, ausserdem klingt es für mich ziemlich seltsam im Konstruktor eines Objektes dessen Basisklasse zu verwerfen????!!!!. 8o :thumbsup:

    @'VaporiZed
    Stimmt, ich war ein wenig unter Zeitdruck, sonst schick ich im Anhang immer ein funktionierendes Bespielprojekt das die Fragestellung repräsentiert. :S

    @'ErfinderDesRades
    Studio hat angemeckert dass IDisposable angewendet werden muss.
    Alle meine ShapeKlassen(_line, _lines, _rect, _rects, _bezier, _polygon etc.) erben von Shape und nutzen die für alle notwendige GeneratePen(), warum ist das fragwürdig umgesetzt? ?(

    Ich hab mal versucht das MyPen Feld rauszuwerfen und alles zu löschen was mit IDisposable zu tun hat bekomme aber ständig die Warnung dass ich IDisposable implementieren soll!

    Kannst Du etwas detaillierter beschreiben wie Du Shape aufbauen würdest?

    Viele Grüße und vielen Dank für Eure professionelle Hilfe,
    Duster

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Duster“ ()

    mit "MyPen rauswerfen" meinte ich: MyPen rauswerfen.
    Ich sagte nicht "GeneratePen rauswerfen"

    VB.NET-Quellcode

    1. Imports PensBrushesAndShapes.DataTypes
    2. Imports System.Drawing
    4. Namespace ShapeTypes.BASE
    6. Friend Class Shape
    8. #Region "Shape Private Variables"
    10. Private ReadOnly _penData As PenData
    12. #End Region
    14. #Region "Shape Constructors"
    16. Public Sub New()
    17. End Sub
    19. Public Sub New(penData As PenData)
    20. _penData = penData
    21. End Sub
    23. #End Region
    25. #Region "Shape Functions"
    27. Friend Function GeneratePen(penData As PenData) As Pen
    28. Return New Pen(Color.FromArgb(penData.Alpha,
    29. penData.Red,
    30. penData.Green,
    31. penData.Blue), penData.Width)
    32. End Function
    34. #End Region
    36. End Class
    37. End Namespace

    Duster schrieb:

    Wenn ich im Konnstruktor von SingleLine "MyBase.Disbose" schreibe
    Im Konstruktor :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Duster Was hat ein .Dispose() in einem Konstruktor zu suchen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann ist das keine Lösung, sondern ein Hack mit unbekannten Nebenwirkungen, die Dir möglicherweise erst später reingrätschen. Daher Stichwort RCA. Daher von meiner Seite aus zurück zu Post#4
    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.

Facebook
Telefonspende