Computer soll buttons setzen eigensinnig

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Kangaroo.

    Computer soll buttons setzen eigensinnig

    Also ich würde gerne wissen wie ich es zu stande bringe den code zu programmieren
    das wenn ich zb auf button1 klicke, der computer dann button2 irgendwo in die form setzt aber das entscheide ich nicht wo

    Ich hoffe es ist nicht wieder so eine total simple lösung ... =D

    Hoffe auf schnelle hilfe :)

    Alufolie schrieb:

    Me.Location
    Eher die Location vom Button als von der Form.

    Kommt drauf an, ob du den Button dynamisch erstellen willst, oder ob der schon vordefiniert ist.
    Im Fall 2 reicht es vollkommen die x;y Koordinaten per random generieren zu lassen.
    Das ganze kommt dann in ein beliebiges Event z.B. Load und dann hast du ein Button.

    Fall 1 wäre dann doch etwas komplexer.

    VB.NET-Quellcode

    1. Private WithEvents ButtonSimulate As Button()
    2. Private Rnd As New Random(0)
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    5. ButtonSimulate.Text = "CLICK ME"
    6. AddHandler ButtonSimulate.Click, AddressOf ButtonSimulate_Click
    7. Me.Controls.Add(ButtonSimulate)
    8. End Sub
    10. Private Sub ButtonSimulate_Click(ByVal sender As System.Object, ByVal e As System.MouseClickEventArgs)
    11. Dim AnotherButton1 As New Button() 'Buttons erstellen
    12. Dim AnotherButton2 As New Button()
    14. AnotherButton1.Text = "CLICK ME" 'Text machen
    15. AnotherButton2.Text = "CLICK ME"
    17. AnotherButton1.Location = New Point(Rnd.Next(0, Me.Size.Width), Rnd.Next(0, Me.Size.Height)) 'Zufalls-Position machen
    18. AnotherButton2.Location = New Point(Rnd.Next(0, Me.Size.Width), Rnd.Next(0, Me.Size.Height))
    20. AddHandler AnotherButton1.Click, AddressOf ButtonSimulate_Click 'Das "Klick"-Event für die neuen Buttons ebenso machen
    21. AddHandler AnotherButton2.Click, AddressOf ButtonSimulate_Click
    23. Me.Controls.Add(AnotherButton1) 'Zum Fenster hinzufügen
    24. Me.Controls.Add(AnotherButton2)
    25. End Sub



    Wenn einige fehler auftreten, bitte sagen, ich verbesser dann.
    Habe in nichtmal 2 Minuten den Code plain geschrieben! :)

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

Facebook
Telefonspende