[Sajad]

السلام عليكم

عدل كود الحدث الى التالي:

PHP كود :

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