Button Position

  • VB.NET
  • .NET (FX) 4.0

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Otti.

    Button Position

    Hallo zusammen, hab mal eine ganz dumme Frage...
    Was mache ich falsch?

    Der Button wechselt die Position im Sek. Tackt und ich möchte die Position an einem bestimmten Punkt abfagen.

    Danke für eure Hilfe

    Quellcode

    1. Private Sub Startform1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. Button1.Location = New Point(Button1.Location.X + 10, Button1.Location.Y + 10)
    3. End Sub
    4. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    5. If Button1.Location.X = 100 Then
    6. MsgBox("bin da")
    7. Else
    8. Button1.Location = New Point(Button1.Location.X + 10, Button1.Location.Y + 10)
    9. End If
    10. End Sub

    Otti schrieb:

    Was mache ich falsch?
    Dein Button liegt initial nicht auf einem 10er Raster.
    Außerdem musst Du den Timer in der Timer_Tick stoppen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Startform1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. Button1.Location = New Point(10, 10)
    4. End Sub
    5. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    6. If Button1.Location.X = 100 Then
    7. Timer1.Stop()
    8. MessageBox.Show("bin da")
    9. Else
    10. Button1.Location = New Point(Button1.Location.X + 10, Button1.Location.Y + 10)
    11. End If
    12. End Sub
    13. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    14. Timer1.Start()
    15. End Sub
    16. End Class
    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!