允许用户在Visual Basic中上传图片

时间:2014-02-04 14:44:52

标签: vb.net image upload save

我是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        

非常感谢您提供的任何帮助。

谢谢。

1 个答案:

答案 0 :(得分:0)

这是显示图片所需的操作。

此代码必须添加到Load表单方法中。

Dim StoredPath As String = "PathToImage"
IF File.Exists(StoredPath) Then
   PictureBox1.Image = Image.FromFile(@StoredPath)
   PictureBox1.Refresh()
End if