المشاركات : 16
المواضيع 3
الإنتساب : May 2019
السمعة :
0
الشكر: 18
تم شكره 8 مرات في 6 مشاركات
24-06-19, 06:02 PM
(آخر تعديل لهذه المشاركة : 24-06-19, 06:08 PM {2} بواسطة ابو خليل99.)
السلام عليكم
الرجاء المساعدة في افضل طريقة لحفظ الصورة من PictureBox1
استخدم الكود التالي
كود :
PictureBox1.Image.Save("D:\1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
الكود يعمل بشكل جيد ولكن انا اريد لو كانت الصورة رقم 1 موجودة يقوم بحفظ الصورة برقم 2 وهكذا
وهل من الممكن ان يكون الاسم هو تاريخ حفظ الصورة بالساعة والدقيقة والثانية حتي لا يتكرر الاسم ؟؟؟
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
(24-06-19, 06:02 PM)ابو خليل99 كتب : السلام عليكم
الرجاء المساعدة في افضل طريقة لحفظ الصورة من PictureBox1
استخدم الكود التالي
كود :
PictureBox1.Image.Save("D:\1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
الكود يعمل بشكل جيد ولكن انا اريد لو كانت الصورة رقم 1 موجودة يقوم بحفظ الصورة برقم 2 وهكذا
وهل من الممكن ان يكون الاسم هو تاريخ حفظ الصورة بالساعة والدقيقة والثانية حتي لا يتكرر الاسم ؟؟؟
كود :
Dim i As Integer = 1
Do While IO.File.Exists("D:\" & i & ".jpg")
i += 1
Loop
PictureBox1.Image.Save("D:\" & i & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
وان كنت تيد حفظها بالتاريخ
كود :
PictureBox1.Image.Save("D:\" & Now & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
المشاركات : 16
المواضيع 3
الإنتساب : May 2019
السمعة :
0
الشكر: 18
تم شكره 8 مرات في 6 مشاركات
(24-06-19, 06:27 PM)سامي محمد كتب : (24-06-19, 06:02 PM)ابو خليل99 كتب : السلام عليكم
الرجاء المساعدة في افضل طريقة لحفظ الصورة من PictureBox1
استخدم الكود التالي
كود :
PictureBox1.Image.Save("D:\1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
الكود يعمل بشكل جيد ولكن انا اريد لو كانت الصورة رقم 1 موجودة يقوم بحفظ الصورة برقم 2 وهكذا
وهل من الممكن ان يكون الاسم هو تاريخ حفظ الصورة بالساعة والدقيقة والثانية حتي لا يتكرر الاسم ؟؟؟
كود :
Dim i As Integer = 1
Do While IO.File.Exists("D:\" & i & ".jpg")
i += 1
Loop
PictureBox1.Image.Save("D:\" & i & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
وان كنت تيد حفظها بالتاريخ
كود :
PictureBox1.Image.Save("D:\" & Now & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
بارك الله فيك اخي سامي وجزاك كل الخير
بالنسبة للكود الاول يعمل بشكل مثالي
بالنسبة للكود الذي يقوم بالحفظ بالتاريخ للاسف لم يعمل لم يقم بحفظ الصورة هل يمكنك المساعدة في اصلاحه
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
هو المشكلة ا اخ خليل ان تسمية الملفات لاتقبل بعض الرموز ولكن الحل الافضل هو استبدال الرموز برمز مقبول في التسمية مثل ـ
كود :
Dim M As String = System.Text.RegularExpressions.Regex.Replace(Now.ToString, "\D", "_")
استبدل الــ I بــ M
المشاركات : 52
المواضيع 0
الإنتساب : Jun 2019
السمعة :
21
الشكر: 382
تم شكره 121 مرات في 50 مشاركات
(24-06-19, 07:07 PM)سامي محمد كتب : هو المشكلة ا اخ خليل ان تسمية الملفات لاتقبل بعض الرموز ولكن الحل الافضل هو استبدال الرموز برمز مقبول في التسمية مثل ـ
كود :
Dim M As String = System.Text.RegularExpressions.Regex.Replace(Now.ToString, "\D", "_")
استبدل الــ I بــ M
(لست مبرمج VB.NET)
يمكن عمل التاريخ بشكل نص مقبول كإسم ملف بتحويله بـ ToString
كود :
Dim M As String = Now.ToString("yyyy-MM-dd HHmmss")
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
(24-06-19, 06:02 PM)ابو خليل99 كتب : السلام عليكم
الرجاء المساعدة في افضل طريقة لحفظ الصورة من PictureBox1
استخدم الكود التالي
كود :
PictureBox1.Image.Save("D:\1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
الكود يعمل بشكل جيد ولكن انا اريد لو كانت الصورة رقم 1 موجودة يقوم بحفظ الصورة برقم 2 وهكذا
وهل من الممكن ان يكون الاسم هو تاريخ حفظ الصورة بالساعة والدقيقة والثانية حتي لا يتكرر الاسم ؟؟؟
هذا الكود ما يتكرر :
كود :
TextBox1.Text = DateTime.Now.ToFileTime.ToString + ".png"
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 16
المواضيع 3
الإنتساب : May 2019
السمعة :
0
الشكر: 18
تم شكره 8 مرات في 6 مشاركات
25-06-19, 01:07 PM
(آخر تعديل لهذه المشاركة : 25-06-19, 01:08 PM {2} بواسطة ابو خليل99.)
(24-06-19, 08:35 PM)wared كتب : (24-06-19, 07:07 PM)سامي محمد كتب : هو المشكلة ا اخ خليل ان تسمية الملفات لاتقبل بعض الرموز ولكن الحل الافضل هو استبدال الرموز برمز مقبول في التسمية مثل ـ
كود :
Dim M As String = System.Text.RegularExpressions.Regex.Replace(Now.ToString, "\D", "_")
استبدل الــ I بــ M
(لست مبرمج VB.NET)
يمكن عمل التاريخ بشكل نص مقبول كإسم ملف بتحويله بـ ToString
كود :
Dim M As String = Now.ToString("yyyy-MM-dd HHmmss")
شكرا لكم اخواني يعمل الان بشكل جيد
بارك الله فيكم وجزاكم كل الخير
(25-06-19, 12:09 AM)حريف برمجة كتب : (24-06-19, 06:02 PM)ابو خليل99 كتب : السلام عليكم
الرجاء المساعدة في افضل طريقة لحفظ الصورة من PictureBox1
استخدم الكود التالي
كود :
PictureBox1.Image.Save("D:\1.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
الكود يعمل بشكل جيد ولكن انا اريد لو كانت الصورة رقم 1 موجودة يقوم بحفظ الصورة برقم 2 وهكذا
وهل من الممكن ان يكون الاسم هو تاريخ حفظ الصورة بالساعة والدقيقة والثانية حتي لا يتكرر الاسم ؟؟؟
هذا الكود ما يتكرر :
كود :
TextBox1.Text = DateTime.Now.ToFileTime.ToString + ".png"
بارك الله فيك اخي حريف برمجة وجزاك الله كل الخير
|