Hilfe bei UserControl

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

Es gibt 52 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    @Amelie Ohne System.ComponentModel und ohne Overrides, aber mit anderen Namen der Properties:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class UserControl1
    2. Private lblhight As Integer
    3. Private lineStop As Integer
    4. Private LineColor As Color
    6. Public Sub New()
    7. InitializeComponent()
    8. LineColor = Label1.ForeColor
    9. Label1.BackColor = Color.Transparent
    10. MyForeColor = Color.Red
    11. End Sub
    12. Public Property MyText As String
    13. Get
    14. Return Me.Label1.Text
    15. End Get
    16. Set(value As String)
    17. Me.Label1.Text = value
    18. End Set
    19. End Property
    21. Public Property ColorLine As Color
    22. Get
    23. Return LineColor
    24. End Get
    25. Set(value As Color)
    26. LineColor = value
    27. Invalidate()
    28. End Set
    29. End Property
    31. Public Property MyForeColor As Color
    32. Get
    33. Return Label1.ForeColor
    34. End Get
    35. Set(value As Color)
    36. Label1.ForeColor = value
    37. Label1.Invalidate()
    38. End Set
    39. End Property
    41. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    42. MyBase.OnPaint(e)
    43. lblhight = Label1.Height - 3
    44. lineStop = Label1.Width + 5
    45. e.Graphics.Clear(BackColor)
    46. Using pen As Pen = New Pen(LineColor, 2)
    47. e.Graphics.DrawLine(pen, 0, lblhight, lineStop, lblhight)
    48. End Using
    49. Me.Height = Label1.Height + 6
    50. Me.Width = lineStop + 3
    51. End Sub
    53. End Class
    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!

    Kleinigkeit: lblhight -> lblheight
    Und statt lineStop = Label1.Width + 5 -> lineStop = CInt(e.Graphics.MeasureString(Label1.Text, Label1.Font).Width)
    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.

    @VaporiZed

    ​lineStop = CInt(e.Graphics.MeasureString(Label1.Text, Label1.Font).Width)


    Soetwas suche ich für die Höhe, weil ich gemerkt habe, das der Abstand Linie zu Label ja nach Schrift-Font und Size stark variiert. Oder gibts da etwas besseres um einen genaueren Abstand zu erhalten??
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie
    :huh:
    Na 3x darfste raten. Ich korrigiere: 1x darfste schlussfolgern. Richtig: Du nimmst e.Graphics.MeasureString(Label1.Text, Label1.Font).Height, um die Höhe zu bekommen, die der Text mit der aktuellen Schriftart benötigt.
    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.

    @VaporiZed

    Das habe ich versucht doch scheinbar schwankt das zu sehr oder es schaut auf meinem Monitor nur so aus.???

    @ErfinderDesRades
    Ich schließe den dann, wenn ich soweit bin. Meine Überlegungen laufen ja parallel.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Das habe ich versucht doch scheinbar schwankt das zu sehr oder es schaut auf meinem Monitor nur so aus.???
    Was ganz genau willst Du denn erreichen?
    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!

    Das es bei jeder Schrift-Font und Size in etwas so ausschaut wie auf meinem Bildbeispiel.
    Kleines bissel tiefer sehe ich gerade ;)
    Bilder

    • Label-1.jpg

      48,1 kB, 410×144, 26 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Wie Du siehst, ist das p ausschlaggebend für die Verschiebung nach unten. Klar. Woher soll das Programm auch wissen, dass es den p-Strich nach unten ignorieren soll? Da wirst Du immer Besonderheiten bei irgendwelchen Schriftarten finden, die nicht ins Raster passen. Musst Du mal recherchieren, wie das z.B. in Schreibprogrammen gelöst wird.
    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.

    @Amelie So was:

    VB.NET-Quellcode

    1. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    2. MyBase.OnPaint(e)
    3. Dim lineStop = Label1.Width + 5
    4. e.Graphics.Clear(BackColor)
    6. Dim y = Label1.Location.Y + Label1.Height
    7. Using pen As Pen = New Pen(LineColor, 2)
    8. 'e.Graphics.DrawLine(pen, 0, lblhight, lineStop, lblhight)
    9. e.Graphics.DrawLine(pen, 0, y, lineStop, y)
    10. End Using
    11. Me.Height = Label1.Height + 6
    12. Me.Width = lineStop + 3
    13. End Sub
    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!

    wie geschrieben: irgendwas findet man sicherlich immer …
    auch mit Deinem Codevorschlag, RfG
    Bilder

    • Einspruch.png

      31,57 kB, 830×454, 27 mal angesehen
    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.

    Hier mal verschieden Fonts und Größen. Mit ein bissel Anpassung des Codes von @RodFromGermany schauts ganz gut aus.
    Daneben Worddokument... hmmm ;)
    Bilder

    • Label-12.jpg

      95,27 kB, 610×229, 24 mal angesehen

    • Label-12Word.jpg

      139,79 kB, 477×549, 23 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

Facebook
Telefonspende