[ابراهيم ايبو]

السلام عليكم اخي عبد العزيز(ياسكري)
تفضل كود فتح صورة مع الذهاب الافتراضي الى مجلد الصور الموجود في مجلد Debug  فقط غير اسم المجلد الى ماتريد
وكذلك كود حفظ الصورة بحيث يأخذ الاسم من مربع النص رقم 2 بدون ان تكتب اللاحقة ايضا يذهب افتراضي لنفس المجلد
او ان احببت ادخل مسارا أخر او الغ السطر بحيث يتم الاختيار حيث ما يريد

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Ofd As New OpenFileDialog()
       Ofd.Filter = "Images |*.jpg;*.Png;*.Bmp "
       Ofd.InitialDirectory = Application.StartupPath & "\DDKK" ' ضع اسم المجلد الذي سيكون الافتراضي
       If Ofd.ShowDialog() = DialogResult.OK Then
           PictureBox1.Image = Image.FromFile(Ofd.FileName)
       End If


   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim Sfd As New SaveFileDialog()
       Sfd.Filter = "Images |*.jpg"
       Sfd.InitialDirectory = Application.StartupPath & "\DDKK" ' ضع اسم المجلد الذي سيكون الافتراضي
       Sfd.FileName = TextBox2.Text + ".jpg" ' اسم الملف الموجود في مربع النص رقم 2 مضافا اليه اللاحقة
       If Sfd.ShowDialog() = DialogResult.OK Then

           PictureBox1.Image.Save(Sfd.FileName) ' حفظ الصورة
       End If
   End Sub