Darstellungsproblem von eigener ComboBox / eigenen Controls

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    @RodFromGermany Sorry :D

    VB.NET-Quellcode

    1. Public Class MyComboBox : Inherits ComboBox
    3. #Region " Funktionen & Events "
    5. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    6. MyBase.OnPaint(e)
    8. ' DrawString Parameter
    9. Dim y As Integer = CInt(e.Graphics.MeasureString(Text, Font).Height / 2)
    10. Dim x As Integer = CInt(e.Graphics.MeasureString(Text, Font).Width)
    12. Dim cmbRect As Rectangle = New Rectangle(0, 0, Width, Height)
    14. ' DropDownIcon Parameter
    15. Dim Px As Integer = Width - 6
    16. Dim Py As Integer = CInt(Height / 2 - 3)
    18. ' Points für das Dreieck
    19. Dim P1 As New Point(Px, Py)
    20. Dim P2 As New Point(Px - 12, Py)
    21. Dim P3 As New Point(Px - 6, Py + 6)
    22. Dim PolyP() As Point = {P1, P2, P3}
    24. e.Graphics.FillRectangle(Brushes.White, cmbRect)
    25. e.Graphics.DrawRectangle(New Pen(CT.BorderColor), 0, 0, Width - 1, Height - 1)
    26. e.Graphics.FillPolygon(New SolidBrush(CT.BorderColor), PolyP)
    28. If Me.Focused Then
    29. e.Graphics.FillPolygon(New SolidBrush(CT.ControlSelectColor), PolyP)
    30. End If
    31. e.Graphics.DrawString(Text, Font, New SolidBrush(ForeColor), New Point(2, CInt(Height / 2 - y)))
    32. End Sub
    34. Protected Overrides Sub OnDrawItem(e As DrawItemEventArgs)
    35. MyBase.OnDrawItem(e)
    36. SetTheme(Themes)
    38. e.Graphics.DrawString(MyBase.Items(e.Index).ToString, Font, New SolidBrush(ForeColor), New Point(e.Bounds.X, CInt(e.Bounds.Y / 2)))
    39. End Sub
    41. Sub New()
    42. MyBase.New
    43. MyBase.FlatStyle = FlatStyle.Flat
    44. MyBase.Font = New Font("Verdana", 9, FontStyle.Regular)
    45. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    46. Me.SetStyle(ControlStyles.UserPaint, True)
    47. Me.DropDownStyle = ComboBoxStyle.DropDownList
    48. End Sub
    50. Private Sub MyComboBox_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Enter
    51. Invalidate()
    52. End Sub
    54. Private Sub MyComboBox_Leave(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Leave
    55. Invalidate()
    56. End Sub
    58. Private Sub MyComboBox_Resize(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Resize
    59. Invalidate()
    60. End Sub
    61. #End Region
    62. End Class
    .wife {right: 100%; margin: 0;}

    @Bianco
    CT?
    SetTheme(Themes)?
    Und:
    Integer-Division geht in VB so: Height \ 2
    =====

    Bianco schrieb:

    noch nicht richtig dargestellt
    Streiche mit der Maus über die Items, da werden alle zu Bold geändert.
    Also solltest Du ein Rück-Ändern implementieren.
    =====
    Du malst an eine falsche y-Position, das letzte Item lässt sich per Maus nicht selektieren.
    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!

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

    @RodFromGermany

    CT -> Struct mit verschienden Color-Variablen um das aktuelle Design festzuhalten.
    SetThemes(Themes) -> Ist eine Funktion, die das aktuell gewählte Design ausließt und in das Struct schreibt. Themes -> Ist die Property, die das Design enthält.

    RodFromGermany schrieb:

    Streiche mit der Maus über die Items, da werden alle zu Bold geändert.
    Also solltest Du ein Rück-Ändern implementieren.


    Ich verstehe nicht ganz, wie du das meinst, da mir die Schrift von Beginn an als "Bold" dargestellt wird.
    Ohne das ich auch nur ein einziges Mal mit der Maus über die Schrift gefahren bin.

    Allerdings hatte ich dazu schon einmal einen Code-Schnipsel gefunden, die ein ähnliches Problem beheben sollte.
    Jedoch führte das bei mir zu keinem Erfolg, wobei ich nicht ganz verstanden habe, warum diese drei Zeilen hinzugefügt werden sollten.

    VB.NET-Quellcode

    1. e.DrawBackground()
    2. e.Graphics.DrawString(Me.Items(e.Index), e.Font, New SolidBrush(ForeColor), e.Bounds.X, e.Bounds.Y)
    3. e.DrawFocusRectangle()


    Diese sollten vor dem eigentlichen DrawString. Aber was ist der Effekt, den Background zu zeichen, den String und anschließend den Focus auf das Rechteck?
    Zum Ende wird dann ja noch ein weiteres Mal der String gezeichnet.
    Zudem ist es doch eigentlich das Selbe, wenn ich ein FillRectangle oder ein DrawBackground mache, oder nicht?

    Diese ComboBox bringt mich leicht zum verzweifeln :D
    .wife {right: 100%; margin: 0;}

    Bianco schrieb:

    da mir die Schrift von Beginn an als "Bold" dargestellt wird.
    Bei mir halt nicht.
    Mach doch mal ein neues Projekt mit dem Code aus meinem Link oben, musste halt nach VB.NET übersetzen.
    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!