Eigene Form - Resizeable

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

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

    Eigene Form - Resizeable

    Hallo.
    Und zwar habe ich jetzt eine eigene Form erstellt (per Inherits Form).

    Soweit klappt alles gut, jedoch würde ich gerne die Form unten Rechts in
    der Ecke resizen können ( so wie bei Mac Os X).

    Weiß jemand wie das funktioniert?


    Des Weiteren wird meine Form erst im Debug angezeigt,
    im IDE Designer jedoch nach erfolgreicher Vererbung nicht.
    Muss man da noch eine Property hinzufügen oder soetwas?

    Daniel Baumert schrieb:

    im IDE Designer jedoch nach erfolgreicher Vererbung nicht.
    Hast Du einen expliziten Konstruktor mit explizitem InitializeComponents()-Aufruf?
    -----
    Poste mal von dieser Form New() und InitializeComponents().
    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!

    Der Code sieht so aus:

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Infer Off
    3. Imports System.Runtime.InteropServices
    4. Public Class Design : Inherits Form
    6. Private Sub Round(x As Integer, y As Integer, width As Integer, height As Integer, radius As Integer, T As Form)
    7. Dim gp As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath()
    8. gp.AddLine(x + radius, y, x + width - radius, y)
    9. gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
    11. gp.AddLine(x + width, y + radius, x + width, y + height - radius)
    12. gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
    13. gp.AddLine(x + width - radius, y + height, x + radius, y + height)
    14. gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
    15. gp.AddLine(x, y + height - radius, x, y + radius)
    16. gp.AddArc(x, y, radius, radius, 180, 90)
    17. gp.CloseFigure()
    18. T.Region = New System.Drawing.Region(gp)
    19. gp.Dispose()
    20. End Sub
    22. Private EdgeTopLeft, EdgeTopRight, EdgeBottomLeft, EdgeBottomRight, Middle, FormBgCol, SideL, SideR As Bitmap
    23. Public Sub New()
    24. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    26. Me.Size = New Size(107, 95)
    27. Me.DoubleBuffered = True
    28. Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    29. Me.SetStyle(ControlStyles.FixedHeight, True)
    30. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    31. Me.SetStyle(ControlStyles.ResizeRedraw, True)
    32. Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    33. Me.SetStyle(ControlStyles.UserPaint, True)
    35. EdgeTopLeft = My.Resources.EdgeL
    36. EdgeTopRight = My.Resources.EdgeR
    37. EdgeBottomLeft = My.Resources.BottomL
    38. EdgeBottomRight = My.Resources.BottomR
    39. FormBgCol = My.Resources.FillColor
    40. Middle = My.Resources.Middle
    41. SideL = My.Resources.SideL
    42. SideR = My.Resources.SideR
    43. End Sub
    45. Public Sub Redraw(ausgabe As Graphics)
    47. Dim gr As Graphics = ausgabe
    48. gr.Clear(Me.BackColor)
    49. Dim topcz As Size = New Size(EdgeTopLeft.Width, EdgeTopLeft.Height)
    50. gr.DrawImage(EdgeTopLeft, 1, 1, topcz.Width, topcz.Height)
    51. gr.DrawImage(EdgeTopRight, Me.Width - 1 - topcz.Width, 1, topcz.Width, topcz.Height)
    53. For b As Integer = topcz.Width To Me.Size.Width - (topcz.Width - 1)
    54. gr.DrawImage(Middle, b, 1, Middle.Width, Middle.Height)
    55. Next
    57. Dim green As Bitmap = My.Resources.Green
    58. Dim red As Bitmap = My.Resources.red
    59. Dim yellow As Bitmap = My.Resources.yellow
    60. Dim si As Size = New Size(green.Width, green.Height)
    62. Dim ypo As Short = 6
    63. gr.DrawImage(red, 9, ypo, si.Width, si.Height)
    64. gr.DrawImage(yellow, 9 + si.Width + 6, ypo, si.Width, si.Height)
    65. gr.DrawImage(green, 9 + si.Width * 2 + 12, ypo, si.Width, si.Height)
    67. Dim WorkingareaWithoutCorners As New Size()
    68. WorkingareaWithoutCorners.Height = Me.Height - EdgeBottomLeft.Height + 2
    69. WorkingareaWithoutCorners.Width = Me.Width - EdgeTopLeft.Width
    71. For x As Integer = EdgeTopLeft.Width - 7 To WorkingareaWithoutCorners.Width + 7
    72. For y As Integer = EdgeTopLeft.Height To WorkingareaWithoutCorners.Height
    73. gr.DrawImage(FormBgCol, x, y, 1, 1)
    74. Next
    75. Next
    77. Round(1, 1, Me.Width - 2, Me.Height - 2, 10, Me)
    79. Dim tc As New Size(SideL.Width, SideR.Height)
    80. For z As Integer = EdgeTopLeft.Height To Me.Width
    81. gr.DrawImage(SideL, tc.Width - 1, z, tc.Width, tc.Height)
    82. gr.DrawImage(SideR, Me.Width - 1 - tc.Width, z, tc.Width, tc.Height)
    83. Next
    85. End Sub
    86. Protected Overrides Sub OnPaint(pevent As System.Windows.Forms.PaintEventArgs)
    87. Redraw(pevent.Graphics)
    88. End Sub
    90. Private Sub InitializeComponent()
    91. Me.SuspendLayout()
    92. '
    93. 'Design
    94. '
    95. Me.ClientSize = New System.Drawing.Size(284, 261)
    96. Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    97. Me.Name = "Design"
    98. Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    99. Me.ResumeLayout(False)
    101. End Sub
    102. End Class


    Es besteht zudem noch das Problem, dass man die Form bei Laufzeit nicht bewegen kann.

    Daniel Baumert schrieb:

    VB.NET-Quellcode

    1. Private Sub InitializeComponent()
    wird nicht aufgeerufen, pack den Aufruf als erstes in Konstruktor.
    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!

Facebook
Telefonspende