Question

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

当我加载表格时，我会得到一个大红色＆＃39; X＆＃39;填充框。看起来像drawing.bitmap ErrorImage。可能是什么问题呢？任何帮助是极大的赞赏。谢谢。

    Private Sub Pigge_Gallary_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim directory As New IO.DirectoryInfo("C:\Pics\Bears")
    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循环中执行此操作，所以它只是在循环时替换图片框图像。当它完成循环时，图片框将只显示最后一个图像。

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

1 个答案: