Picture und Label bewegen sich!

  • VB.NET

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

    Picture und Label bewegen sich!

    Hallo,

    ich habe mal wieder ein Programm gemacht und habe da Picture bild und Label hingemacht.
    Ich will das sich die Sachen bewegen!
    Hin und her!
    Eins muss noch dabei sein nähmlich:

    Wenn es die Form berüht dann soll es in einer anderen richtung gehen!

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

    Location.
    New Point.

    Evtl. Timer für dauerhafte Bewegung.
    Ach ja und: Eigeninitative.
    „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.

    Ich weiß doch nicht was du genau willst.

    Hier Beispielcode. Füge ihn in einen Button ein und verstehe ihn.

    VB.NET-Quellcode

    1. Panel1.Location = New Point(Panel1.Location.X, Panel1.Location.Y + 5)
    „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.

    Hab oben noch nen kleinen Fehler rauseditiert.

    Edit: Vielleicht nen Timer verwenden!?
    „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.

    Wer "nämlich" mit h schreibt ist dähmlich^^

    Mal mit zwei Timer

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim LeftCount As Integer = 10
    3. Dim RightCount As Integer = 10
    4. Private Sub Valdiation_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valdiation.Tick
    8. If LeftCount = 0 Then
    9. Valdiation.Enabled = False
    10. NStore.Enabled = True
    12. RightCount = 10
    14. Else
    16. LeftCount = LeftCount - 1
    18. DingDong.Location = New Point(DingDong.Location.X - 1, DingDong.Location.Y)
    20. End If
    24. End Sub
    26. Private Sub NStore_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NStore.Tick
    29. If RightCount = 0 Then
    30. Valdiation.Enabled = True
    31. NStore.Enabled = False
    32. LeftCount = 10
    34. Else
    36. RightCount = RightCount - 1
    38. DingDong.Location = New Point(DingDong.Location.X + 1, DingDong.Location.Y)
    40. End If
    42. End Sub
    43. End Class