UserControl erstellen
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von Nuramon96.
-
-
-
-
-
Nuramon96 schrieb:
also es soll noch nichtes besonderes leisten ich will einfach nur mal probieren wie sowas geht.
ach und dann kennt ihr vllt noch ein Tut über GDI+?
Control mit beweglicher Figur -
-
-
-
-
-
ich hab selber gegoogelt. hab aber neben meinen eigenen recherchen auch mal gefragt. ist doch nicht so schlimm oder?
Edit:
@ SystemUnknown: Das mit den Abgerundeten Ecken klappt nicht der zeichnet mir nur die obere Linie und die Ecke rechts oben und die rechte linie den rest zeichnet der entweder gar nit oder nicht so wie es sollte. und ich hab den Code mehrmals überprüft :
VB.NET-Quellcode
- With path
- If radius < 1 Then
- ' Keine Abgerundeten Ecken
- .AddRectangle(rect)
- Else
- .AddLine(rect.X + d, rect.Y, rect.Width - d, rect.Y) ' Top
- .AddArc(rect.X + rect.Width - d, rect.Y, d, d, 270, 90)
- .AddLine(rect.X + rect.Width - 1, rect.Y + d, rect.X + rect.Width - 1, rect.Y + rect.Height - d) ' right
- .AddArc(rect.X + rect.Width, rect.Y + rect.Height, d, d, 180, 90)
- .AddLine(rect.X + rect.Height - d, rect.Y + rect.Height - 1, rect.X + d, rect.Y + rect.Height - 1) 'bottom
- End If
- .CloseFigure()
- End With
im Anhang ist das ergebnis vom Code bei mirDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nuramon96“ ()
-
Du zeichnest ja auch nur die Hälfte
1. obere Linie
2. Radius rechts oben
3. rechte Linie
4. Radius rechts unten
5. untere Linie
Dann wird die Figur (ohne Radius links unen und oben) einfach geschlossen.
Das Ergebnis muß exakt so aussehen, wie auf deinem Bild
kleiner Tipp: Zeichne dir die Figur mal auf kariertes oder Millimeterpapier und dann schreib den Code Strich/Radius für Strich/Radius
Fiel Fergnügen
VatterSeit 26.Mai 2012 Oppa! -
ich weiß das das nur die hälfte ist, weil ab da stimmt es nicht mehr weil die untere Linie und der rechte untere radius werden nicht richtig gezeichnet und das ist das Problem.
Edit: So ich hab den Code nochmal überarbeitet und wirklich alles ausprobiert was mir eingefallen ist aber es will immer noch nicht klappen.
VB.NET-Quellcode
- With path
- If radius < 1 Then
- ' Keine Abgerundeten Ecken
- .AddRectangle(rect)
- Else
- .AddLine(rect.X + d, rect.Y, rect.X + rect.Width - d, rect.Y)
- .AddArc(rect.X + rect.Width - d, rect.Y, d, d, 270, 90)
- .AddLine(rect.X + rect.Width - 1, rect.Y + d / 2, rect.X + rect.Width - 1, rect.Y + rect.Height - d / 2)
- .AddArc(rect.X + rect.Width - 1, rect.Y + rect.Height - d, d, d, 270, 90)
- .AddLine(rect.X + rect.Width - d, rect.Y + rect.Height - 1, rect.X + d, rect.Y + rect.Height - 1)
- .AddArc(rect.X + d, rect.Y + rect.Height, d, d, 0, 90)
- .AddLine(rect.X, rect.Y + rect.Height - d, rect.X, rect.Y + d)
- .AddArc(rect.X, rect.Y + d, d, d, 0, 90)
- End If
- .CloseFigure()
- End With
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nuramon96“ ()
-
-
es hat funktioniert danke für die Hilfe.
Hier nochmal mein Code :
VB.NET-Quellcode
- Private Function RectanglePath(ByVal rect As RectangleF, ByVal radius As Integer) As GraphicsPath
- Dim path As New GraphicsPath
- Dim d As Single = 2 * radius
- Dim edgeSize As New SizeF(d, d)
- Dim rect_radius As New RectangleF(rect.Location, edgeSize)
- ' Rectangle wird zusammengesetzt:
- With path
- If radius < 1 Then
- ' Keine Abgerundeten Ecken
- .AddRectangle(rect)
- Else
- .AddArc(rect_radius, 180, 90)
- rect_radius.X = rect.Right - d - 1
- .AddArc(rect_radius, 270, 90)
- rect_radius.Y = rect.Bottom - d - 1
- .AddArc(rect_radius, 0, 90)
- rect_radius.X = rect.Left
- .AddArc(rect_radius, 90, 90)
- .CloseFigure()
- End If
- End With
Edit2: wie kann man den Hintergrund des Controls Transparent machen ?
und das ergebnis:Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Nuramon96“ ()
-
-
-
Ähnliche Themen
-
Button1_click - - Sonstige Problemstellungen
-
3 Benutzer haben hier geschrieben
- Gast (14)
- ErfinderDesRades (2)
- Vatter (1)