[princelovelorn]

المشروع عبارة عن
FORM1
PICTUREBOX
الكود

كود :

Imports System.IO

Public Class Form1

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

       Try
           If Not PictureBox1.Image Is Nothing Then
               PictureBox1.Image.Dispose()
               Using ofd As New OpenFileDialog
                   If ofd.ShowDialog() = DialogResult.OK Then
                       Dim fullName = String.Concat("Default ", "Image")
                       Dim folderPath = Path.Combine(Application.StartupPath & "\folderimage")
                       Directory.CreateDirectory(folderPath)
                       Dim filePath = Path.Combine(folderPath, fullName & ".png")
                       Dim picture = Image.FromFile(ofd.FileName)
                       picture.Save(filePath)
                       PictureBox1.Image = picture
                   End If
               End Using
           Else
               Using ofd As New OpenFileDialog
                   If ofd.ShowDialog() = DialogResult.OK Then
                       Dim fullName = String.Concat("Default ", "Image")
                       Dim folderPath = Path.Combine(Application.StartupPath & "\folderimage")
                       Directory.CreateDirectory(folderPath)
                       Dim filePath = Path.Combine(folderPath, fullName & ".png")
                       Dim picture = Image.FromFile(ofd.FileName)
                       picture.Save(filePath)
                       PictureBox1.Image = picture
                   End If
               End Using
           End If
       Catch ex As Exception

       End Try

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           'Load Image from folderimage in PictureBox1
           Dim fullName = String.Concat("Default ", "Image")
           Dim folderPath = Path.Combine(Application.StartupPath & "\folderimage")
           Dim filePath = Path.Combine(folderPath, fullName & ".png")
           Dim picture = Image.FromFile(filePath)
           PictureBox1.Image = picture
       Catch ex As Exception
       End Try
   End Sub
End Class