[egypt 2020]

(04-02-20, 01:51 AM)محمدالزند كتب : محتاج كود لتحميل الصورة من pbox الي مسار محدد علما بان الصورة تخش القاعدة باينر 

تقصد تحفظ الصورة بمسار محدد

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       On Error Resume Next
       Dim SaveFileAs As New SaveFileDialog
       SaveFileAs.Title = "Save File As"
       SaveFileAs.FileName = "*.jpg"
       SaveFileAs.Filter = "Jpeg |*.jpg"
       If SaveFileAs.ShowDialog() = Windows.Forms.DialogResult.OK Then
           PictureBox1.Image.Save(SaveFileAs.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
       End If
   End Sub

او تحميل الصورة من مسار تختارة الطريقتين معاك .

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim LOADFILE As New OpenFileDialog
       Dim result As DialogResult = LOADFILE.ShowDialog
       If result = Windows.Forms.DialogResult.OK Then
           If (LOADFILE.FileName IsNot Nothing) Or (LOADFILE.FileName <> String.Empty) Then
               PictureBox1.BackgroundImage = Nothing
               PictureBox1.BackgroundImage = Image.FromFile(LOADFILE.FileName)
               PictureBox1.BackgroundImageLayout = ImageLayout.Zoom

           End If
       End If
   End Sub