Программное создание PictureBox с проверкой, нет ли на его месте другого PictureBox - Visual Basic .NET
Формулировка задачи:
Здравствуйте! Нужно чтобы при нажатии кнопки создавался PictureBox с определёнными свойствами Location: x, y и SizeMode: Autosize и в него загрузилась определённая картинка. Но нужно чтобы перед этим была произведена проверка на наличие другого PictureBox на этих координатах (Location) и если на них уже имеется PictureBox, то нужно чтобы создаваемый PictureBox размещался по другим координатам, но если и там уже есть PictureBox, то по следующим и т.д. Все PictureBox'ы будут иметь одинаковый размер. Помогите, пожалуйста, с решением.
Решение задачи: «Программное создание PictureBox с проверкой, нет ли на его месте другого PictureBox»
textual
Листинг программы
Public Class Form1
Dim PBcount As Integer = 0
Dim LastPSN As New System.Drawing.Point(5, 5)
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim PBSize As New Size(50, 50)
Me.Controls.Add(New PictureBox With { _
.Name = "PictureBox" & PBcount + 1, _
.Location = LastPSN, _
.Size = PBSize, _
.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage, _
.Image = My.Resources.broom, _
.BackColor = System.Drawing.Color.White, _
.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle})
If LastPSN.X + 10 + (PBSize.Width * 2) > Me.Width Then
LastPSN.X = 5
LastPSN.Y = LastPSN.Y + PBSize.Height + 5
Else
LastPSN = New System.Drawing.Point(LastPSN.X + PBSize.Width + 5, LastPSN.Y)
End If
End Sub
End Class