15-01-17, 01:55 AM
(آخر تعديل لهذه المشاركة : 15-01-17, 02:15 AM {2} بواسطة 3asfa~mdmra.)
سلام عليكم
واجهتني مشكلة تهنيج البرنامج
عند تشغيل تايمر لتنفيذ الكود
الرجاء مساعدتني عند تشغيل تايمر
مايهنج البرنامج
بالاضافة الي
ProgressBar1
لا اريد ان يمشي بسرعة ولكن ببطء
وبعد الانتهاء يتم توقف timer
تفضلوا الكود الموجود في timer
كود :
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Me.ProgressBar1.Value = 0
Dim strArray As String() = Me.id.Text.Split(New Char() {"#"c})
Me.ProgressBar1.Maximum = strArray.Length
Dim i As Integer = 0
Do While (i <= strArray.GetUpperBound(0))
Me.emad1.Send(String.Concat(New String() {"<iq xmlns='jabber:client' to='", Me.room.Text, "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='", strArray(i), "@nimbuzz.com' /></query></iq>"}))
Me.ProgressBar1.Value += 1
i += 1
Loop
End Sub