GDI + - Form Rand erstellen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Vb K1ng.

    GDI + - Form Rand erstellen

    Hej liebe Community-User,
    Ich habe meine Form aberundet und möchte nun einen Rand zeichnen (innere Rand).
    Ich weiß, dass dies mit drawArc möglich ist, womit ich mich irgendwie überhaupt nicht auskenne.

    DrawArc hat zwei zusätzliche Parameter die als ° angegeben werden.

    Kennt sich vielleicht jemand damit aus ?

    Wäre auch für Links und Codeschnipsel dankbar !

    mfg,
    VB K1ng

    Vielen Dank EiPott!



    Falls jemand das gleiche Problem hat:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub DrawRoundedRectangle(ByVal g As Graphics, _
    2. ByVal r As Rectangle, _
    3. ByVal radius As Single, _
    4. ByVal borderColor As Color)
    6. ' GraphicsPath erstellen
    7. Dim path As GraphicsPath = RectanglePath(r, radius)
    9. ' Rechteck mit angerundeten Ecken zeichnen
    10. g.DrawPath(New Pen(borderColor, 10), path)
    12. ' Ressourcen freigeben
    13. path.Dispose()
    14. End Sub
    15. Private Function RectanglePath(ByVal r As RectangleF, _
    16. ByVal radius As Single) As GraphicsPath
    18. ' Neues GraphicsPath-Objekt erstellen
    19. Dim path As New GraphicsPath
    20. Dim d As Single = 2 * radius
    22. ' Zusammensetzen des GraphicsPath
    23. With path
    24. If radius < 1 Then
    25. ' keine abgerundeten Ecken
    26. .AddRectangle(r)
    27. Else
    28. ' Linien und Bögen erstellen
    29. .AddLine(r.X + radius, r.Y, r.X + r.Width - d, r.Y)
    30. .AddArc(r.X + r.Width - d, r.Y, d, d, 270, 90)
    31. .AddLine(r.X + r.Width, r.Y + radius, r.X + r.Width, r.Y + r.Height - d)
    32. .AddArc(r.X + r.Width - d, r.Y + r.Height - d, d, d, 0, 90)
    33. .AddLine(r.X + r.Width - d, r.Y + r.Height, r.X + radius, r.Y + r.Height)
    34. .AddArc(r.X, r.Y + r.Height - d, d, d, 90, 90)
    35. .AddLine(r.X, r.Y + r.Height - d, r.X, r.Y + radius)
    36. .AddArc(r.X, r.Y, d, d, 180, 90)
    37. End If
    38. .CloseFigure()
    39. End With
    41. Return (path)
    42. End Function
    43. Private Sub form_main_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    44. ' Rechteck -Größe
    45. Dim r As Rectangle
    46. With Me
    47. r = New Rectangle(0, 0, .Width - 1, .Height - 1)
    48. End With
    50. ' Rundung in Pixel
    51. Dim radius As Single = 20
    53. ' abgerundetes Rechteck mit Farbverlauf zeichnen
    54. DrawRoundedRectangle(e.Graphics, r, radius, Color.RoyalBlue)
    55. End Sub

Facebook
Telefonspende