[DOX.1]

(03-04-20, 12:45 AM)سامي محمد كتب : ستزول المشكلة لو غيرت طريقة تحميل الصورة

كود :

Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")

ليكون الكود الكامل بهذه الصورة

كود :

 Dim a As New OpenFileDialog
        With a
            .AddExtension = True
            .CheckPathExists = True
            .CheckFileExists = True
            .Title = "أختر صورة التي تريدها"
            .Filter = "Choose Image(*.PNG;*.GIF;*.JPG;*.JPEG)|*.PNG;*.GIF;*.JPG;*.JPEG | All Files(*.*)|*.*"
            If .ShowDialog = DialogResult.OK Then
                Dim bmp As New Bitmap(Image.FromFile(.FileName & ""), New Size(Convert.ToInt32(110), Convert.ToInt32(70)))
                If IO.Directory.Exists(Application.StartupPath & "\Pices") = True Then
                    bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
                Else
                    IO.Directory.CreateDirectory(Application.StartupPath & "\Pices")
                    bmp.Save(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
                End If
                Prd_Photos.ImageLocation = (Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
            End If

ألف شكـر أنتهت المشكلة 

ولكن لي سـؤال هل يوجد طريقة لأزالة الخلفية لصوره لتصبح بصيغة Png بدون أي لون خلفيه لصورة قبل حفظها ..؟