+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] لماذ هذا الكود غير فعال؟؟ (/showthread.php?tid=21202)
لماذ هذا الكود غير فعال؟؟ - e-coder - 27-07-17
بسم الله الرحمان الرحيم
اريد التعديل ع الكود ليصبح فعالاً
ماذا تقتروحوا تعديل ع هذا الكود وشكراً
كود التشغيل
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ProgressBar1.Maximum = ListBox3.Items.Count
Start1.Start()
End Sub
PHP كود :
Start1.Interval = "2000"
emad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' to='", room.Text, "@conference.nimbuzz.com/", Me.ListBox3.Items.Item(0).ToString, "' type='chat' id='292'><body>" + mspv1.Text + "</body><html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'><p><em>false</em><strong>true</strong><span style='" + colors + "'/></p></body></html></message>"}))
Me.ListBox3.Items.RemoveAt(0)
ProgressBar1.Value += 1
اذا كان العدد قليل في ListBox3 يصبح فعلا
اما اذا كان العدد كثير في ListBox3
لا يشتغل الكود الموضوع ارهقني