[3asfa~mdmra]

(04-03-17, 07:38 PM)thevirus كتب :

(04-03-17, 06:56 PM)3asfa~mdmra كتب : اخي ولكن عند وضع  
 MsgBox("انتهت ازالة الايميلات")
Catch Ex As exception
حتطلع كل شوي
          MsgBox("انتهت ازالة الايميلات")

          MsgBox("انتهت ازالة الايميلات")

          MsgBox("انتهت ازالة الايميلات")

          MsgBox("انتهت ازالة الايميلات")

يعني عند ازالة صف من لسته بوكس حتطلع رسالة
          MsgBox("انتهت ازالة الايميلات")

          MsgBox("انتهت ازالة الايميلات")

          MsgBox("انتهت ازالة الايميلات")

          MsgBox("انتهت ازالة الايميلات")
وهنا المشكلة

تفضل التعديل

كود :

        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(ex.Message.ToString)
       Finally
           MsgBox("انتهت ازالة الايميلات")
       End Try

استخدم Finally لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ

اخي طبقت ماتم ذكره من طرف وكانت نتيجة كالتالي