منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اوضع ProgressBar في هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم
بعد صلاه على سيدنا محمد
صلى الله عليه وسلم
اريد اضافة
ProgressBar
الي هذا الكود
PHP كود :
If Me.checkBox2.Checked Then
                Dim strArray 
As String() = Me.pvt.Text.Split(New Char() { "#"})
 
               Dim i As Integer strArray.GetLowerBound(0)
 
               Do While (<= strArray.GetUpperBound(0))
 
                   Try 
                        Me
.x10.Send(String.Concat(New String() { "<message xmlns='jabber:client' to='"Me.roomname.Text"@conference.nimbuzz.com/"strArray(i), "' type='chat' id='105'><body>"Me.fm1"</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><thread>MgIqZF</thread></message>" }))
 
                       Me.x10.Send(String.Concat(New String() { "<message xmlns='jabber:client' to='"Me.roomname.Text"@conference.nimbuzz.com/"strArray(0), "' type='chat' id='105'><body>"Me.fmf2"</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x><thread>MgIqZF</thread></message>" }))
 
                       Me.x10.Send(String.Concat(New String() { "<presence type = 'unavailable' to = '"Me.roomname.Text"@conference.nimbuzz.com/"Me.cm10"'></presence>" }))
 
                   Catch obj1 As Object
                    End 
Try
 
                   i += 1
                Loop
            End 
If