Problem mit Location

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Vatter.

    Problem mit Location

    Hallo,

    ich hab ein Problem.
    Ich erstelle mehrere Panels per Code.
    Und mein Problem ist nun, das ich es einfach nicht hinbekomme, die Location jedes mal wenn ein neues Panel erstellt wird, etwas zu ändern.
    Ich hoffe ihr könnt mir weiterhelfen, ich probier auch schon die ganze Zeit hier aus usw. und gesucht hab ich auch schon und nichts gefunden.

    Mit freundlichen Grüßen pc-freack

    VB.NET-Quellcode

    1. Panel1.Location = New Point(<X Position>, <Y Position>)

    oder relativ zu 'nem anderen Panel:

    VB.NET-Quellcode

    1. Panel2.Location = New Point(Panel1.Location.X + 5, Panel1.Location.Y + 5)



    link_275 :thumbup:
    Hello World

    Öffel.Location = new Point(x,y)
    x+=soviel
    y+= soviel

    @ pc-freack ma ehrlich: Ich habe den Eindruck, dass du dir deinen Code hier Zeile für Zeile zusammenfragst. Liest du auch mal ein Grundlagenbuch oder so?
    Kennst du gallileo Openbook?
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Mit dem Code erstelle ich ein panel:

    VB.NET-Quellcode

    1. Public Sub newtextfile(ByVal filename As String, Optional ByVal localnew As Boolean = True)
    2. Try
    4. If localnew = True Then
    5. writefile(filename)
    6. End If
    8. Dim filenamelabel As New Label
    9. filenamelabel.Text = filename
    10. filename1 = filename
    11. filenamelabel.Location = New Point(3, 53)
    12. filenamelabel.Size = New Size(58, 13)
    13. filenamelabel.AutoSize = False
    14. filenamelabel.TextAlign = ContentAlignment.MiddleCenter
    16. Dim pb As New Button
    17. pb.Size = New Size(64, 50)
    18. pb.Location = New Point(0, 0)
    19. pb.Image = My.Resources.aaaa
    21. Dim txtfile As New Panel
    22. txtfile.Size = New Size(65, 72)
    23. txtfile.Location = New Point(Cursor.Position.X + 50, Cursor.Position.Y + 50)
    24. txtfile.Controls.Add(filenamelabel)
    25. txtfile.Controls.Add(pb)
    26. txtfile.ContextMenuStrip = file_cm
    27. txtfile.Visible = True
    28. txtfile.BackColor = Color.Transparent
    29. txtfile.Parent = Me
    30. AddHandler pb.Click, AddressOf Button_Click
    31. AddHandler txtfile.MouseDown, AddressOf Panel_MouseDown
    32. AddHandler txtfile.MouseMove, AddressOf Panel_MouseMove
    33. Catch ex As Exception
    34. MsgBox(ex.Message)
    35. End Try
    36. End Sub


    Und an der stelle ist mein Problem:

    VB.NET-Quellcode

    1. txtfile.Location = New Point(Cursor.Position.X + 50, Cursor.Position.Y + 50)


    Und das Problem ist, das sich die location anscheinend nicht ändern, weil beim 2. mal, wenn der code aufgerufen wird, dann ist das 2. Panel nicht sichtbar.

    @Vatter
    Nein, den meisten Code schreibe ich selbst doch wenn ich ein Problem habe und auch nichts dazu finde, dann rstelle ich erst einen thread.

    Wenn das 2. Panel eine andere Position als das erste haben soll, mußt du die alte Position abfragen (siehe link_275) oder den errechneten Punkt global speichern und inkrementieren.
    Beachte außerdem, dass dir Cursor.Position die Position Bildschirmbasiert ausgibt und nicht Formbasiert. msdn.microsoft.com/de-de/libra…orms.cursor.position.aspx Mit PointToClient kannst du umrechnen.
    Wie gesagt: Is auch nich bös gemeint, aber du solltest dich mit den Codeschnipseln, die du aufschreibst beschäftigen und verstehe, was die machen. ;)
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    link_275 schrieb:

    Die Koordinaten innerhalb der Form, das wird interessant für dich sein
    Stümmt, aber nur, wenn er e aus einem Event wie z.B. MouseMove als Parameter an die Sub übergebn tut oder global deklariert abspeichort.
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup: