Größen Änderung zur Laufzeit

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Andy16823.

    Größen Änderung zur Laufzeit

    Morgen VB-Pler,

    Ich habe mir mit GDI+ ein set von Controls erstellt das ähnlich wie in der Entwiklungslaufzeit einen Rahmen mit Punkten hinzufügt. Das war ja ganz einfach nun mein Problem wie kann ich das Control zur Laufzeit Vergrößern und verkleinern


    mein code dazu:

    VB.NET-Quellcode

    1. Protected Overrides Sub OnMouseDown(e As Windows.Forms.MouseEventArgs)
    3. MyBase.OnMouseDown(e)
    4. If e.Button = Windows.Forms.MouseButtons.Left Then
    5. If rect1.Contains(e.Location) Then
    6. MyBase.Cursor = Windows.Forms.Cursors.PanNW
    7. End If
    8. If rect2.Contains(e.Location) Then
    9. MyBase.Cursor = Windows.Forms.Cursors.PanNE
    10. End If
    11. If rect3.Contains(e.Location) Then
    12. MyBase.Cursor = Windows.Forms.Cursors.PanSW
    13. End If
    14. If rect4.Contains(e.Location) Then
    15. MyBase.Cursor = Windows.Forms.Cursors.PanSE
    16. End If
    18. End If
    21. End Sub
    23. Protected Overrides Sub OnMouseMove(e As Windows.Forms.MouseEventArgs)
    24. MyBase.OnMouseMove(e)
    26. If e.Button = Windows.Forms.MouseButtons.Left Then
    27. If rect1.Contains(e.Location) Then
    29. End If
    30. If rect2.Contains(e.Location) Then
    32. End If
    33. If rect3.Contains(e.Location) Then
    35. End If
    36. If rect4.Contains(e.Location) Then
    38. End If
    39. End If
    42. End Sub
    Bilder

    • control mit rahmen.JPG

      33,68 kB, 713×678, 148 mal angesehen

    Ich hab dir mal ein Beispiel runtergetippt. Hab aber nur groessenänderung an den Ecken gemacht, musst du noch erweitern.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class sPanel
    2. Inherits Panel
    4. Private corners(3) As Rectangle 'NW,NE,SE,SW
    6. Private Enum SizeMode
    7. NW
    8. NE
    9. SE
    10. SW
    11. None
    12. End Enum
    14. Private Property sMode As SizeMode
    16. Sub New()
    17. SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    18. SetStyle(ControlStyles.ResizeRedraw, True)
    19. SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    20. MinimumSize = New Size(25, 25)
    21. MaximumSize = New Size(1000, 1000)
    22. Width = 200
    23. Height = 75
    24. sMode = SizeMode.None
    25. SetCornerRects()
    26. End Sub
    28. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    29. MyBase.OnPaint(e)
    30. With e.Graphics
    31. .FillRectangles(New SolidBrush(ForeColor), corners)
    32. End With
    33. End Sub
    35. Protected Overrides Sub OnMouseMove(e As MouseEventArgs)
    36. MyBase.OnMouseMove(e)
    37. Static startloc As Point = Location
    38. Static startcursorloc As Point = Cursor.Position
    39. Static startsize As Size = Size
    40. If e.Button = Windows.Forms.MouseButtons.Left Then
    41. Dim diff_cur As Size = New Size(Cursor.Position.X - startcursorloc.X, Cursor.Position.Y - startcursorloc.Y)
    42. Select Case sMode
    43. Case SizeMode.NW
    44. Size = New Size(startsize.Width - diff_cur.Width, startsize.Height - diff_cur.Height)
    45. Location = New Point(startloc.X - Width + startsize.Width, startloc.Y - Height + startsize.Height)
    46. Case SizeMode.NE
    47. Size = New Size(startsize.Width + diff_cur.Width, startsize.Height - diff_cur.Height)
    48. Location = New Point(startloc.X, startloc.Y - Height + startsize.Height)
    49. Case SizeMode.SE
    50. Size = New Size(startsize.Width + diff_cur.Width, startsize.Height + diff_cur.Height)
    51. Case SizeMode.SW
    52. Size = New Size(startsize.Width - diff_cur.Width, startsize.Height + diff_cur.Height)
    53. Location = New Point(startloc.X - Width + startsize.Width, startloc.Y)
    54. End Select
    55. SetCornerRects()
    56. Else
    57. startloc = Location
    58. startcursorloc = Cursor.Position
    59. startsize = Size
    60. SetCornerRects()
    61. Dim mr As New Rectangle(e.X, e.Y, 1, 1)
    62. For i = 0 To 3
    63. If mr.IntersectsWith(corners(i)) Then
    64. Select Case i
    65. Case 0
    66. Cursor = Cursors.SizeNWSE
    67. sMode = SizeMode.NW
    68. Exit For
    69. Case 1
    70. Cursor = Cursors.SizeNESW
    71. sMode = SizeMode.NE
    72. Exit For
    73. Case 2
    74. Cursor = Cursors.SizeNWSE
    75. sMode = SizeMode.SE
    76. Exit For
    77. Case 3
    78. Cursor = Cursors.SizeNESW
    79. sMode = SizeMode.SW
    80. Exit For
    81. End Select
    82. Else
    83. Cursor = Cursors.Arrow
    84. sMode = SizeMode.None
    85. End If
    86. Next
    87. End If
    88. End Sub
    90. Private Sub SetCornerRects()
    91. corners(0) = New Rectangle(0, 0, 5, 5)
    92. corners(1) = New Rectangle(Width - 5, 0, 5, 5)
    93. corners(2) = New Rectangle(Width - 5, Height - 5, 5, 5)
    94. corners(3) = New Rectangle(0, Height - 5, 5, 5)
    95. End Sub
    97. End Class

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

    @nafets3646 ich will eine Art Design Surface Erstellen, also eine Control Sammlung die man während der Laufzeit Verschieben und Verändern kann.

    @Derfuhr Danke für den Code werde Ihn Ausprobieren

    Grüße Andy

    Sorry für OT: We wäre es, wenn du Dir GDI+ erstmal ausgiebig mit den Grundlagen zusammen ansiehst? Den Code zusammenstellen zu lassen ist sicherlich keine Dauerlösung.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende