[justforit]

هذا كود بديل

فقط اضف بند في my.settings  من نوع string

الصورة المعروضة بعد استخراجها الى مجلد الـtmp

PHP كود :

Private Function IsImage(pic As String) As Boolean
     Try
         Dim img As New Bitmap(Image.FromFile(pic))
         Return True
     Catch ex As Exception
         Return False
     End Try
 End Function
 Private Sub btnaddpic_Click(sender As Object, e As EventArgs) Handles btnaddpic.Click
     Dim o As New OpenFileDialog
     If o.ShowDialog = DialogResult.OK Then
         If IsImage(o.FileName) = False Then
             MsgBox("الملف ليس صورة", MsgBoxStyle.Critical, "")
             Exit Sub
         End If
         My.Settings.myimage = System.Text.Encoding.Default.GetString(My.Computer.FileSystem.ReadAllBytes(o.FileName))
         My.Settings.Save()
     End If
 End Sub
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Dim tmpfile As String = IO.Path.GetTempFileName
     My.Computer.FileSystem.WriteAllBytes(tmpfile, System.Text.Encoding.Default.GetBytes(My.Settings.myimage), False)
     pic.Image = Image.FromFile(tmpfile)
 End Sub 


الدالة الاولى للتحقق من ان الملف المحدد من قبل المستخدم  صورة

الثانية كود بزر يستعرض ويختار صورة و يحولها ثم يحفظها في البند اللذي اضفته و هو هنا myimage  من نوع string

الثالثة استخراج الصورة المحولة  المخزنة في الـmy.setting بعد ارجاعها الى اصلها اي صورة