منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عرض صوره من مجلد ? - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض صوره من مجلد ? (/showthread.php?tid=26651)

عرض صوره من مجلد ? - DOX.1 - 25-09-18

السلام عليكم 
عندي مجلد مليئ بالصور 
وحاب اعمل حلقه لوب تحمل الصوره في اداة الصور 
كل خمس ثواني 
ممكن الكود

RE: عرض صوره من مجلد ? - asemshahen5 - 25-09-18

أولا ضع أداة بكتشر بوكس ثم أداة تايمر ضع خاصية
Interval=5000
ثم ضع الكود التالي :

كود :
 Dim ListBox2 As New ListBox
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For Each img In System.IO.Directory.GetFiles("D:\Image", "*.png", IO.SearchOption.AllDirectories)
        ListBox2.Items.Add(img)
    Next
    Timer1.Start()
End Sub
Dim s As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If s = ListBox2.Items.Count - 1 Then
         s = 0
         Exit Sub
    End If
    PictureBox1.Load(ListBox2.Items(s).ToString)
    s += 1
End Sub


RE: عرض صوره من مجلد ? - DOX.1 - 26-09-18

جميييل جداً 
الطريقه هاذي ترفع البرسسور

RE: عرض صوره من مجلد ? - asemshahen5 - 26-09-18

في بداية تشغيل البرنامج عند تحميل أسماء الملفات الى الليست بوكس الوهمية ثم تعمل بشكل عادي حتى عند تحميل البرنامج يستخدم 4% من المعالج و 20 الى 26 ميغا من الرامات .
جربه ببرنامج مستقل للتتأكد .