ListView Control (Draw)

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

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Steven.

    ListView Control (Draw)

    Moin, ich habe gerade angefangen an einem ListView Control zu arbeiten und wollte dort gerne
    den Hintergrund wo die ColumnHeader drauf sind bearbeiten, ich habe schon mal geschaut aber
    leider nichts weiter dazu gefunden.

    Siehe Bild

    Mein Source Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Class XListView
    2. Inherits ListView
    3. Sub New()
    4. GridLines = False
    5. FullRowSelect = True
    6. HeaderStyle = ColumnHeaderStyle.Nonclickable
    7. View = View.Details
    8. OwnerDraw = True
    9. ResizeRedraw = True
    10. Font = New Font("Arial", 8.25F, FontStyle.Regular)
    11. Size = New Size(300, 200)
    12. BorderStyle = BorderStyle.None
    13. BackColor = Color.FromArgb(245, 245, 245)
    14. SetStyle(ControlStyles.DoubleBuffer Or ControlStyles.OptimizedDoubleBuffer, True)
    15. End Sub
    17. Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawListViewItemEventArgs)
    18. Me.Invalidate()
    19. MyBase.OnDrawItem(e)
    20. End Sub
    22. Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
    23. If Me.SelectedItems.Count = 1 Then
    24. Dim Item As ListViewItem = Me.SelectedItems(0)
    25. Select Case Item.Checked
    26. Case True
    27. Item.Checked = False
    28. Case Else
    29. Item.Checked = True
    30. End Select
    31. End If
    32. MyBase.OnClick(e)
    33. End Sub
    35. Protected Overrides Sub OnDrawColumnHeader(ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs)
    36. Me.SuspendLayout()
    37. Dim G As Graphics = e.Graphics
    38. Dim Rect As New Rectangle(e.Bounds.Left, e.Bounds.Top, e.Bounds.Width, e.Bounds.Height - 3)
    39. G.FillRectangle(New SolidBrush(Color.Black), Rect)
    40. G.DrawRectangle(Pens.Gray, Rect)
    41. Dim TextSizeF As SizeF = G.MeasureString(e.Header.Text, e.Font)
    42. Dim TextSize As Size = New Size(CInt(TextSizeF.Width), CInt(TextSizeF.Width))
    43. Dim TextLeft As Integer = CInt((e.Bounds.Width / 2) - (TextSizeF.Width / 2)) + e.Bounds.Left
    44. Dim TextTop As Integer = CInt((e.Bounds.Height / 2) - (TextSizeF.Height / 2)) + e.Bounds.Top
    45. G.DrawString(e.Header.Text, e.Font, New SolidBrush(Color.White), New Point(TextLeft, TextTop))
    46. Me.ResumeLayout()
    47. MyBase.OnDrawColumnHeader(e)
    48. End Sub
    50. Protected Overrides Sub OnDrawSubItem(ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs)
    51. Me.SuspendLayout()
    52. Dim G As Graphics = e.Graphics
    53. Dim TextSizeF As SizeF = G.MeasureString(e.SubItem.Text, e.SubItem.Font)
    54. Dim TextSize As Size = New Size(CInt(TextSizeF.Width), CInt(TextSizeF.Width))
    55. Dim TextLeft As Integer = CInt((e.Bounds.Width / 2) - (TextSizeF.Width / 2)) + e.Bounds.Left
    56. Dim TextTop As Integer = CInt((e.Bounds.Height / 2) - (TextSizeF.Height / 2)) + e.Bounds.Top
    57. Dim Rect As New Rectangle(e.Bounds.Left, e.Bounds.Top, e.Bounds.Width, e.Bounds.Height)
    58. G.FillRectangle(Brushes.DarkGray, e.Bounds)
    59. G.DrawRectangle(Pens.Gray, Rect)
    60. If Me.SelectedIndices.IndexOf(e.ItemIndex) > -1 Then
    61. Dim HighlightBaseColor As Color = e.Item.BackColor
    62. Dim HighlightColor As Color = Color.FromArgb(255, HighlightBaseColor)
    63. Dim ItemFillRectangle As New Rectangle(e.SubItem.Bounds.Left, e.SubItem.Bounds.Top, e.SubItem.Bounds.Width, e.SubItem.Bounds.Height)
    64. G.FillRectangle(New SolidBrush(HighlightColor), ItemFillRectangle)
    65. End If
    66. If Me.SelectedIndices.IndexOf(e.ItemIndex) > -1 Then
    67. G.DrawString(e.SubItem.Text, e.SubItem.Font, New SolidBrush(e.Item.ForeColor), New Point(TextLeft, TextTop))
    68. Else
    69. G.DrawString(e.SubItem.Text, e.SubItem.Font, New SolidBrush(e.Item.BackColor), New Point(TextLeft, TextTop))
    70. End If
    71. Me.ResumeLayout()
    72. MyBase.OnDrawSubItem(e)
    73. End Sub
    75. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    76. 'Dim B As New Bitmap(Width, Height)
    77. 'Dim G As Graphics = Graphics.FromImage(B)
    78. 'G.Clear(Parent.BackColor)
    79. 'G.Dispose() : B.Dispose()
    80. End Sub
    81. End Class


    Lg Steve

    @Steven Was soll denn da stehen?
    Setz mal nen Haltepunkt in die einzelnen Draw-Routinen und überzeuge Dich davon, dass das Progeamm da ühaupt vorbeikommt.
    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!

    RodFromGermany schrieb:

    @Steven Was soll denn da stehen?
    Setz mal nen Haltepunkt in die einzelnen Draw-Routinen und überzeuge Dich davon, dass das Progeamm da ühaupt vorbeikommt.
    Ich habe gerade noch mal bei den Drei Draw Routinen geschaut, in keiner konnte ich auf den
    besagten Hintergrund Zeichnen. Mir würde dazu noch einfallen ein ListView selbst zu definieren, und dann ein eigenes
    Control zu Zeichnen, das wäre mir dann aber zu umfangreich, gibt es seitens VB also keine Möglichkeit auf der Fläche zu
    zeichnen? in der DotNetBar Lib ist ein Listview enthalten wo der Komplette Header gezeichnet ist.

    Das Tutorial "noch ein coloriertes Datagridview" zeigt, dass man DGV komplett auf ListView stylen kann.
    Ohne Icons braucht man für dieses Styling keinerlei Code - da muß man nur die Gridlines ausblenden und die Zeilenhöhe verringern.
    Der im Tut getriebene Aufwand wäre komplett entbehrlich - er dient ausschließlich der Gestaltung colorierter spalten sowie einer Column mit Icon.

    Langer Rede kurzer Sinn: Vergiss ListView, nimm DatagridView.
    Damit kriegt man ganz nebenbei auch so Drawereien wesentlich besser hin.

    Und vermeide, ein Control selbst basteln zu wollen!
    Controls agieren nicht nur zur Laufzeit, sondern auch zur Design-Zeit - bei letzterem wird recht viel über Attribute gesteuert, und es ist auch mit Extra-Bibliotheken umzugehen, die sich nur mit dem Designer-Verhalten beschäftigen etc.

    Also ich habs jetzt bisserl finster ausgemalt, aber grundsätzlich isses schon so: Stabile Controls selbst entwickeln erfordert recht umfangreiches Spezialwissen, und dann ist man immer noch nicht vor allerlei Überraschungen gefeit.

    Nimm lieber DGV, und verarbeite mw. das CellPainting-Event (wie im Tut gezeigt) - das geht auch für HeaderCells.

    @Steven Darf ich Deine Beiträge so verstehen, dass Du gar nicht weißt, ob Dein Code ühaupt verwendet wird?
    Ansonsten pflichte ich dem @ErfinderDesRades bei, steig auf ein DataGridView um.
    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!

    ErfinderDesRades schrieb:

    Das Tutorial "noch ein coloriertes Datagridview" zeigt, dass man DGV komplett auf ListView stylen kann.
    Ohne Icons braucht man für dieses Styling keinerlei Code - da muß man nur die Gridlines ausblenden und die Zeilenhöhe verringern.
    Der im Tut getriebene Aufwand wäre komplett entbehrlich - er dient ausschließlich der Gestaltung colorierter spalten sowie einer Column mit Icon.

    Langer Rede kurzer Sinn: Vergiss ListView, nimm DatagridView.
    Damit kriegt man ganz nebenbei auch so Drawereien wesentlich besser hin.

    Und vermeide, ein Control selbst basteln zu wollen!
    Controls agieren nicht nur zur Laufzeit, sondern auch zur Design-Zeit - bei letzterem wird recht viel über Attribute gesteuert, und es ist auch mit Extra-Bibliotheken umzugehen, die sich nur mit dem Designer-Verhalten beschäftigen etc.

    Also ich habs jetzt bisserl finster ausgemalt, aber grundsätzlich isses schon so: Stabile Controls selbst entwickeln erfordert recht umfangreiches Spezialwissen, und dann ist man immer noch nicht vor allerlei Überraschungen gefeit.

    Nimm lieber DGV, und verarbeite mw. das CellPainting-Event (wie im Tut gezeigt) - das geht auch für HeaderCells.


    Viele dank für die Hilfe, ich schau mir mal DGV an, und das Control selbst zu Zeichnen ist mir auch
    ein wenig zu hoch gesteckt, wie du es aber auch schon gesagt hast.

    RodFromGermany schrieb:

    @Steven Darf ich Deine Beiträge so verstehen, dass Du gar nicht weißt, ob Dein Code ühaupt verwendet wird?
    Ansonsten pflichte ich dem @ErfinderDesRades bei, steig auf ein DataGridView um.


    Also die Subs werden geCallt ohne Probleme, nur kann man
    in keinem auf den Hintergrund Zeichnen der auf dem Bild Weiß
    zu sehen ist. Ich werde mir aber DGV mal anschauen, danke auch dir

    LG Steven

Facebook
Telefonspende