[Doctor GME]

هذه هى واجهة البرنامج



أنهيت وظيفة زر load لاختيار وعرض الصورة فى picturebox
والمفترض أن يقوم زر next بعرض الصورة التالية بشكل أوتوماتيكى دون اللجوء ل open file dialog مرة أخرى
ونفس الشىء بالنسبة لزر previous
ولكنى لم أتوصل لطريقة أحدد بها الملف السابق أو التالى لما تم اختياره عن طريق open file dialog
المشروع بالكامل فى المرفقات

[alshandodi]

اتمنى ان يكون ذو فائدة لك اخي العزيز 

لقد قمت بعمل تحديد للصور من عدة اماكن  في ليست بوكس ولكن احتاج الى كود اضافة الليست الى السيتنج 
ولك جزيل الشكر والتقدير

[Anas Mahmoud]

تفضل اخي الكريم

المصادر :
https://stackoverflow.com/questions/2331...the-folder

[alshandodi]

شكر خاص للاستاذ انس محمود واعتذر منه ساضيف في حاله التغيير تلقائي ويضع في تايمير 

كود :

  Dim i As Integer
       i = Images.IndexOf(CurrentImage) + 1
       If i < Images.Count Then
           CurrentImage = Images(i)

           Try
               PictureBox1.Image = Image.FromFile(CurrentImage)
           Catch ex As Exception
               'الصورة ليست صالحة او لم تعد كذلك
           End Try
       Else
           CurrentImage = Images(0)
           PictureBox1.Image = Image.FromFile(CurrentImage)

       End If

[Doctor GME]

شكراً أخى alshandodi
الجزء الخاص بالتايمر مفيد جداً

---

شكراً أخى Anas Mahmoud
هذا ما كنت أريده وبعد بعض التعديلات حصلت على ما أريده

---

كنت أريد إضافة خاصية zoom
جربت هذه الطريقة ولكنها لم تنجح:

كود :

   Private Sub GetZoom(zoomSize As String, MyPicbox As PictureBox)

       Dim bmp As New Bitmap(MyPicbox.Image)
       Dim newWidth As Integer = MyPicbox.Image.Width / zoomSize
       Dim newHeight As Integer = MyPicbox.Image.Height / zoomSize
       Dim bmpNew As Bitmap = New Bitmap(newWidth, newHeight)
       Dim gr As Graphics = Graphics.FromImage(bmpNew)
       gr.DrawImage(bmp, 0, 0, bmpNew.Width, bmpNew.Height)
       MyPicbox.Image = bmpNew

   End Sub

فهى تضعف جودة الصورة إذا تم تصغيرها ثم تكبيرها مجدداً

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
ابسط طريقة لعمل زوم للصورة هو التالي :
1 تجعل خاصية الاحتواء للصورة StretchImage  او Zoom ضروري
وتلغي ال Border الخاص بالصورة ان احببت
2- تضع  بوتون عدد 2 واحد للتكبير والثاني للتصغير
للتكبير * 2 في كل مرة

كود :

PictureBox1.Width = PictureBox1.Width * 2
           PictureBox1.Height = PictureBox1.Height * 2

وللتصغير /2 في كل مرة

كود :

PictureBox1.Width = PictureBox1.Width / 2
       PictureBox1.Height = PictureBox1.Height / 2

في هذه الطريقة انت تقوم بتكبير كونترول الصورة نفسها وبما ان خاصية الاملاء هي التمدد فحتما ستتمدد الصورة لتملأ الكونترول
وانت هنا لاتقوم بتغيير اي شيء للصورة الاصلية (الحجم يبقى على حاله في التصغير والتكبير) فقط زوم مشاهدة
اما طريقة اعادة انشاء صورة فهذا يعني انك تغير من الحجم الحقيقي للصورة عند التكبير سيزداد حجمها ... وقد يصل الىارقام كبيرة
وعند التصغير ايضا تقوم بتصغير الحجم مما يؤدي الى فقدان الصورة لدقتها عند اعادة تكبيرها
ارجو ان اكون قد افدتك