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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن تعديل علي المشروع اليوم السابع 8 168 منذ 3 ساعة مضت
آخر رد: ابو روضة
  اين الخطئ في هد الكود ahmedbezia 4 90 01-06-20, 03:57 PM
آخر رد: Sorax
  [سؤال] مشكلة , برنامج عند فتحه يقفل وكان يعمل قبل كدا aqarfinder 2 59 29-05-20, 12:56 AM
آخر رد: ابراهيم ايبو
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 99 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  [VB.NET] مشاكل تحزيم المشروع وإضافة الملفات المطلوبة محمد العامر 14 391 26-05-20, 02:00 PM
آخر رد: asemshahen5
  أول سؤال لى : مشروع لا يعمل vbxprogrammer 16 440 21-05-20, 04:16 AM
آخر رد: ابو ليلى
  كارثة فى عدم عمل المشروع .أرجو التدخل منكم فورا DR.YASER 5 162 16-05-20, 01:54 AM
آخر رد: محمد كريّم
  سؤال في طريقة التعامل مع قاعدة البيانات عند تحزيم المشروع adnan gharbi 4 284 15-05-20, 01:03 PM
آخر رد: adnan gharbi
  مشروع خطير لشجرة رائعة و محتاج تطوير لحل تعقيد هذا المشروع DR.YASER 4 178 14-05-20, 09:17 PM
آخر رد: ابراهيم ايبو
  اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker developermedo111 1 82 14-05-20, 12:00 PM
آخر رد: عبدالله الدوسري

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


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