السلام عليكم
ارجوا من الاعضاء في المنتدى كود طباعة الصوره من picture box واكون منون لان باجر لازم اسلم البرنامج ان شاء الله علما ان البرنامج في فجوال بيسك 2008
09-07-13, 05:10 PM (آخر تعديل لهذه المشاركة : 09-07-13, 05:35 PM {2} بواسطة سعود.)
[b][COLOR="#800080"]السلام عليكم
تم تعديل العنوان ونقل الموضوع ,برجاء التقيد بقوانين المنتدى وكتابة المواضيع في الاقسام المخصصة لها وكتابة عنوان مناسب بدون كلمات (رجاءا ,مساعدة ,.......) وبخلاف ذلك يتعرض الموضوع للحذف[/COLOR]
اخي العزيز اولا اضف أداتي الPrintDocument و الـ PringDialog الى المشروع ومن ثم كلك مرتين على الـPrintDocument واكتب هذا الكود:
بارك الله بيك اخ سجاد واعذرني لاني لم اقرأ قوانين المنتدى
اريد مع هذا الكود كود تعديل الحجم لان الصورة طلعت صغير واني اريدها a4
علما اني اريد اطبع عدد من الصور في نفس الفولدر كيف يمكن ذلك
Dim w As Integer, h As Integer w = pictureBox1.Image.Width h = pictureBox1.Image.Height If (w > e.MarginBounds.Width) OrElse (h > e.MarginBounds.Height) Then Dim f As Single = Math.Min(CSng(e.MarginBounds.Width) / w, CSng(e.MarginBounds.Height) / h) w = CInt(Math.Truncate(f * w)) h = CInt(Math.Truncate(f * h)) End If e.Graphics.DrawImage(pictureBox1.Image, e.MarginBounds.Left, e.MarginBounds.Top, w, h)
اخي العزيز اجلب مسارات الصور من المجلد الى مضفوفة ومن ثم عن طريق المصفوفة اسند الصور الى الPictureBox ومن ثم اطبع فيكون الكود كالتالي:
PHP كود :
Dim pics As New List(Of String) pics.AddRange(IO.Directory.GetFiles("D:\\صور")) PictureBox1.Image = Image.FromFile(pics(0))
الكود أعلاه يقوم بجلب جميع الصور في المجلد (صور) وعن طريق الIndex نقوم بعرض الصورة في الPictureBox