Panel Location ändern

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Lukas.

    Panel Location ändern

    Hi Com,

    Ich bin gerade dabei ein kleines Spiel zu programmieren. Jetzt bin ich dabei wenn ein Panel ein anderes Panal berührt dann soll etwas passieren! (soweit fertig!)
    Jetzt soll das Panel(beweglich!) wieder zu dem Startpunkt gehen.

    Hier mein Code:

    VB.NET-Quellcode

    1. If (Panel2.Bounds.IntersectsWith(Panel1.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel3.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel4.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel5.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel6.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel7.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel8.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel9.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel11.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel12.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel13.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel14.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel15.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel16.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel17.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel18.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel19.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel20.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel21.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel22.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel23.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel24.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel25.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel26.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel27.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel28.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel29.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel30.Bounds)) Or (Panel2.Bounds.IntersectsWith(Panel31.Bounds)) Then
    2. Timer2.Enabled = False
    3. Timer1.Enabled = False
    4. Panel2.Location = New Point(Panel2.Location.X = 340, Panel2.Location.Y = 92)
    5. MsgBox("Fail")
    6. Timer3.Enabled = True
    7. Timer2.Enabled = True
    8. Timer1.Enabled = True
    10. Timer4.Enabled = True
    11. Timer4.Enabled = False
    12. End If


    VB.NET-Quellcode

    1. Panel2.Location = New Point(Panel2.Location.X = 340, Panel2.Location.Y = 92)


    Funktioniert leider nicht ;(

    mfg. TwiTIn

    Meine Güte. Nenn uns die Fehlermeldung, ich kopier das jetz nich in die IDE um hier über die Meldung bei dir spekulieren zu können.

    Versuchs mit:

    VB.NET-Quellcode

    1. New Location(foo, yetanothertrollingshit)
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    TwiTIn schrieb:

    Nein leider nicht da wird der erste wert leider unterstrichen!

    Bei mir nicht.

    Lukas schrieb:

    Meine Güte. Nenn uns die Fehlermeldung, ich kopier das jetz nich in die IDE um hier über die Meldung bei dir spekulieren zu können.
    Bilder

    • Panel.jpg

      10,85 kB, 774×60, 143 mal angesehen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann war das wohl ein klassischer C&P-Fail. :D

    Zeig uns den aktuellen Code.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

Facebook
Telefonspende