时间戳

首页 > 解决方案 > 将图片框添加到 Windows 窗体

vb.net - 将图片框添加到 Windows 窗体

问题描述

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

公开课形式1
    Dim peoples As New List(Of PictureBox)()

    Private Sub Form1_Load(sender As Object, e As EventArgs) 处理 MyBase.Load
        Timer1.Enabled = 真
        Timer1.Interval = 随机数(100, 500)
    结束子
    子循环（）

        Timer1.Interval = 随机数(100, 500)
    结束子
    函数随机数（下为整数，上为整数）
        随机化（）
        返回 Int((upper * Rnd()) + lower)
    结束功能
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) 处理 Timer1.Tick
        循环（）
        新队列成员（）
    结束子
    私有子 newqueuemember()

        将图片框调暗为新图片框
        图片框宽度 = 50


        图片框.Visible = True
        图片框.高度 = 50
        Dim selectperson As Integer = randomnumber(1, 3)
        如果选择人 = 1 那么
            图片框.Image = My.Resources.person1

        ElseIf 选择人 = 2 则
            pictureBox.Image = My.Resources.person2

        别的
            图片框.Image = My.Resources.person3

        万一
        pictureBox.Location = 新点(10, 20)
        peoples.Add(图片框)
    结束子
结束类

标签： vb.netwinforms

解决方案

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

FlowLayoutPanel1.controls.add(picturebox_object)

推荐阅读