المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
السلام عليكم
1 - عندي picturebox1 يوجد ضمنه صورة احضرتها من اسكنر اريد حفظها الى مجلد ضمن مسار البرنامج بكبسة زر واحدة دون ظهور مربع الحوار save as
2 - ما هو كود حفظ الصورة مع ظهور مربع الحوار save as
3 - ما هو كود استرجاع عرض الصورة ضمن نفس البيكتشر بوكس
4 - ما هو كود حذف الصورة
شكرا
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
(15-11-18, 09:28 AM)mh66 كتب : السلام عليكم
1 - عندي picturebox1 يوجد ضمنه صورة احضرتها من اسكنر اريد حفظها الى مجلد ضمن مسار البرنامج بكبسة زر واحدة دون ظهور مربع الحوار save as
2 - ما هو كود حفظ الصورة مع ظهور مربع الحوار save as
3 - ما هو كود استرجاع عرض الصورة ضمن نفس البيكتشر بوكس
4 - ما هو كود حذف الصورة
شكرا
وعليكم السلام ورحمة الله وبركاته ،،
لنفترض اسم الصورة تكتبه في TextBox1
1- 'حفظ صورة بمجلد ثابت
كود :
PictureBox1.Image.Save(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
2- 'حفظ صورة بتحديد مكان الحفظ
كود :
Dim Savefile As New SaveFileDialog
Savefile.ShowDialog()
PictureBox1.Image.Save(Savefile.FileName & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
3- 'عرض صورة
كود :
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg")
4- 'حذف صورة
كود :
System.IO.File.Delete(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg")
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
16-11-18, 09:39 AM
(آخر تعديل لهذه المشاركة : 16-11-18, 04:53 PM {2} بواسطة mh66.)
ماشاء الله
زادك الله علما
عند حذف الصورة تظهر رسالة خطأ مفادها انه لا يمكن حذف الصورة لانها مرتبطة بالبرنامج
هل هناك كود لفك ارتباط الصورة
علما انني كتبت كود picturebox1.image=nothing قبل الحذف
شكرا وفقك الله
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
16-11-18, 04:47 PM
(آخر تعديل لهذه المشاركة : 16-11-18, 04:52 PM {2} بواسطة mh66.)
هذا كود الطباعة
'*****************************************************
'طباعة
Dim WithEvents printDoc As New Printing.PrintDocument()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
printDoc.Print()
End Sub
Private Sub PrintImage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDoc.PrintPage
e.Graphics.DrawImage(PictureBox1.Image, e.MarginBounds.Left, e.MarginBounds.Top)
End Sub
'****************************************************
1 - عندما انفذ اجراء الطباعة يظهر مربع حوار يطالبني بكتابة اسم للملف هل من الممكن تعديل الكود لعدم ظهور هذا المربع
2 - هل من الممكن تعديل الابعاد لتظهر على كامل ورقة A4 وليس حجم البيكتشر بوكس
شكرا
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
16-11-18, 05:16 PM
(آخر تعديل لهذه المشاركة : 16-11-18, 05:18 PM {2} بواسطة حريف برمجة.)
(16-11-18, 09:39 AM)mh66 كتب : ماشاء الله
زادك الله علما
عند حذف الصورة تظهر رسالة خطأ مفادها انه لا يمكن حذف الصورة لانها مرتبطة بالبرنامج
هل هناك كود لفك ارتباط الصورة
علما انني كتبت كود picturebox1.image=nothing قبل الحذف
شكرا وفقك الله
العفو ،،
المشكلة انه بيعرض الصورة من الملف الأصلي ويبقى الملف يعمل لا تستطيع حذفه ،،
الحل :
كود :
'عرض صورة
Dim ImgFile As System.IO.FileStream = New System.IO.FileStream(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg", IO.FileMode.Open, IO.FileAccess.Read)
Dim rawdata As Byte() = New Byte(Convert.ToInt32(ImgFile.Length)) {}
ImgFile.Read(rawdata, 0, Convert.ToInt32(ImgFile.Length))
PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(rawdata))
ImgFile.Close()
ImgFile = Nothing
وكود الحذف كما هو ،، بإضافة تفريغ الصورة بعد عملية الحذف :
كود :
'حذف صورة
System.IO.File.Delete(Application.StartupPath & "\Imgs\" & TextBox1.Text & ".jpg")
PictureBox1.Image = Nothing
(16-11-18, 04:47 PM)mh66 كتب : هذا كود الطباعة
'*****************************************************
'طباعة
Dim WithEvents printDoc As New Printing.PrintDocument()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
printDoc.Print()
End Sub
Private Sub PrintImage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDoc.PrintPage
e.Graphics.DrawImage(PictureBox1.Image, e.MarginBounds.Left, e.MarginBounds.Top)
End Sub
'****************************************************
1 - عندما انفذ اجراء الطباعة يظهر مربع حوار يطالبني بكتابة اسم للملف هل من الممكن تعديل الكود لعدم ظهور هذا المربع
2 - هل من الممكن تعديل الابعاد لتظهر على كامل ورقة A4 وليس حجم البيكتشر بوكس
شكرا
هل تريد الصورة على كامل الورقة A4 بشكل عمودي أو افقي ؟
يا رحمن الدنيا والآخرة ورحيمهما