تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] لماذ لا يعمل ProgressBar الا مرة واحده في هذا الكود + المشروع
#1
سلام عليكم

الخلل في الكود ادناه والمشكلة تكمن في


ان  ProgressBar
يظهر عمله لمرة واحدة فقط




PHP كود :
Private Sub BackgroundWorker1_DoWork(sender As ObjectAs System.ComponentModel.DoWorkEventArgsHandles BackgroundWorker1.DoWork
        Dim i 
As Integer
        For i 
0 To ListBox1.Items.Count 1
                Me
.emad1.Send(String.Concat(New String() {"<iq from='"Me.emad1.Username.ToString"@nimbuzz.com/"Me.emad1.Resource"' type='set' to='uprofile.nimbuzz.com' id='pcClient-299'><profile xmlns='http://jabber.org/protocol/profile'><x xmlns='jabber:x:data' type='submit'><field type='hidden' var='FORM_TYPE'><value>http://jabber.org/protocol/profile</value></field><field var='nickname'><value>"Me.TextBox3.Text"</value></field></x></profile></iq>"}))
 
               Me.emad1.Send(String.Concat(New String() {"<presence to='" ListBox1.Items(i) & "@s.chatp.net' type='subscribe'/>"}))
 
               Me.emad1.Send(String.Concat(New String() {"<message type='chat' id='purple8c986e43' to='" ListBox1.Items(i) & "@s.chatp.net'><active xmlns='http://jabber.org/protocol/chatstates'/><body>" Form2.TextBox1.Text "</body></message>"}))
 
               Me.emad1.Send(String.Concat(New String() {"<message type='chat' id='purple8c986e43' to='" ListBox1.Items(i) & "@s.chatp.net'><active xmlns='http://jabber.org/protocol/chatstates'/><body>" Form2.TextBox2.Text "</body></message>"}))
 
               Me.emad1.Send(String.Concat(New String() {"<message type='chat' id='purple8c986e43' to='" ListBox1.Items(i) & "@s.chatp.net'><active xmlns='http://jabber.org/protocol/chatstates'/><body>" Form2.TextBox3.Text "</body></message>"}))
 
               Me.emad1.Send(String.Concat(New String() {"<message type='chat' id='purple8c986e43' to='" ListBox1.Items(i) & "@s.chatp.net'><active xmlns='http://jabber.org/protocol/chatstates'/><body>" Form2.TextBox4.Text "</body></message>"}))
 
               Threading.Thread.Sleep(1000)
 
           Dim a As Integer = (i)
 
           Dim b As Integer = (ListBox1.Items.Count)
 
           Me.ProgressBar1.Invoke(Sub()
 
                                      Me.ProgressBar1.Value = ((1) / (b)) * 100
                                   End Sub
)
 
           Label14.Text = (ListBox1.Items(i))
 
           Next
        Me
.id1.Clear()

 
   End Sub 


الملفات المرفقة
.rar   cod 400.rar (الحجم : 231.71 ك ب / التحميلات : 32)
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته 

تم حل المشكلة 

في المرفقات ..... 

تحياتي ....


الملفات المرفقة
.rar   cod 400.rar (الحجم : 235.32 ك ب / التحميلات : 26)
الرد
تم الشكر بواسطة:
#3
المشكلة كما هي لم يحل شئ والكود كما هو ؟؟
الرد
تم الشكر بواسطة:
#4
أخي الفاضل هل هذا هو المطلوب تحميل ProgressBar  ؟ 

أم تريد تحميله عند إجراء معين 



الرد
تم الشكر بواسطة:
#5
يمكن هذا هو المطلوب

كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       If ProgressBar1.Value = 100 Then
           ProgressBar1.Value = 0
           BackgroundWorker1.RunWorkerAsync()
       Else
           BackgroundWorker1.RunWorkerAsync()
       End If
   End Sub
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله غير منطقيه لا اعرف لها سبب المشروع مرفق اليوم السابع 13 206 , 01:40 AM
آخر رد: اليوم السابع
  [سؤال] ما الخطأ في هذا الكود sawsan 2 63 17-01-20, 09:51 PM
آخر رد: sawsan
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 6 172 12-01-20, 12:28 PM
آخر رد: مصمم هاوي
  ممكن المساعده في هذا المشروع اليوم السابع 2 110 10-01-20, 05:41 PM
آخر رد: ابو ليلى
  مشكلة في الكود اسامه الهرماوي 3 120 10-01-20, 03:27 AM
آخر رد: اسامه الهرماوي
  الترقيم التلقائى للخانة id فى المشروع المرفق المبرمج العتيق 5 389 09-01-20, 04:55 PM
آخر رد: asemshahen5
  [سؤال] اين الخطأ في هذا الكود اليوم السابع 21 459 06-01-20, 11:40 AM
آخر رد: جميل
  [نقاش] أيهما أفضل من وجهه نظرك فى عمل المشروع ابو روضة 13 459 04-01-20, 03:22 AM
آخر رد: أمجد وضاح
Rainbow [كود] ماهو الخطا في الكود الموضح في الصوره اسفل محمد مسافر 1 86 31-12-19, 03:51 PM
آخر رد: الماجيك مسعد
  مساعده في هذا الكود اليوم السابع 1 74 30-12-19, 09:59 AM
آخر رد: mmali127

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


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