03-04-20, 01:00 PM
(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 بدون أي لون خلفيه لصورة قبل حفظها ..؟
