Hilfe bei UserControl

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

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

    Hilfe bei UserControl

    Moin moin

    Ich wollte mir ein UserControl machen. Hatte den Code etwas geändert erst im "PaintEvent" der Form um zu sehen ob die Line auch so gezeichnet wird wie ich mir das Vorstellte. Klappe auch.
    Nun möchte ich das in ein UserControl umbauen, so das ich die Farbwerte, Start und End-Punkte usw eingeben kann.
    Begonnen mir der Pen(Dicke). In den Eigenschaften des Designers wird zwar " PWidth " angezeigt aber es lässt sich kein Wert ändern. Springt immer auf 4
    Ebenso ist nur ein leeres Control zu sehen.. siehe Bild-1. Mit dem neuen Code ist zwar die Line zu sehen aber den Wert kann ich noch immer niucht ändern.
    Weise ich dem Control eine BackgrundColor zu.. siehe Bild-2

    EDIT: Code überarbeitet hilft aber nichts.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Imports System.Drawing
    3. Public Class drawClass
    5. Public g As Graphics
    6. Dim ppWidth As Integer = 4
    7. Private ReadOnly lHight As Integer = 10
    8. Private ReadOnly lStart As Integer = 0
    9. Private ReadOnly lStop As Integer = 200
    11. Private ReadOnly Pen1 As Color = Color.FromArgb(200, 20, 20)
    12. Private ReadOnly Pen2 As Color = Color.FromArgb(250, 250, 250)
    14. Public Property PWIdth() As Integer
    15. Get
    16. Return ppWidth
    17. End Get
    18. Set(ByVal ppWidht As Integer)
    19. ppWidht = PWIdth
    20. End Set
    21. End Property
    23. Public Sub DrawgradLine(g As Graphics)
    24. Dim linGrBrush As LinearGradientBrush = New LinearGradientBrush(New Point(lStart, lHight), New Point(lStop, lHight), Pen1, Pen2)
    26. Dim pen As Pen = New Pen(linGrBrush, PWIdth)
    27. g.Clear(BackColor)
    28. g.DrawLine(pen, 0, lHight, lStop, lHight)
    30. End Sub
    32. Private Sub Me_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    33. DrawgradLine(e.Graphics)
    34. End Sub
    36. End Class

    Bilder

    • UserControl-1.jpg

      67,29 kB, 420×384, 80 mal angesehen

    • UserControl-2.jpg

      65,48 kB, 405×378, 58 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Amelie“ ()

    @Amelie Du musst den Wert auch anwenden.
    Probier mal so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Public Class drawClass
    3. Private ppWidth As Integer = 4
    4. Private ReadOnly lHight As Integer = 10
    5. Private ReadOnly lStart As Integer = 0
    6. Private ReadOnly lStop As Integer = 200
    7. Private ReadOnly Pen1 As Color = Color.FromArgb(20, 20, 20)
    8. Private ReadOnly Pen2 As Color = Color.FromArgb(250, 250, 250)
    9. Public Property PWIdth() As Integer
    10. Get
    11. Return ppWidth
    12. End Get
    13. Set(ByVal PWIdth As Integer)
    14. ppWidth = PWIdth
    15. Invalidate()
    16. End Set
    17. End Property
    19. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    20. MyBase.OnPaint(e)
    21. Using linGrBrush As LinearGradientBrush = New LinearGradientBrush(New Point(lStart, lHight), New Point(lStop, lHight), Pen1, Pen2)
    22. Dim pen As Pen = New Pen(linGrBrush, ppWidth)
    23. e.Graphics.Clear(BackColor)
    24. e.Graphics.DrawLine(pen, 0, lHight, lStop, lHight)
    25. End Using
    26. End Sub
    27. End Class
    mit diesem Aufruf:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
    3. DrawClass1.PWIdth = CInt(NumericUpDown1.Value)
    4. End Sub
    5. 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!

    Amelie schrieb:

    NumericUpDown1
    ist die Instanz eines NumericUpDown-Controld, das kannst Du aus der Toolbox auf die GUI ziehen.
    Gib ihr das Minimum 1.
    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

    Achso ;)

    Ich habe nun folgendes:

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Imports System.Drawing
    3. Public Class drawClass
    5. Public g As Graphics
    6. Private ReadOnly lHight As Integer = 0
    7. Private ReadOnly lStart As Integer = 0
    8. Public Property lStop As Integer
    10. Public Property ppThiknes As Integer = 1
    11. Public Property Pen1 As Color = Color.FromArgb(200, 20, 20)
    12. Public Property Pen2 As Color = Color.FromArgb(50, 50, 150)
    14. Public Sub DrawgradLine(g As Graphics)
    15. lStop = Me.Width
    16. Dim linGrBrush As LinearGradientBrush = New LinearGradientBrush(New Point(lStart, lHight), New Point(lStop, lHight), Pen1, Pen2)
    17. Dim pen As Pen = New Pen(linGrBrush, ppThiknes)
    18. g.Clear(BackColor)
    19. g.DrawLine(pen, 0, lHight, lStop, lHight)
    20. End Sub
    22. Private Sub Me_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    23. DrawgradLine(e.Graphics)
    24. End Sub
    26. End Class

    So lassen sich die Farben und die Liniendicke ändern. Allerdings wird es auf der Form erst sichtbar wenn ich irgendwo hinklicke.
    Irgenwie fehlt das sowas wie ein " update " ??? ;)
    Bilder

    • UserControl-3.jpg

      215,69 kB, 683×500, 72 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Mit meinem Code malt er die Linie sofort, im Design-Modus.
    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!

    @Amelie Moving Target :!:
    Poste eine vollständige und belastbare Aufgabenstellung!
    Gib den Properties einen Getter und einen Setter und im Setter rufst Du Invalidate() auf.
    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

    Aber genau das hatte ich doch. Da liese sich der Wert aber NICHT ändern. Springt hier immer auf die 5 zurück!

    VB.NET-Quellcode

    1. ​
    2. Dim ppWidth As Integer = 5
    4. Public Property ppThiknes() As Integer
    5. Get
    6. Return ppWidth
    7. End Get
    8. Set(ByVal ppWidht As Integer)
    9. ppWidht = ppThiknes
    10. Invalidate()
    11. End Set
    12. End Property
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    VB.NET-Quellcode

    1. Invalidate()
    Diese Zeile habe ich da reingebaut.
    Bei mir geht es so, wie es sein soll.
    Hier der überarbeitete Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Public Class drawClass
    3. Private ppWidth As Integer = 4
    4. Private ReadOnly lHight As Integer = 10
    5. Private ReadOnly lStart As Integer = 0
    6. Private ReadOnly lStop As Integer = 200
    8. Private _Pen1 As Color
    9. Private _Pen2 As Color
    11. Public Sub New()
    12. InitializeComponent()
    13. _Pen1 = Color.FromArgb(200, 20, 20)
    14. _Pen2 = Color.FromArgb(50, 50, 150)
    15. End Sub
    17. Public Property Pen1 As Color
    18. Get
    19. Return _Pen1
    20. End Get
    21. Set(value As Color)
    22. _Pen1 = value
    23. Invalidate()
    24. End Set
    25. End Property
    27. Public Property Pen2 As Color
    28. Get
    29. Return _Pen2
    30. End Get
    31. Set(value As Color)
    32. _Pen2 = value
    33. Invalidate()
    34. End Set
    35. End Property
    37. Public Property PWIdth() As Integer
    38. Get
    39. Return ppWidth
    40. End Get
    41. Set(ByVal PWIdth As Integer)
    42. ppWidth = PWIdth
    43. Invalidate()
    44. End Set
    45. End Property
    47. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    48. MyBase.OnPaint(e)
    49. Using linGrBrush As LinearGradientBrush = New LinearGradientBrush(New Point(lStart, lHight), New Point(lStop, lHight), Pen1, Pen2)
    50. Dim pen As Pen = New Pen(linGrBrush, ppWidth)
    51. e.Graphics.Clear(BackColor)
    52. e.Graphics.DrawLine(pen, 0, lHight, lStop, lHight)
    53. End Using
    54. End Sub
    55. 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!

    Bis auf das Du

    Quellcode

    1. ​Private ppWidth As Integer = 4
    und ich

    Quellcode

    1. ​Dim ppWidth As Integer = 4
    habe ist der Abschnitt doch gleich oder übersehe ich da etwas?
    Was macht hier dann den Unterschied Dim / Private aus??
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Was macht hier dann den Unterschied Dim / Private aus??
    Das ist das selbe, nur Private ist direkt zu lesen.
    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!

    Also habe nun nochmal hier gelesen: ... microsoft /de-de/dotnet/visual-basic/language-reference/statements/dim-statement

    So richtig verstehe ich da den Unterschied nicht ;(
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @RodFromGermany

    So habe mir ein weiteres UC gebastelt. Soweit macht es fast alles was es soll, nur ein Verhalten kann ich nicht erklären.
    Ziehe ich es auf das Form ist FontColor und LinenFarbe gleich. Soll so sein.
    Ändere ich nun die LinienFarbe und starte das Prog. nimmt die Linienfarbe wieder die FontFarbe an. hmmmmm??


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Drawing2D
    2. Imports System.ComponentModel
    4. Public Class UnderlineLabel
    6. Private lblhight As Integer
    7. Private lblwidth As Integer
    8. Private lineStop As Integer
    9. Private LineColor As Color
    10. Public Sub New()
    11. InitializeComponent()
    12. LineColor = Label1.ForeColor
    13. End Sub
    15. Public Property _Text As String
    16. Get
    17. Return Me.Label1.Text
    18. End Get
    19. Set(value As String)
    20. Me.Label1.Text = value
    21. End Set
    22. End Property
    24. Public Property ColorLine As Color
    25. Get
    26. Return LineColor
    27. End Get
    28. Set(value As Color)
    29. LineColor = value
    30. Invalidate()
    31. End Set
    32. End Property
    34. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    35. MyBase.OnPaint(e)
    36. Label1.BackColor = Color.Transparent
    37. lblhight = Label1.Height - 3
    38. lineStop = Label1.Width + 5
    39. Dim pen As Pen = New Pen(ColorLine, 2)
    40. e.Graphics.Clear(BackColor)
    41. e.Graphics.DrawLine(pen, 0, lblhight, lineStop, lblhight)
    42. Me.Height = Label1.Height + 6
    43. Me.Width = lineStop + 3
    44. End Sub
    46. 'Wird das beim Starten ausgeführt?
    47. Private Sub Label1_ForeColorChanged(sender As Object, e As EventArgs) Handles Label1.ForeColorChanged
    48. LineColor = Label1.ForeColor
    49. End Sub
    50. End Class

    Bilder

    • UserControl-4.jpg

      114,69 kB, 405×461, 67 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Nimm mal die Prozedur Label1_ForeColorChanged() raus.
    Das Übertrtagen machst Du bereits im Konstruktor.
    Mach lieber eine UnderlineLabel-Property TextColor, die die ForeColor des Labels setzt.
    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

    So scheint es nach erstenTest ´s zu funktionieren ;)
    Ich hoffe du meintest das so
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System.Drawing.Drawing2D
    3. Imports System.ComponentModel
    5. Public Class UnderlineLabel
    7. Private lblhight As Integer
    8. Private lblwidth As Integer
    9. Private lineStop As Integer
    10. Private LineColor As Color
    11. Public Sub New()
    12. InitializeComponent()
    13. LineColor = Label1.ForeColor
    14. End Sub
    16. Public Property _Text As String
    17. Get
    18. Return Me.Label1.Text
    19. End Get
    20. Set(value As String)
    21. Me.Label1.Text = value
    22. End Set
    23. End Property
    25. Public Property ColorLine As Color
    26. Get
    27. Return LineColor
    28. End Get
    29. Set(value As Color)
    30. LineColor = value
    31. Invalidate()
    32. End Set
    33. End Property
    35. Public Property _ForeColor As Color
    36. Get
    37. Return ForeColor
    38. End Get
    39. Set(value As Color)
    40. Label1.ForeColor = value
    41. Invalidate()
    42. End Set
    43. End Property
    45. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    46. MyBase.OnPaint(e)
    47. Label1.BackColor = Color.Transparent
    48. lblhight = Label1.Height - 1
    49. lineStop = Label1.Width + 5
    50. Dim pen As Pen = New Pen(ColorLine, 2)
    51. e.Graphics.Clear(BackColor)
    52. e.Graphics.DrawLine(pen, 0, lblhight, lineStop, lblhight)
    53. Me.Height = Label1.Height + 6
    54. Me.Width = lineStop + 3
    55. End Sub
    56. End Class

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Overrides hinzugefügt

    @Amelie Nicht ganz:

    VB.NET-Quellcode

    1. Public Property MyForeColor As Color
    2. Get
    3. Return Label1.ForeColor
    4. End Get
    5. Set(value As Color)
    6. Label1.ForeColor = value
    7. Label1.Invalidate()
    8. End Set
    9. End Property

    VB.NET-Quellcode

    1. Label1.BackColor = Color.Transparent
    kommt in den Konstruktor des UserControls.
    ====
    Mit Overrides kannst Du die "üblichen" Namen der Properties verwenden:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class UnderlineLabel
    3. Private lblhight As Integer
    4. Private lineStop As Integer
    5. Private LineColor As Color
    6. Public Sub New()
    7. InitializeComponent()
    8. LineColor = Label1.ForeColor
    9. Label1.BackColor = Color.Transparent
    10. End Sub
    12. Public Overrides Property Text 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 Overrides Property ForeColor 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. 'Wird das beim Starten ausgeführt?
    54. Private Sub Label1_ForeColorChanged(sender As Object, e As EventArgs) Handles Label1.ForeColorChanged
    55. LineColor = Label1.ForeColor
    56. End Sub
    57. 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!

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

    Public Overrides Property ForeColor As Color

    Hatte ich zuerst versucht aber bekam die Meldung ich müsse es auf Shared setzen, was dazu führt das es in den Eigenschaften nicht angezeigt wird.
    Ich teste gleich dein Code. ;)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @RodFromGermanynull
    Hatte Deine letzten Änderungen übernommen. Wenn ich das UC dann auf die Form zog stürzte die ganze Entwicklungsumgebung ab. Mehrmals versucht.
    Heute morgen ein neues sauberes Projekt begonnen. Es hagelt plötzlich von Fehlern.
    Sowohl bei deinem letzten und auch bei meinem letzten Code.

    Auch bei meiner GradientLine ganz oben bekomme ich heute den Fehler: " Fehler 1 "InitializeComponent" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. "

    Ich verstehe es nicht mehr????? ;(
    Habe da doch nichts mehr dran geändert
    Bilder

    • UserControl-5.jpg

      555,42 kB, 721×912, 46 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()

Facebook
Telefonspende