وعليكم السلام ورحمة الله وبركاته
انت لا تحتاج لوجود Timer
فى عمل هذا الكود لفكرة الدقيقة
بهذه الطريقة انت تعمل مشكلة كبيرة ستادى
الى ان يكون البرنامج معلق ولا يعمل
لكونه يقوم بتنفيذ كود وليكن For متعدد المرات
كلما بداء Timer فى التحديث
كل ما تحتاج فعله هو استخدام هذا الكود
كود :
Threading.Thread.Sleep(60000)
ولتنفيذ هذا السطر من الكود كل 4 تمريرة
فكل ما عليك فعله ان تجعل وضع الكود التالى
فى اى حدث مثل زر او ما شبه وليس
Timer
كود :
Dim i, ii As Integer
For Each itm As String In ListBox1.Items
i += 1
MsgBox(itm)
If i = ii + 4 Then
ii = i
Threading.Thread.Sleep(60000)
End If
Next
اذا كنت تريد كل 3 بدلاً من 4
فقط غير رقم 4 فى سطر IF الى 3
ودائماً اجعل كود شطر IF نهاية الكود المطلوب تنفيذه
كما هو مبين فى الكود بالاعلى
نفس الكود بطريقة اخري
كود :
Dim i, ii As Integer
For iii As Integer = 0 To ListBox1.Items.Count - 1
i += 1
MsgBox(ListBox1.Items(iii))
If i = ii + 4 Then
ii = i
Threading.Thread.Sleep(2000)
End If
Next
تحياتى لك
وتمنياتى لك التوفيق