我对 Visual Basic 非常陌生,所以请温柔一点。 :P
我正在创建一个小型应用程序,用于基本学习目的,这将允许应用程序的用户更新各种个人资料。这包括上传个人资料图片,然后将其存储在 /bin/Debug/Resource 中,然后显示在 PictureBox 中的个人资料中。
我正在使用以下代码,它似乎就是这样做的。但是,当我关闭应用程序并再次运行它时,图像不会显示在任一 PictureBox 上,但仍存储在指定文件夹中。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If (Not System.IO.Directory.Exists("Resource")) Then
System.IO.Directory.CreateDirectory("Resource")
End If
Dim OpenFileDialog1 As New OpenFileDialog
With OpenFileDialog1
.CheckFileExists = True
.ShowReadOnly = False
.Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
.FilterIndex = 2
'
If .ShowDialog = DialogResult.OK Then
Dim FName() As String = OpenFileDialog1.FileName.Split("\\")
System.IO.File.Copy(OpenFileDialog1.FileName, "Resource\\" + FName(FName.Length - 1))
PictureBox1.Image = Image.FromFile(.FileName)
Profile.PictureBox1.Image = Image.FromFile(.FileName)
End If
End With
End Sub
非常感谢您提供的任何帮助。
谢谢你。
这是您需要执行的操作才能显示图片。
必须将此代码添加到加载表单方法中。
Dim StoredPath As String = "PathToImage"
IF File.Exists(StoredPath) Then
PictureBox1.Image = Image.FromFile(@StoredPath)
PictureBox1.Refresh()
End if