03-03-17, 03:59 PM
السلام عليكم
بعد الصلاه على سيدنا محمد معلم البشرية
اود من المختصين التعديل ع هذا الكود
مايتناسب مع خبرتهم
طبيعه المشكلة هي :
عند انتهاء الكود من ازالة جميع الايميلات
الطبيعي ان يظهر للمستخدم انه تم ازالة جميع الايملات ولكن هنا
لم يحدث انه تم ازلة جميع الايميلات اين المشكلة
الاكواد هي كتالي
كود :
Private Sub LogInButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton5.Click
If (emad.XmppConnectionState <> XmppConnectionState.SessionStarted) Then
Interaction.MsgBox("Please login" & ChrW(10) & "قم بتسجيل الدخول اولا", MsgBoxStyle.Critical, "خطأ/" & ChrW(10) & "Error")
Else
ProgressBar1.Maximum = owner.Items.Count
Timer1.Start()
Timer1.Interval = 4000
End If
End Sub
الكود الثاني في التايمر
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Me.emad.Send(String.Concat(New String() {"<iq type='set' to='", room.Text, "@conference.nimbuzz.com'><query xmlns='http://jabber.org/protocol/muc#admin'><item jid='", Me.owner.Items.Item(0).ToString, "@nimbuzz.com' affiliation='outcast'/></query></iq>"}))
Me.owner.Items.RemoveAt(0)
Me.ProgressBar1.Value += 1
Me.o.Visible = True
Me.o.Text = Me.owner.Items.Count.ToString
Catch ex As Exception
MsgBox("انتهت ازالة الايميلات")
End Try
End Sub