Problem bei runde Labels erzeugen.

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von snowcrack.

    Problem bei runde Labels erzeugen.

    Hallo zusammen

    Beim Erstellen vom 6*7 labels bekomme ich statt 42 nur 21 runde Labels angezeigt. Ich komm einfach nicht auf den Fehler.

    VB.NET-Quellcode

    1. '6*7 Labels erzeugen
    2. For i1 = 1 To 6
    4. For i2 = 1 To 7
    6. lbl = New Label
    8. With lbl
    9. .Region = New Region(Rund)
    10. .Width = 50
    11. .Height = 50
    12. .Top = 100 + (i1 - 1) * 60
    13. .Left = 30 + (i2 - 1) * 60
    14. .BackColor = Color.White
    15. .Name = "lbl" & i1 & i2
    16. End With
    17. Me.Controls.Add(lbl)
    18. Next
    20. Next


    VB.NET-Quellcode

    1. Function Rund() As System.Drawing.Drawing2D.GraphicsPath
    2. path.AddEllipse(New Rectangle(0, 0, 50, 50))
    4. Return path
    5. End Function

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „snowcrack“ ()

    Hallo, grundsätzlich sehe ich keinen Fehler. Unter der Vorraussetzung, das path auch in Rund() deklariert wird.

    VB.NET-Quellcode

    1. Function Rund() As GraphicsPath
    2. Dim path As New GraphicsPath()
    3. path.AddEllipse(New Rectangle(0, 0, 50, 50))
    5. Return path
    6. End Function


    Dann habe ich lbl noch am Anfang der Methode deklariert:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim lbl As Label


    Dann funktionierte bei mir alles perfekt.

    Der Kopf
    (Global deklariert)

    VB.NET-Quellcode

    1. Private iRnd As New Random
    2. Private btn As Button
    3. Private lbl As Label
    4. Private bSp1, bSp2 As Boolean
    5. Private sArray(6, 7) As String
    6. Private path As New System.Drawing.Drawing2D.GraphicsPath

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

    Simpler Fehler :D ;)
    Du fügst jedesmal eine neue Ellipse zum Pfad hinzu. Der Pfad ist Standartmäßig so programmiert, dass doppelt zu zeichnende Bereiche nicht gezeichnet werden. D.h. erzeuge den Pfad nur einmal und es geht:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. 'Pfad erstellen
    3. Rund()
    4. 'Region erstellen
    5. Dim Region As New Region(path)
    7. '6*7 Labels erzeugen
    8. For i1 = 1 To 6
    10. For i2 = 1 To 7
    12. lbl = New Label
    14. With lbl
    15. 'Die Region zuweisen
    16. .Region = Region
    17. .Width = 50
    18. .Height = 50
    19. .Top = 100 + (i1 - 1) * 60
    20. .Left = 30 + (i2 - 1) * 60
    21. .BackColor = Color.White
    22. .Name = "lbl" & i1 & i2
    23. End With
    24. Me.Controls.Add(lbl)
    25. Next
    27. Next
    28. End Sub
    31. Function Rund() As GraphicsPath
    32. path.AddEllipse(New Rectangle(0, 0, 50, 50))
    34. Return path
    35. End Function

Facebook
Telefonspende