15-04-17, 01:06 AM
(آخر تعديل لهذه المشاركة : 15-04-17, 01:22 AM {2} بواسطة الماجيك مسعد.)
(15-04-17, 12:29 AM)silverlight كتب :PHP كود :
For i = 0 To CheckedListBox1.CheckedItems.Count - 1
If CheckedListBox1.CheckedItems(i) = False Then
End If
السلام عليكم اخى الكريم
بالفعل اعرف ذلك
ولكن انا اريد فهم سبب هذه المشكلة مع العلم انى مستخدمها قبل كدا كتير بنفس الطريقة
واكيد انت كمان متاكد ان الكود مفهوش شئ غلط صح؟
عشان كدا انا سئلت رغم انى استخدمت الحل البديل ولكن اريد فهم سبب المشكلة فقط
ايضا هذا هو الكود بالكامل
Sub startTweeting6()
Button59.Enabled = False
Button60.Enabled = True
For Each usertofollow In CheckedListBox1.CheckedItems
usertofollow.Checked = False
Dim id As Long = usertofollow
User.UnFollowUser(New UserIdentifier(id))
ProgressBar2.Invoke(Sub()
ProgressBar2.Increment(1)
End Sub)
Label55.Invoke(Sub()
Label55.Text = (ProgressBar2.Value * 100 / ProgressBar2.Maximum).ToString("00") & "%"
End Sub)
Thread.Sleep(GetInterval(NumericUpDown16.Value, NumericUpDown15.Value) * 1000)
Next
Button60.Enabled = False
Button59.Enabled = True
End Sub

