从文件夹加载图像 [VB.NET]

Question

我目前的程序遇到了问题。我想为我的女朋友创建一个照片库，她可以将其安装在她的计算机上。我想在表单加载时从文件夹中导入图像并将它们显示在图片框中。

当我加载表格时，我得到一个大红色的"X"，填满了盒子。看起来像 drawing.bitmap ErrorImage。可能是什么问题？任何帮助将不胜感激。谢谢。

    Private Sub Pigge_Gallary_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim directory As New IO.DirectoryInfo("C:PicsBears")
    If directory.Exists Then
        Dim jpgFiles() As IO.FileInfo = directory.GetFiles("*.jpg")
        For Each jpgFile As IO.FileInfo In jpgFiles
            If jpgFile.Exists Then
                Dim image = Drawing.Image.FromFile(jpgFile.FullName)
                Using image
                    PicPig.Image = image
                End Using
            End If
        Next
    End If
End Sub

Answer 1

一旦退出Using块，就会丢失图像引用。

尝试更改

PicPig.Image = image

自

PicPig.Image = image.clone

或者只是将其设置为文件中的图像：

PicPig.Image = Drawing.Image.FromFile(jpgFile.FullName)

此外，由于您在 For 循环中执行此操作，因此它只会在循环时替换图片框图像。完成循环后，图片框将仅显示最后一个图像。