Button Position verändern

  • VB.NET

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

    Button Position verändern

    Hallo Forum

    Ich habe eine kleine Frage : Wie kann ich die Position eines Buttons in der Form zufällig verändern ?

    Ich habs schon mit

    Button1.location.x = 12 zB. probiert doch das funktioniert irgendwie nicht.

    Ich bin halt noch Anfänger. ^^

    Hier eine kleine vollständige C&P-Demo :)

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private x As Integer = 0
    4. Private y As Integer = 0
    5. Private rdm As New Random
    6. Private btnRun As New Button
    8. Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Me.Controls.Add(btnRun)
    10. With btnRun
    11. .Height = 40
    12. .Width = 150
    13. .Text = "Catch me if you can !!!"
    15. AddHandler .LocationChanged, AddressOf Me.btn_LocationChanged
    16. AddHandler .MouseEnter, AddressOf Me.btn_MouseEnter
    17. AddHandler .Click, AddressOf Me.btn_Click
    18. End With
    19. End Sub
    21. Private Sub btn_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    22. x = rdm.Next(0, Me.Width - DirectCast(sender, Button).Width)
    23. rdm.Next()
    24. y = rdm.Next(0, Me.Height - DirectCast(sender, Button).Height)
    25. End Sub
    27. Private Sub btn_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs)
    28. DirectCast(sender, Button).Location = New Point(x, y)
    29. End Sub
    31. Private Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    32. MessageBox.Show("Erwischt !!!", DirectCast(sender, Button).Name, MessageBoxButtons.OK, MessageBoxIcon.Information)
    33. End Sub
    35. End Class

Facebook
Telefonspende