(02-04-20, 09:58 PM)معاند الحظ كتب : [ -> ]اخوي راجع ردي عليك
أعتذر يا أخوي معاند مقدر وشاكر لك أهتمامك بجرب الأن
ولكن النص الموجود في التكست تسلسل رقمي غير قابل لتكرار
(02-04-20, 10:32 PM)DOX.1 كتب : [ -> ] (02-04-20, 09:58 PM)معاند الحظ كتب : [ -> ]اخوي راجع ردي عليك
أعتذر يا أخوي معاند مقدر وشاكر لك أهتمامك بجرب الأن
ولكن النص الموجود في التكست تسلسل رقمي غير قابل لتكرار
كود :
Pdox.Image = My.Resources.noimage
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)))
'Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG"
If IO.Directory.Exists(Application.StartupPath & "\Pics") = True Then
bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num)
Else
IO.Directory.CreateDirectory(Application.StartupPath & "\Pics")
bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
End If
Pdox.Image = Image.FromFile(Application.StartupPath & "\Pices\" & Photo_Num)
bmp.Dispose() : a.Dispose()
End If
End With
هذا الكود الأخير اللي أشتغلت عليه بنفس التعديل اللي موجود عندك ولازالت المشكلة
أستفسـار يا أخوان هل يمكن أزالة الخلفية لصوره بحيث تكون PNG
[
attachment=24320]
تفظل اخي جرب المرفق بعد التعديل
(02-04-20, 10:35 PM)bidaya كتب : [ -> ]تفظل اخي جرب المرفق بعد التعديل
نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار
(02-04-20, 10:48 PM)DOX.1 كتب : [ -> ] (02-04-20, 10:35 PM)bidaya كتب : [ -> ]تفظل اخي جرب المرفق بعد التعديل
نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار
اكي انت تريد الحفظ في اي مجلد هل في Pices او في مجلد Pics
(02-04-20, 10:52 PM)bidaya كتب : [ -> ] (02-04-20, 10:48 PM)DOX.1 كتب : [ -> ] (02-04-20, 10:35 PM)bidaya كتب : [ -> ]تفظل اخي جرب المرفق بعد التعديل
نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار
اكي انت تريد الحفظ في اي مجلد هل في Pices او في مجلد Pics
Pices المجلد هذا الكود الأخير
كود :
Public Sub ChoosePitcerBox(Pdox As PictureBox, Photo_Num As String)
Pdox.Image = My.Resources.noimage
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)))
'Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG"
If IO.Directory.Exists(Application.StartupPath & "\Pices") = True Then
bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
Else
IO.Directory.CreateDirectory(Application.StartupPath & "\Pices")
bmp.Save(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
End If
Pdox.Image = Image.FromFile(Application.StartupPath & "\Pices\" & Photo_Num + ".PNG")
bmp.Dispose() : a.Dispose()
End If
End With
End Sub
اخوي هل لاحظت ان مسار حفظ الصورة ومسار تحميل الصورة غير متطابق مع المسار اللي انت وضعته حين انشأت مجلد pics
كود انشاء مجلد الحفظ له مسار غير المسار اللي انت تحاول تحفظ عليه
مجلد الحفظ في مسار البرنامج اسمه pics وانت تحاول الحفظ في نفس المسار لكن داخل مجلد اسمه pices وهذا المجلد غير موجود
انا حملت مشروعك وشغلته وصار معي الخطا وبعد ماعدلت اسم المجلد في مود الحفظ وكود تحميل الصور الى Application.StartupPath & \pics
اشتغل البرنامج تمام
(02-04-20, 10:57 PM)معاند الحظ كتب : [ -> ]اخوي هل لاحظت ان مسار حفظ الصورة ومسار تحميل الصورة غير متطابق مع المسار اللي انت وضعته حين انشأت مجلد pics
كود انشاء مجلد الحفظ له مسار غير المسار اللي انت تحاول تحفظ عليه
مجلد الحفظ في مسار البرنامج اسمه pics وانت تحاول الحفظ في نفس المسار لكن داخل مجلد اسمه pices وهذا المجلد غير موجود
انا حملت مشروعك وشغلته وصار معي الخطا وبعد ماعدلت اسم المجلد في مود الحفظ وكود تحميل الصور الى Application.StartupPath & \pics
اشتغل البرنامج تمام
جرب هذا الكود
[
attachment=24321]
والله يا اخي ماني قادر احمل مشروعك رغم الحجم الصغير لانه كل ماقربر يكتمل يرجع يعيد التحميل
(02-04-20, 11:23 PM)معاند الحظ كتب : [ -> ]والله يا اخي ماني قادر احمل مشروعك رغم الحجم الصغير لانه كل ماقربر يكتمل يرجع يعيد التحميل
أشتغل على نفس المشروع وحظ الكود هذا imgeErorr
كود :
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)))
'Application.StartupPath & "\Pices\" & CDec + ".PNG"
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.Image = Image.FromFile(Application.StartupPath & "\Pices\" & Code_Prd.Text + ".PNG")
bmp.Dispose() : a.Dispose()
End If
End With
مدام اخي تريد حفظ الصورة الموالية بنفس الاسم هل تريد استبدالها ام مذا لانه انت واضع اسم واحد لاي صورة تريد حفظها وهذا هو سبب المشكل