25-09-18, 04:25 PM
25-09-18, 05:33 PM
أولا ضع أداة بكتشر بوكس ثم أداة تايمر ضع خاصية
Interval=5000
ثم ضع الكود التالي :
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 Sub26-09-18, 05:39 PM
جميييل جداً
الطريقه هاذي ترفع البرسسور
الطريقه هاذي ترفع البرسسور
26-09-18, 09:40 PM
في بداية تشغيل البرنامج عند تحميل أسماء الملفات الى الليست بوكس الوهمية ثم تعمل بشكل عادي حتى عند تحميل البرنامج يستخدم 4% من المعالج و 20 الى 26 ميغا من الرامات .
جربه ببرنامج مستقل للتتأكد .
جربه ببرنامج مستقل للتتأكد .