Fehler bei UserControl - Panel wird beim verschieben verzerrt

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Breadsoft.

    Fehler bei UserControl - Panel wird beim verschieben verzerrt

    Hallo,
    ich bastel gerade an einem kleinen Control, welches als AnAus Switch dienen soll. Es klappt bis jetzt auch alles prima, nur wird der Schieber(ein Panel) extrem verzerrt, wenn man ihn verschiebt:



    Hier wäre der Code (es sind viele Sachen drin, die noch geändert werden müssen bzw. noch nicht fertig sind)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.ComponentModel
    4. Public Class MetroSwitch
    5. Inherits System.Windows.Forms.UserControl
    6. Private Pos As Point
    7. Dim WithEvents schieber As New Panel
    8. Public Event CheckedChanged()
    10. Public Enum OnOff
    11. an
    12. aus
    13. End Enum
    15. Enum state
    16. hover
    17. click
    18. End Enum
    20. Dim _Currentstate As state
    22. <DefaultValue(OnOff.aus), _
    23. Description("Status des Controls, also An oder Aus.")> _
    24. Public Property Status() As OnOff
    25. Get
    26. Return CType(_Currentstate, OnOff)
    27. End Get
    28. Set(ByVal Value As OnOff)
    29. If _Currentstate <> Value Then
    30. _Currentstate = CType(Value, state)
    31. Me.Invalidate()
    32. End If
    33. End Set
    34. End Property
    36. Public Sub New()
    37. Me.Status = OnOff.aus
    38. Me.Size = New Size(130, 30)
    39. Me.DoubleBuffered = True
    40. With schieber
    41. .BackColor = Color.Red
    42. .Location = New Point(0, 0)
    43. .Size = New Size(Me.Size.Width - 80, Me.Size.Height)
    44. Me.Controls.Add(schieber)
    45. End With
    46. End Sub
    48. Protected Overrides Sub OnResize(ByVal e As EventArgs)
    49. Me.Size = New Size(130, 30)
    50. End Sub
    52. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    53. With e.Graphics
    54. .FillRectangle(Brushes.DarkGray, New Rectangle(0, 0, Me.Size.Width, Me.Size.Height))
    55. .DrawRectangle(Pens.Black, New Rectangle(0, 0, Me.Size.Width - 1, Me.Size.Height - 1))
    56. End With
    58. MyBase.OnPaint(e)
    59. End Sub
    61. Private Sub schieber_MouseDown(sender As Object, e As MouseEventArgs) Handles schieber.MouseDown
    62. If e.Button = Windows.Forms.MouseButtons.Left Then
    63. Pos = New Point(e.Location.X, e.Location.Y)
    64. End If
    65. End Sub
    67. Private Sub schieber_MouseMove(sender As Object, e As MouseEventArgs) Handles schieber.MouseMove
    69. If e.Button = Windows.Forms.MouseButtons.Left Then
    70. Dim loc As New Point(0, 0)
    71. ' Dim p As New Point(loc + (e.Location - Pos))
    72. Dim p As New Point(e.Location.X - Pos.X, e.Location.Y - Pos.Y)
    74. p.Y = 0
    76. 'Damit es nicht zu weit nach rechts/links verschoben werden kann
    77. If p.X < 0 Then
    78. p = New Point(0, schieber.Location.Y)
    79. ElseIf p.X >= 95 Then
    80. p = New Point(60, schieber.Location.Y)
    81. End If
    83. schieber.Location = p
    85. End If
    86. End Sub
    88. Private Sub schieber_MouseUp(sender As Object, e As MouseEventArgs) Handles schieber.MouseUp
    89. If e.Button = Windows.Forms.MouseButtons.Left Then
    90. If Status = OnOff.aus AndAlso schieber.Location.X > 0 Then
    91. schieber.Location = New Point(80, schieber.Location.Y)
    92. schieber.BackColor = Color.Green
    93. Status = OnOff.an
    94. ElseIf Status = OnOff.an AndAlso schieber.Location.X < 75 Then
    95. schieber.Location = New Point(0, schieber.Location.Y)
    96. schieber.BackColor = Color.Red
    97. Status = OnOff.aus
    98. End If
    99. End If
    100. End Sub
    101. End Class


    Ich hoffe, ihr könnt mir helfen. Es geht erstmal darum, woran es liegt, dass das Panel so verzerrt wird.
    Oder, was natürlich noch besser wäre, wie kann ich das ohne Panel machen bzw. geht das auch mit GDI?

    Freue mich auf eure Antworten.
    Mfg
    Vincent

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VincentTB“ () aus folgendem Grund: Option Strict On

    VincentTB schrieb:

    Ich hoffe, ihr könnt mir helfen, auch wenn ich kein Option Strict On verwende (noch nicht).
    Ja wann denn?
    Da häuft sich ja ein immer größerer Fehlerberg an.
    Und wenn dann noch C&P-Code mit Strict Off kommt, ...
    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 einzige, was mir als Fehler angezeigt wird, ist die aus dem Internet kopierte Sub "abrunden", die ich wirklich nur ausprobiert habe, aber ich finde, dass sieht mit runden Ecken auch gar nicht gut aus. In meinem Projekt ist "abrunden" bereits draußen, werde den Code hier mal aktualisieren.
    Mfg
    Vincent

    Also ich würde da kein Panel nehmen. Ich hab auch letztens ein Schalter Control gemacht, bei dem beim draufklicken der Zustand sich ändert. Ich habe das mit e.Graphics.FillRectangle & e.Graphics.DrawRectangle und halt ein paar Berechnungen gemacht. Ist auch nicht schwer.

    EDIT: Hier auf der Website noch zwei Funktionen um runde Rechtecke zu zeichnen und zu füllen.

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

Facebook