تقييم الموضوع :
  • 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]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الخطا ,البرنامج لا يعمل AbdoDabak 1 58 , 12:15 AM
آخر رد: ابراهيم ايبو
  ممكن تحويل الكود لحلقة تكرار m.n.hakami 2 74 10-11-19, 12:25 AM
آخر رد: m.n.hakami
  [VB.NET] اين الخطاء في الكود اليوم السابع 0 40 08-11-19, 11:37 PM
آخر رد: اليوم السابع
  [VB.NET] المكان المناسب لي هذا الكود اليوم السابع 0 46 08-11-19, 10:26 PM
آخر رد: اليوم السابع
  [VB.NET] مساعده في الكود اليوم السابع 1 80 02-11-19, 09:20 PM
آخر رد: CrazyMe
  احبتى فى الله هل فى هذا الكود خطأ خالد كامل1 1 106 28-10-19, 02:38 PM
آخر رد: asemshahen5
  [VB.NET] اظهار الفورم مره واحده اليوم السابع 24 584 27-10-19, 11:15 AM
آخر رد: 3booody
  [VB.NET] وضع الكود في الحدث المناسب اسامه الهرماوي 1 94 26-10-19, 04:52 AM
آخر رد: asemshahen5
  مشكلة فى المشروع المصمم بفيجوال بيسك 2012 مروان العليانى 4 219 12-10-19, 05:48 PM
آخر رد: elgokr
  طلب التعديل على هذا الكود ليضيف من التكست بوكس لملف التكست الخارجى على زهران 4 151 11-10-19, 02:59 AM
آخر رد: على زهران

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


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