PictureBox Zur laufzeit erstellen

  • VB.NET

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

    PictureBox Zur laufzeit erstellen

    Hallo Liebes Forum,

    ich habe folgende Frage:

    Ich möchte wenn ich auf die Form klicke dass an dieser Stelle eine Picturebox mit 50x50 erstellt wird, dass hab ich soweit auch hinbekommen.
    Jetzt ist mein Problem wenn ich zweimal dicht nebeneinander klicke überlappen sich die Pictureboxen.
    Wie mache ich dass jetzt dass mann wenn man klickt und die sich überlappen dass dann die Picturebox nicht erstellt wird?
    Würde mich über euere Hilfe freuen.

    Mein Code den ich zum Erstellen der Pictureboxen geschrieben habe:

    Quellcode

    1. Public Class Form1
    5. Dim PositionX, PositionY As Integer
    7. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    8. PositionX = e.X.ToString
    9. PositionY = e.Y.ToString
    10. End Sub
    15. Dim indexcount As Integer = 1
    16. Dim picbox(10000) As PictureBox
    18. Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
    21. indexcount += 1
    22. picbox(indexcount) = New PictureBox
    25. picbox(indexcount).Name = "picbox" & indexcount.ToString
    26. picbox(indexcount).Tag = indexcount.ToString
    27. picbox(indexcount).Height = 50
    28. picbox(indexcount).Width = 50
    29. picbox(indexcount).Top = PositionY
    30. picbox(indexcount).Left = PositionX
    33. picbox(indexcount).BackColor = Color.Black
    34. picbox(indexcount).Visible = True
    35. Me.Controls.Add(picbox(indexcount))
    36. End Sub
    38. End Class



    Mfg Wayne

Facebook
Telefonspende