27-07-17, 12:29 AM
بسم الله الرحمان الرحيم
اريد التعديل ع الكود ليصبح فعالاً
ماذا تقتروحوا تعديل ع هذا الكود وشكراً
كود التشغيل
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
لا يشتغل الكود الموضوع ارهقني