将PictureBox添加到Windows窗体

Question

我一直在尝试创建一个代码来模拟学校的队列（目前还没有），并尝试创建多个图片框并将它们存储在一个列表中。由于某种原因，他们没有出现。。。有人有什么建议吗？

Public Class Form1
    Dim peoples As New List(Of PictureBox)()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = randomnumber(100, 500)
    End Sub
    Sub loopover()

        Timer1.Interval = randomnumber(100, 500)
    End Sub
    Function randomnumber(lower As Integer, upper As Integer)
        Randomize()
        Return Int((upper * Rnd()) + lower)
    End Function
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        loopover()
        newqueuemember()
    End Sub
    Private Sub newqueuemember()

        Dim pictureBox As New PictureBox
        pictureBox.Width = 50


        pictureBox.Visible = True
        pictureBox.Height = 50
        Dim selectperson As Integer = randomnumber(1, 3)
        If selectperson = 1 Then
            pictureBox.Image = My.Resources.person1

        ElseIf selectperson = 2 Then
            pictureBox.Image = My.Resources.person2

        Else
            pictureBox.Image = My.Resources.person3

        End If
        pictureBox.Location = New Point(10, 20)
        peoples.Add(pictureBox)
    End Sub
End Class

Answer 1

使用流布局面板，定义对象的大小（宽度、高度），然后简单地将它们添加到流布局面板中，如果图片框列表的长度长于面板的高度，您甚至可以拥有滚动条。

FlowLayoutPanel1。控制。添加（picturebox_对象）

Answer 2

下：

人民。添加（picture Box）

加上：

我。控件。添加（图片框）

这里有一个C#参考（很容易翻译成VB）：

https://support.microsoft.com/en-us/help/319266/how-to-programmatically-add-controls-to-windows-forms-at-run-time-by-u