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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند تحزيم المشروع تظهر ريساله unable to load msbuild assemblies ٍOfelas 1 130 02-10-20, 04:32 PM
آخر رد: Jounior_P
  برنامج دمج ملفات المشروع في ملف تنفيذي واحد ابو محمد محمد محمد 6 679 27-09-20, 06:35 PM
آخر رد: Anas Mahmoud
  من فضلكم نوع الخطأ في الكود sofiane-phy 4 211 26-09-20, 08:57 PM
آخر رد: sofiane-phy
  كيف اشغل الsql mmsqlserver من خلال المشروع في حالة توقفه عن المل alipro 3 294 23-09-20, 02:06 AM
آخر رد: enjoy
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 2 189 23-09-20, 01:09 AM
آخر رد: محمد مسافر
  [سؤال] احصاء كل عناصر الصور في المشروع في مصفوفة عبد الهادي بهاب 11 753 22-09-20, 03:45 PM
آخر رد: عبد الهادي بهاب
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 172 21-09-20, 12:27 AM
آخر رد: Anas Mahmoud
  [سؤال] لدي امر لملف bat يعمل مع محاكيldplayer jam3h 0 85 13-09-20, 11:22 PM
آخر رد: jam3h
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 211 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 284 06-09-20, 06:33 PM
آخر رد: حريف برمجة

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


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