Listbox .DrawRectangle zeichnet nicht über die Items

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

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Sekki.

    Listbox .DrawRectangle zeichnet nicht über die Items

    Ich beginne den Thread mit dem Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ​Class MyListbox: Inherits Control
    3. #Region " Variables"
    5. Private WithEvents ListBx As New ListBox
    6. Private _items As String() = {""}
    8. #End Region
    10. #Region " Poperties"
    12. <Category("Options")>
    13. Public Property items As String()
    14. Get
    15. Return _items
    16. End Get
    17. Set(value As String())
    18. _items = value
    19. ListBx.Items.Clear()
    20. ListBx.Items.AddRange(value)
    21. Invalidate()
    22. End Set
    23. End Property
    25. <Category("Colors")>
    26. Public Property SelectedColor As Color
    27. Get
    28. Return _SelectedColor
    29. End Get
    30. Set(value As Color)
    31. _SelectedColor = value
    32. End Set
    33. End Property
    35. Public ReadOnly Property SelectedItem() As String
    36. Get
    37. Return ListBx.SelectedItem
    38. End Get
    39. End Property
    41. Public ReadOnly Property SelectedIndex() As Integer
    42. Get
    43. Return ListBx.SelectedIndex
    44. If ListBx.SelectedIndex < 0 Then Exit Property
    45. End Get
    46. End Property
    48. Public Sub Clear()
    49. ListBx.Items.Clear()
    50. End Sub
    52. Public Sub ClearSelected()
    53. For i As Integer = (ListBx.SelectedItems.Count - 1) To 0 Step -1
    54. ListBx.Items.Remove(ListBx.SelectedItems(i))
    55. Next
    56. End Sub
    58. Sub Drawitem(ByVal sender As Object, ByVal e As DrawItemEventArgs) Handles ListBx.DrawItem
    59. If e.Index < 0 Then Exit Sub
    60. e.DrawBackground()
    61. e.DrawFocusRectangle()
    63. e.Graphics.SmoothingMode = 2
    64. e.Graphics.PixelOffsetMode = 2
    65. e.Graphics.InterpolationMode = 7
    66. e.Graphics.TextRenderingHint = 5
    68. If InStr(e.State.ToString, "Selected,") > 0 Then '-- if selected
    69. '-- Base
    70. e.Graphics.FillRectangle(New SolidBrush(_SelectedColor), New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
    72. '-- Text
    73. e.Graphics.DrawString(" " & ListBx.Items(e.Index).ToString(), New Font("Segoe UI", 8), Brushes.White, e.Bounds.X, e.Bounds.Y + 2)
    74. Else
    75. '-- Base
    76. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(30, 39, 44)), New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height))
    78. '-- Text
    79. e.Graphics.DrawString(" " & ListBx.Items(e.Index).ToString(), New Font("Segoe UI", 8), Brushes.White, e.Bounds.X, e.Bounds.Y + 2)
    80. End If
    82. e.Graphics.Dispose()
    83. End Sub
    85. Protected Overrides Sub OnCreateControl()
    86. MyBase.OnCreateControl()
    87. If Not Controls.Contains(ListBx) Then
    88. Controls.Add(ListBx)
    89. End If
    90. End Sub
    92. Sub AddRange(ByVal items As Object())
    93. ListBx.Items.Remove("")
    94. ListBx.Items.AddRange(items)
    95. End Sub
    97. Sub AddItem(ByVal item As Object)
    98. ListBx.Items.Remove("")
    99. ListBx.Items.Add(item)
    100. End Sub
    102. #End Region
    104. #Region " Colors"
    106. Private BaseColor As Color = Color.FromArgb(30, 39, 44)
    107. Private _SelectedColor As Color = _FlatColor
    108. Private _BorderColor As Color = Color.FromArgb(85, 117, 140)
    110. #End Region
    112. Sub New()
    113. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or
    114. ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True)
    115. DoubleBuffered = True
    117. ListBx.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
    118. ListBx.ScrollAlwaysVisible = False
    119. ListBx.HorizontalScrollbar = False
    120. ListBx.BorderStyle = BorderStyle.None
    121. ListBx.BackColor = BaseColor
    122. ListBx.ForeColor = Color.White
    123. ListBx.Location = New Point(3, 3)
    124. ListBx.Font = New Font("Segoe UI", 8)
    125. ListBx.ItemHeight = 20
    126. ListBx.Items.Clear()
    127. ListBx.IntegralHeight = False
    129. Size = New Size(131, 101)
    130. BackColor = BaseColor
    131. End Sub
    133. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    134. B = New Bitmap(Width, Height) : G = Graphics.FromImage(B)
    136. Dim Base As New Rectangle(0, 0, Width, Height)
    138. With G
    139. .SmoothingMode = 2
    140. .PixelOffsetMode = 0
    141. .TextRenderingHint = 5
    142. .Clear(BackColor)
    144. '-- Size
    145. ListBx.Size = New Size(Width - 6, Height - 2)
    147. '-- Base
    148. .FillRectangle(New SolidBrush(BaseColor), Base)
    150. ' '-- Border
    151. ' .DrawRectangle(New Pen(_BorderColor), Base)
    152. End With
    154. MyBase.OnPaint(e)
    155. G.Dispose()
    156. e.Graphics.InterpolationMode = 7
    157. e.Graphics.DrawImageUnscaled(B, 1, 1)
    158. B.Dispose()
    159. End Sub
    161. End Class



    Guten Tab Community,

    ich brauche mal wieder eure Hilfe wenn es ums Zeichnen vom Rand eines Controls geht. Ich habe mich nun ca. 2 Stunden damit beschäftigt und finde auch nichts im Internet. Ich habe einen Border für meine Listbox gezeichnet, jedoch akzeptiert die Listbox den Border nur halb. Ich glaube, dass Problem ist, dass der Border nicht über die Items gezeichnet werden kann. Dies hat sich in einem Test erwiesen, indem ich die Höhe und Weite der Border verkleinert habe. So sieht das ganze aktuell aus:



    Die Border geht nicht komplett um das Control. Und hier mein "Beweis", dass es wahrscheinlich die Items sein könnten, die stören:



    Man sieht hier sehr gut, dass die Kanten existieren, sie aber nicht durch das Control durchzeichnen können. Ich vermute, dass liegt daran, dass die Items ÜBER dem Border liegen. Jedoch konnte ich bisher noch nicht herausfinden, wie ich über die Items zeichnen kann. Könnt ihr dies bereits anhand des Codes sehen? Ich habe es damals nach meinem belieben abgeändert, ist ein komplett normaler Listbox Code, denke ich.

    Das hier ist der zuständige Code für den Border:

    VB.NET-Quellcode

    1. ​'-- Border
    2. .DrawRectangle(New Pen(_BorderColor), Base)


    Ich hoffe, ihr könnt mir helfen! Natürlich werde ich versuchen, mein bestes zu geben um selbst drauf zu kommen. Wäre aber super, wenn ihr mir die Zeit erspart, da ich wirklich überhaupt keinen Anhang habe.
    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

    Sekki schrieb:

    e.Graphics.Dispose()
    Du solltest das als Parameter übergebene Graphics Objekt nicht einfach disposen. Was wenn das noch an andere weiter gereicht werden soll? Das unterliegt hier gar nicht deiner Kontrolle.

    Sekki schrieb:

    Dim Base As New Rectangle(0, 0, Width, Height)

    Es müsste für den Rahmen Width -1 und Height -1 sein, denn DrawRectangle Zeichnet rechts vom angegebenen Rectangle:

    Leider funktioniert das nicht. So sieht das aus:


    Und das mit dem Dispose verstehe ich nicht ganz. Ich werde es mir aber für die Zukunft merken, danke.
    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

    Bluespide schrieb:

    Was ist wenn du das auf "0, 0" stellst?


    Auch hier zeigt sich kein Effekt. Gar nichts verändert sich, alles wie auch davor. Meines Wissens ist der PixelOffsetMode für sowas zuständig, den habe ich jedoch schon auf 0 gestellt. Wenn du magst, kannst du den Code in eine Class kopieren und das Projekt einmal erstellen/starten, um dann das Control links nutzen zu können. Selbstverständlich nur, falls du die Zeit dazu hast, ich möchte hier keinem zu große Umstände machen. Ich habe bereits an jeder Zahl gerüttelt, kein Effekt. Entweder wird der Effekt der Border gespiegelt(statt oben und links Border, nur rechts und unten) oder es passiert nichts.
    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

    Jo, mit meinen beiden Änderungen und ​ListBx.Size = New Size(Width - 6, Height - 4) klappt das jetzt. Ich habe einfach kurz im Sub New() ein ​ListBx.BackColor = Color.Red unten dran gehangen um die Position der Listbox zu sehen. Die ging bis zum unteren Rand und hat deswegen die Linie unten verdeckt.

    Super! Es hat funktioniert!
    Nun habe ich noch ein kleines Problemchen, welches aber nicht all zu schlimm ist, falls man es nicht fixxen kann. Ich würde gerne .PixelOffsetMode = 0 nutzen können, damit der Border etwas dicker ist und man die Farbe schön erkennt(so wie auf den Screenshots). Jedoch habe ich dann wieder das selbe Problem. Aktuell ist der Border viel zu dünn. Ist das irgendwie möglich?
    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

    Bluespide schrieb:

    New Pen(_BorderColor, 3)




    Super! Es hat perfekt geklappt, dass war die Lösung! Ich bedanke mich sehr bei dir, ging super schnell!

    Wenn ich eine Frage stelle, habe ich sie bereits gegooglet. Ja, es kommt vor, dass ich die Antwort übersehe. Ja, es kommt vor, dass ich sie nicht verstehe. Deshalb bin ich hier. Wenn dies eure Frage war, dann antwortet bitte nicht. Es stiehlt sämtliche Motivation.

Facebook
Telefonspende