+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة تحميل الصورة (/showthread.php?tid=34125)
RE: مشكلة تحميل الصورة - DOX.1 - 02-04-20
(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]
RE: مشكلة تحميل الصورة - bidaya - 02-04-20
تفظل اخي جرب المرفق بعد التعديل
RE: مشكلة تحميل الصورة - DOX.1 - 02-04-20
(02-04-20, 10:35 PM)bidaya كتب : تفظل اخي جرب المرفق بعد التعديل
نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار
RE: مشكلة تحميل الصورة - bidaya - 02-04-20
(02-04-20, 10:48 PM)DOX.1 كتب :(02-04-20, 10:35 PM)bidaya كتب : تفظل اخي جرب المرفق بعد التعديل
نفس المشكلة أنت وضعت +1 وأصلاً التكست بكوكس اللي عندي رقم غير قابل لتكرار
اكي انت تريد الحفظ في اي مجلد هل في Pices او في مجلد Pics
RE: مشكلة تحميل الصورة - DOX.1 - 02-04-20
(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 SubRE: مشكلة تحميل الصورة - معاند الحظ - 02-04-20
اخوي هل لاحظت ان مسار حفظ الصورة ومسار تحميل الصورة غير متطابق مع المسار اللي انت وضعته حين انشأت مجلد pics
كود انشاء مجلد الحفظ له مسار غير المسار اللي انت تحاول تحفظ عليه
مجلد الحفظ في مسار البرنامج اسمه pics وانت تحاول الحفظ في نفس المسار لكن داخل مجلد اسمه pices وهذا المجلد غير موجود
انا حملت مشروعك وشغلته وصار معي الخطا وبعد ماعدلت اسم المجلد في مود الحفظ وكود تحميل الصور الى Application.StartupPath & \pics
اشتغل البرنامج تمام
RE: مشكلة تحميل الصورة - DOX.1 - 02-04-20
(02-04-20, 10:57 PM)معاند الحظ كتب : اخوي هل لاحظت ان مسار حفظ الصورة ومسار تحميل الصورة غير متطابق مع المسار اللي انت وضعته حين انشأت مجلد pics
كود انشاء مجلد الحفظ له مسار غير المسار اللي انت تحاول تحفظ عليه
مجلد الحفظ في مسار البرنامج اسمه pics وانت تحاول الحفظ في نفس المسار لكن داخل مجلد اسمه pices وهذا المجلد غير موجود
انا حملت مشروعك وشغلته وصار معي الخطا وبعد ماعدلت اسم المجلد في مود الحفظ وكود تحميل الصور الى Application.StartupPath & \pics
اشتغل البرنامج تمام
جرب هذا الكود
[attachment=24321]
RE: مشكلة تحميل الصورة - معاند الحظ - 02-04-20
والله يا اخي ماني قادر احمل مشروعك رغم الحجم الصغير لانه كل ماقربر يكتمل يرجع يعيد التحميل
RE: مشكلة تحميل الصورة - DOX.1 - 02-04-20
(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 WithRE: مشكلة تحميل الصورة - bidaya - 02-04-20
مدام اخي تريد حفظ الصورة الموالية بنفس الاسم هل تريد استبدالها ام مذا لانه انت واضع اسم واحد لاي صورة تريد حفظها وهذا هو سبب المشكل