ListControl Item adden, nur wie?

  • Allgemein

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Füg' mal zwischen Zeile 114 und 115 bei deinem Code folgende Zeile ein

    VB.NET-Quellcode

    1. If e.Index >= 0 AndAlso e.Index < Items.Count Then

    Hätte nicht gedacht, dass man die tatsächlich braucht. Kannst du das Programm einfach mal ausführen und danach danach suchen? Wenn das nicht mehr möglich ist, erzeug mal eine Instanz des Controls per Code, dann siehst du exakt die Zeile, in der die Excption fliegt. Danach suchst du nach dem Grund, warum sie bei dir fliegt und bei uns nicht. Bevor du das Control verwenden kannst, musst du ein Kompilat erstellen, also Debuggen oder Builden. Wär zumindest für mich eine Erklärung, warum der Code anders ist, als im Stacktrace steht.

    Gruß
    ~blaze~


    next one...

    VB.NET-Quellcode

    1. Private Sub ListControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    2. Dim item As Object = Items(e.Index)
    3. If TypeOf item Is ListControlItem Then ' ist das Item ein ListControlItem (im anderen Code auf eine... interessante Art geloest)
    4. Dim current As ListControlItem = DirectCast(item, ListControlItem) ' Casten zum ListControlItem
    5. If e.Index >= 0 AndAlso e.Index < Items.Count Then
    6. 'Rechteck, in dem gezeichnet werden soll (s. o.)
    7. Dim r As Rectangle = New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, e.Bounds.Width - 3, e.Bounds.Height - 2)
    9. With e.Graphics
    10. Dim headerSize As Size
    11. Dim subtextSize As Size
    13. Dim elementBounds As Rectangle
    14. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 'ist das Item angewaehlt
    15. .FillRectangle(New SolidBrush(SelectedBackColor), r) 'Hintergrund zeichnen
    16. .DrawRectangle(New Pen(New SolidBrush(SelectedBorderColor)), r) 'Rahmen zeichnen
    17. Else
    18. 'wozu was mit einem durchsichtigen Hintergrund fuellen?!! Wenn dann noch BackColor oder so
    19. '.FillRectangle(New SolidBrush(Color.Transparent), r) 'transparentes Rechteck drueberlegen (lol)
    20. .DrawRectangle(New Pen(New SolidBrush(BorderColor)), r) 'Rahmen zeichnen
    21. End If
    23. If current.Image IsNot Nothing Then 'Wenn ein Bild vorhanden wird (Kotz-Faktor nr 2)
    24. .DrawImage(current.Image, r.X + 5, r.Y + 5, 45, 45)
    25. Else
    26. 'einfach gar nix zeichnen?!!
    27. '.DrawIcon(Drawing.SystemIcons.Error, r.X + 5, r.Y + 5) 'oder halt ein Fehlericon zeichnen
    28. End If
    29. headerSize = Size.Ceiling(.MeasureString(current.Header, HeaderFont)) 'Groesse des Headers ermitteln
    30. elementBounds = New Rectangle(r.X + 60, r.Y + 5, ClientSize.Width - r.X - 60, headerSize.Height) 'Bereich des Headers
    31. 'eigentlich per TextRenderer-Klasse (siehe weiter unten)?
    32. .DrawString(current.Header, HeaderFont, New SolidBrush(HeaderColor), elementBounds) 'Header zeichnen (Top-Text oben)
    34. subtextSize = Size.Ceiling(.MeasureString(current.SubText, SubTextFont)) 'Groesse des Subtexts ermitteln
    35. elementBounds = New Rectangle(r.X + 60, r.Y + 25, ClientSize.Width - r.X - 60, 60 - subtextSize.Height - headerSize.Height)
    36. .DrawString(current.Content, Font, New SolidBrush(Me.ForeColor), elementBounds) 'Inhalt zeichnen (main content oben)
    38. elementBounds = New Rectangle(r.X + 60, r.Y + Me.ItemHeight - 20, Me.Width - r.X - 60, subtextSize.Height)
    39. .DrawString(current.SubText, SubTextFont, New SolidBrush(SubTextColor), elementBounds) 'Subtext zeichnen
    40. 'Falls ausgewaehlt und gewuenscht, ein Fokusrechteck zeichnen
    41. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    42. ControlPaint.DrawFocusRectangle(e.Graphics, r)
    43. End If
    44. End With
    45. ElseIf DrawDefaultItems Then 'von mir eingefuehrte Eigenschaft, die es dem User ermoeglicht, nicht speziell behandelte Items ohne eigene Zeichenprozedur zu zeichnen
    46. e.DrawBackground()
    47. TextRenderer.DrawText(e.Graphics, GetItemText(item), Font, e.Bounds, ForeColor) 'hier ein BSP fuer den TextRenderer
    48. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    49. e.DrawFocusRectangle()
    50. End If
    51. End If
    52. End If

    Drawitem class
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Die Antwort steht genau im Post darüber!

    VB.NET-Quellcode

    1. Private Sub ListControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    2. If e.Index >= 0 AndAlso e.Index < Items.Count Then
    3. Dim item As Object = Items(e.Index)
    4. If TypeOf item Is ListControlItem Then ' ist das Item ein ListControlItem (im anderen Code auf eine... interessante Art geloest)
    5. Dim current As ListControlItem = DirectCast(item, ListControlItem) ' Casten zum ListControlItem
    6. If e.Index >= 0 AndAlso e.Index < Items.Count Then
    7. 'Rechteck, in dem gezeichnet werden soll (s. o.)
    8. Dim r As Rectangle = New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, e.Bounds.Width - 3, e.Bounds.Height - 2)
    10. With e.Graphics
    11. Dim headerSize As Size
    12. Dim subtextSize As Size
    14. Dim elementBounds As Rectangle
    15. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 'ist das Item angewaehlt
    16. .FillRectangle(New SolidBrush(SelectedBackColor), r) 'Hintergrund zeichnen
    17. .DrawRectangle(New Pen(New SolidBrush(SelectedBorderColor)), r) 'Rahmen zeichnen
    18. Else
    19. 'wozu was mit einem durchsichtigen Hintergrund fuellen?!! Wenn dann noch BackColor oder so
    20. '.FillRectangle(New SolidBrush(Color.Transparent), r) 'transparentes Rechteck drueberlegen (lol)
    21. .DrawRectangle(New Pen(New SolidBrush(BorderColor)), r) 'Rahmen zeichnen
    22. End If
    24. If current.Image IsNot Nothing Then 'Wenn ein Bild vorhanden wird (Kotz-Faktor nr 2)
    25. .DrawImage(current.Image, r.X + 5, r.Y + 5, 45, 45)
    26. Else
    27. 'einfach gar nix zeichnen?!!
    28. '.DrawIcon(Drawing.SystemIcons.Error, r.X + 5, r.Y + 5) 'oder halt ein Fehlericon zeichnen
    29. End If
    30. headerSize = Size.Ceiling(.MeasureString(current.Header, HeaderFont)) 'Groesse des Headers ermitteln
    31. elementBounds = New Rectangle(r.X + 60, r.Y + 5, ClientSize.Width - r.X - 60, headerSize.Height) 'Bereich des Headers
    32. 'eigentlich per TextRenderer-Klasse (siehe weiter unten)?
    33. .DrawString(current.Header, HeaderFont, New SolidBrush(HeaderColor), elementBounds) 'Header zeichnen (Top-Text oben)
    35. subtextSize = Size.Ceiling(.MeasureString(current.SubText, SubTextFont)) 'Groesse des Subtexts ermitteln
    36. elementBounds = New Rectangle(r.X + 60, r.Y + 25, ClientSize.Width - r.X - 60, 60 - subtextSize.Height - headerSize.Height)
    37. .DrawString(current.Content, Font, New SolidBrush(Me.ForeColor), elementBounds) 'Inhalt zeichnen (main content oben)
    39. elementBounds = New Rectangle(r.X + 60, r.Y + Me.ItemHeight - 20, Me.Width - r.X - 60, subtextSize.Height)
    40. .DrawString(current.SubText, SubTextFont, New SolidBrush(SubTextColor), elementBounds) 'Subtext zeichnen
    41. 'Falls ausgewaehlt und gewuenscht, ein Fokusrechteck zeichnen
    42. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    43. ControlPaint.DrawFocusRectangle(e.Graphics, r)
    44. End If
    45. End With
    46. ElseIf DrawDefaultItems Then 'von mir eingefuehrte Eigenschaft, die es dem User ermoeglicht, nicht speziell behandelte Items ohne eigene Zeichenprozedur zu zeichnen
    47. e.DrawBackground()
    48. TextRenderer.DrawText(e.Graphics, GetItemText(item), Font, e.Bounds, ForeColor) 'hier ein BSP fuer den TextRenderer
    49. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    50. e.DrawFocusRectangle()
    51. End If
    52. End If
    53. End If
    54. End If


    Ich dachte, das würde anders gehandhabt.

    Gruß
    ~blaze~

Facebook
Telefonspende