تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في ProgressBar
#1
السلام عليكم
بعد الصلاه على سيدنا محمد معلم  البشرية
اود من المختصين التعديل ع هذا الكود
مايتناسب مع خبرتهم 
طبيعه المشكلة هي :
عند انتهاء الكود من ازالة جميع الايميلات
الطبيعي ان يظهر للمستخدم انه تم ازالة جميع الايملات ولكن هنا
لم يحدث انه تم ازلة جميع الايميلات اين المشكلة
الاكواد هي كتالي
كود :
 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
وشكراً
الرد
تم الشكر بواسطة:
#2
صلوا على سيدنا محمد
الرد
تم الشكر بواسطة:
#3
حسب فهمي للسؤال انت تريد عندما ينتهي من الازالة تظهر رسالة انتهت الازالة لكن انت مسوي لها داخل Catch يعني م رح تطلع الرسالة الا اذا ظهر خطأ قم بوضعها قبل
Catch Ex As exception
الرد
تم الشكر بواسطة: 3asfa~mdmra , 3asfa~mdmra
#4
اخي ولكن عند وضع
MsgBox("انتهت ازالة الايميلات")
Catch Ex As exception
حتطلع كل شوي
MsgBox("انتهت ازالة الايميلات")

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

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

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

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

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

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

MsgBox("انتهت ازالة الايميلات")
وهنا المشكلة
الرد
تم الشكر بواسطة:
#5
(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 لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ
الرد
تم الشكر بواسطة:
#6
(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 لكي يتم تنفيذ البلوك تبعها في حالة وجود خطأ او لم يوجد سوف يتم تنفيذ
اخي طبقت ماتم ذكره من طرف وكانت نتيجة كالتالي
الرد
تم الشكر بواسطة:
#7
اخي العزيز انت واضعه بداخل Timer وبعدين انت مو مسوي شرط يوقف التايمر 
إذا كنت مسوي شرط يوقف التايمر كـ Timer1.Stop() 
قم بعمل الرسالة بعد Timer1.Stop() ( في حالة كان Timer1.Stop() خارج بلوك Timer1.Tick اما اذا كان في داخل Timer.Tick فقم بعمل الرسالة قبله تماماً 
 اساسا لا يوجد لزوم لعمل تايمر في الكود تبعك 
قم بإرفاق المشروع وسوف نرى كيف نعالج المشكلة بإذن الله
الرد
تم الشكر بواسطة:
#8
(04-03-17, 11:31 PM)thevirus كتب : اخي العزيز انت واضعه بداخل Timer وبعدين انت مو مسوي شرط يوقف التايمر 
إذا كنت مسوي شرط يوقف التايمر كـ Timer1.Stop() 
قم بعمل الرسالة بعد Timer1.Stop() ( في حالة كان Timer1.Stop() خارج بلوك Timer1.Tick اما اذا كان في داخل Timer.Tick فقم بعمل الرسالة قبله تماماً 
 اساسا لا يوجد لزوم لعمل تايمر في الكود تبعك 
قم بإرفاق المشروع وسوف نرى كيف نعالج المشكلة بإذن الله

تم ارفاق المشروع في المرفقات 
وان لم ينجح التحميل اليك رابط التالي
ملاحظة يوجد ايميل مشرف وباسة
كل ماعليك تسجيل الدخول وعمل
Get admin room
وبعدين
clear all admain
هنا حتظهر المشكلة


الملفات المرفقة
.rar   Clear admin room.rar (الحجم : 215.91 ك ب / التحميلات : 32)
الرد
تم الشكر بواسطة: thevirus , thevirus
#9
تم الحل   
.rar   Clear admin room.rar (الحجم : 229.18 ك ب / التحميلات : 31)
'اخي انا اسف لقد تم حذف جميع الادمنز لكن في سبيل حل مشكلة 
        'المشكلة هي في عدم وضع شرط بعد ليوقف التايمر 
        'شرط وقف التايمر هو ان نقوم بعمل شرط وهو عندما يصبح عدد العناصر في الليست بوكس 1 = 0 او اقل نقوم بوقف التايمر ثم نقوم بالخروج من السب
الرد
تم الشكر بواسطة: 3asfa~mdmra
#10
اخي انت احلا شب شفته بحياتي
لكم التقدير والاحترام
الرد
تم الشكر بواسطة: thevirus


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 5 50 منذ 2 ساعة مضت
آخر رد: محمد كريّم
  مشكلة فى استدعاء الفاتورة للتعديل عليها atef_020 27 368 أمس, 10:23 PM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 82 20-07-18, 03:29 AM
آخر رد: YousefOkasha
  مشكلة ظهور الارقام في تقرير الكريستال ريبورت باللغة الانجليزية محمد صلاح ابراهيم 1 57 15-07-18, 05:07 PM
آخر رد: elgokr
Exclamation مشكلة في تثبيت Visual Studio 2013 YousefOkasha 7 299 13-07-18, 10:33 PM
آخر رد: YousefOkasha
  [سؤال] مشكلة عند عمل رن للمشروع khaled_2017 9 171 13-07-18, 07:32 PM
آخر رد: elgokr
  [VB.NET] مشكلة عند اضافة البيانات للسيرفر محمد اسماعيل 7 98 11-07-18, 04:28 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الكريستال ريبورت فراس الغزي 1 61 09-07-18, 03:00 PM
آخر رد: elgokr
  مشكلة في ال .NETFramework YousefOkasha 18 191 01-07-18, 03:33 AM
آخر رد: elgokr
  مشكلة فى طباعة بون كاشير Osama Bayoumy 12 206 28-06-18, 06:58 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم