السلام عليكم
بعد الصلاه على سيدنا محمد معلم البشرية
اود من المختصين التعديل ع هذا الكود
مايتناسب مع خبرتهم
طبيعه المشكلة هي :
عند انتهاء الكود من ازالة جميع الايميلات
الطبيعي ان يظهر للمستخدم انه تم ازالة جميع الايملات ولكن هنا
لم يحدث انه تم ازلة جميع الايميلات اين المشكلة
الاكواد هي كتالي
كود :
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
وشكراً
حسب فهمي للسؤال انت تريد عندما ينتهي من الازالة تظهر رسالة انتهت الازالة لكن انت مسوي لها داخل Catch يعني م رح تطلع الرسالة الا اذا ظهر خطأ قم بوضعها قبل
Catch Ex As exception
اخي ولكن عند وضع
MsgBox("انتهت ازالة الايميلات")
Catch Ex As exception
حتطلع كل شوي
MsgBox("انتهت ازالة الايميلات")
MsgBox("انتهت ازالة الايميلات")
MsgBox("انتهت ازالة الايميلات")
MsgBox("انتهت ازالة الايميلات")
يعني عند ازالة صف من لسته بوكس حتطلع رسالة
MsgBox("انتهت ازالة الايميلات")
MsgBox("انتهت ازالة الايميلات")
MsgBox("انتهت ازالة الايميلات")
MsgBox("انتهت ازالة الايميلات")
وهنا المشكلة
(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 لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ
(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 لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ
اخي طبقت ماتم ذكره من طرف وكانت نتيجة كالتالي
اخي العزيز انت واضعه بداخل Timer وبعدين انت مو مسوي شرط يوقف التايمر
إذا كنت مسوي شرط يوقف التايمر كـ Timer1.Stop()
قم بعمل الرسالة بعد Timer1.Stop() ( في حالة كان Timer1.Stop() خارج بلوك Timer1.Tick اما اذا كان في داخل Timer.Tick فقم بعمل الرسالة قبله تماماً
اساسا لا يوجد لزوم لعمل تايمر في الكود تبعك
قم بإرفاق المشروع وسوف نرى كيف نعالج المشكلة بإذن الله
(04-03-17, 11:31 PM)thevirus كتب : [ -> ]اخي العزيز انت واضعه بداخل Timer وبعدين انت مو مسوي شرط يوقف التايمر
إذا كنت مسوي شرط يوقف التايمر كـ Timer1.Stop()
قم بعمل الرسالة بعد Timer1.Stop() ( في حالة كان Timer1.Stop() خارج بلوك Timer1.Tick اما اذا كان في داخل Timer.Tick فقم بعمل الرسالة قبله تماماً
اساسا لا يوجد لزوم لعمل تايمر في الكود تبعك
قم بإرفاق المشروع وسوف نرى كيف نعالج المشكلة بإذن الله
تم ارفاق المشروع في المرفقات
وان لم ينجح التحميل اليك رابط التالي
ملاحظة يوجد ايميل مشرف وباسة
كل ماعليك تسجيل الدخول وعمل
Get admin room
وبعدين
clear all admain
هنا حتظهر المشكلة
تم الحل [
attachment=13410]
'اخي انا اسف لقد تم حذف جميع الادمنز لكن في سبيل حل مشكلة
'المشكلة هي في عدم وضع شرط بعد ليوقف التايمر
'شرط وقف التايمر هو ان نقوم بعمل شرط وهو عندما يصبح عدد العناصر في الليست بوكس 1 = 0 او اقل نقوم بوقف التايمر ثم نقوم بالخروج من السب
اخي انت احلا شب شفته بحياتي
لكم التقدير والاحترام