Vb.net 从文件中获取图像并将其添加到阵列

我正在尝试创建一个程序来检查是否有人要参加快乐时光。如果没有，它会列出那些没有的人，并把他们的照片放在他们的名字旁边

我可以实现所有功能，但只能在本地获取图像并将其存储在数组中（该数组将添加到pictureArray（I））

（你可以看到注释掉的部分是我试图获取图像的地方…）

有什么想法吗

Public Class Form1
Dim ITLPList() As String = {"Name 1", "Name 2", "Name 3", "Name 4", "Name 5", "Name 6"}
'  Dim imageList As New ImageList
' Dim fileSteam As New System.IO.FileStream(sFileName, System.IO.FileMode.Open)
' Dim img As Image
' Dim sFileName As String = "C:\Users\turcotd\Desktop\ITLPers\itlp1.jpg"

Dim itlpTally() As String
Dim labelArray(5) As Label
Dim pictureArray(5) As PictureBox

Dim intTally As Integer
Dim i As Integer = 0

Public itlpIndex As Integer = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    itlpName.Text = ITLPList(0)
    labelArray(0) = lblPerson0
    labelArray(1) = lblPerson1
    labelArray(2) = lblPerson2
    labelArray(3) = lblPerson3
    labelArray(4) = lblPerson4

    pictureArray(0) = picITLP0
    pictureArray(1) = picITLP1
    pictureArray(2) = picITLP2
    pictureArray(3) = picITLP3
    pictureArray(4) = picITLP4

End Sub

Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click

    If (i < 6) Then
        itlpName.Text = ITLPList(i)
        i = i + 1

    End If
End Sub

Private Sub btnNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo.Click

    If (i < 6) Then
        'Names
        itlpName.Text = ITLPList(i)
        intTally = intTally + 1
        lblTally.Text = intTally
        labelArray(i).Text = ITLPList(i)

        'Images
        '    img = Image.FromStream(fileSteam)
        '   fileSteam.Close()
        '  imageList.Images.Add(img)
        '  pictureArray(i).Image = imageList.Images.Item(0)
        '  img.Dispose()

        ' img = Image.FromFile(sFileName)

        i = i + 1
    End If
    itlpName.Text = ITLPList(i)
End Sub
End Class

公共类表单1
Dim ITLPList（）作为字符串={“名称1”、“名称2”、“名称3”、“名称4”、“名称5”、“名称6”}
'将imageList设置为新imageList
'将FileTeam作为新的System.IO.FileStream（sFileName、System.IO.FileMode.Open）
“将img设置为图像
'Dim sFileName As String=“C:\Users\turcotd\Desktop\ITLPers\itlp1.jpg”
Dim itlpTally（）作为字符串
尺寸标签阵列（5）作为标签
暗淡的图片阵列（5）作为图片盒
作为整数的整数
尺寸i为整数=0
公共itlpIndex为整数=0
私有子表单1_Load（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
itlpName.Text=ITLPList（0）
labelArray（0）=lblPerson0
标签阵列（1）=lblPerson1
labelArray（2）=lblperson 2
labelArray（3）=lblperson 3
labelArray（4）=lblPerson4
pictureArray（0）=picITLP0
pictureArray（1）=picITLP1
pictureArray（2）=picITLP2
pictureArray（3）=picITLP3
pictureArray（4）=picITLP4
端接头
私有子btnYes_Click（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理btnYes。单击
如果（i<6），则
itlpName.Text=ITLPList（i）
i=i+1
如果结束
端接头
私有子btnNo_单击（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理btnNo。单击
如果（i<6），则
”“名字
itlpName.Text=ITLPList（i）
intTally=intTally+1
lblTally.Text=intTally
labelArray（i）.Text=ITLPList（i）
"形象",
'img=Image.FromStream（fileSteam）
'fileSteam.Close（）
'imageList.Images.Add（img）
'pictureArray（i）.Image=imageList.Images.Item（0）
'img.Dispose（）
'img=Image.FromFile（sFileName）
i=i+1
如果结束
itlpName.Text=ITLPList（i）
端接头
末级

将文件从文件加载到PictureBox是一个非常简单的操作：

picITLP0.Image = Image.FromFile("C:\Users\turcotd\Desktop\ITLPers\itlp1.jpg")

---

将文件从文件加载到PictureBox是一个非常简单的操作：

picITLP0.Image = Image.FromFile("C:\Users\turcotd\Desktop\ITLPers\itlp1.jpg")

---

您可以通过以下方式获得目录中的所有jpg：

Dim dir = New IO.DirectoryInfo("C:\Users\turcotd\Desktop\ITLPers")
Dim images = dir.GetFiles("*.jpg", IO.SearchOption.AllDirectories).ToList

---

您可以通过以下方式获得目录中的所有jpg：

Dim dir = New IO.DirectoryInfo("C:\Users\turcotd\Desktop\ITLPers")
Dim images = dir.GetFiles("*.jpg", IO.SearchOption.AllDirectories).ToList

---

你能详细说明一下吗？这对我不起作用。你能解释一下我是如何把每个jpg从一个文件夹放到一个图像数组中的吗？thanks@Growler：那么你应该解释什么不起作用，你有没有发现任何错误？我已经向您展示了如何以列表（FileInfo）的形式获取文件夹中的所有jpg。A比数组好得多，它是均匀的。如果你坚持使用数组，你可以简单地调用

dir.GetFiles（“*.jpg”，IO.SearchOption.AllDirectories）。改为调用数组
。@Growler:有关详细信息，请查看。例如，您需要调用以获取图像名称（文件名不带路径）或获取完整路径。如果没有帮助的话，你应该展示你尝试过的东西。这对我不起作用。你能解释一下我是如何把每个jpg从一个文件夹放到一个图像数组中的吗？thanks@Growler：那么你应该解释什么不起作用，你有没有发现任何错误？我已经向您展示了如何以列表（FileInfo）的形式获取文件夹中的所有jpg。A比数组好得多，它是均匀的。如果你坚持使用数组，你可以简单地调用
dir.GetFiles（“*.jpg”，IO.SearchOption.AllDirectories）。改为调用数组
。@Growler:有关详细信息，请查看。例如，您需要调用以获取图像名称（文件名不带路径）或获取完整路径。如果没有帮助的话，你应该展示你尝试过的东西。