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

نسخة كاملة : كيف اوضع ProgressBar في هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم
كيفية وضع ProgressBar1
في هذا الكود
لتدل ع نهاية تنفيذة
PHP كود :
 Dim strArray As String() = PV.PVOWN.Text.Split(New Char() {"#"c})
 
                   Dim i As Integer strArray.GetLowerBound(0)
 
                   Do While (<= strArray.GetUpperBound(0))
 
                       Try
                            emad21
.Send("<message 

xmlns='jabber:client' to='" 
room.Text "@conference.nimbuzz.com/" 

strArray(i) + "' type='chat' id='292'><body>" mpnone.Text 

"</body><active xmlns='http://jabber.org/protocol/chatstates' /><x 

xmlns='jabber:x:event'><composing /></x></message>"
)
 
                           i += 1
                        Catch ex 
As Exception
                        End 
Try
 
                   Loop 
PHP كود :
Dim strArray As String() = PV.PVOWN.Text.Split(New Char() {"#"c})
 
                   Dim i As Integer strArray.GetLowerBound(0)
 
                   Me.ProgressBar1.Maximum=100
                    For i
=0 To strArray.Count-1
                        Try

                            Me
.ProgressBar1.Value=(i/(strArray.Count-1))*100
                            Application
.DoEvents

                            emad21
.Send("<message 

xmlns='jabber:client' to='" 
room.Text "@conference.nimbuzz.com/" 

strArray(i) + "' type='chat' id='292'><body>" mpnone.Text 

"</body><active xmlns='http://jabber.org/protocol/chatstates' /><x 

xmlns='jabber:x:event'><composing /></x></message>"
)
 
                           i += 1
                        Catch ex 
As Exception
                        End 
Try

 
                   Next 
(30-06-17, 12:24 PM)L_3 كتب : [ -> ]
PHP كود :
Dim strArray As String() = PV.PVOWN.Text.Split(New Char() {"#"c})
 
                   Dim i As Integer strArray.GetLowerBound(0)
 
                   Me.ProgressBar1.Maximum=100
                    For i
=0 To strArray.Count-1
                        Try

                            Me
.ProgressBar1.Value=(i/(strArray.Count-1))*100
                            Application
.DoEvents

                            emad21
.Send("<message 

xmlns='jabber:client' to='" 
room.Text "@conference.nimbuzz.com/" 

strArray(i) + "' type='chat' id='292'><body>" mpnone.Text 

"</body><active xmlns='http://jabber.org/protocol/chatstates' /><x 

xmlns='jabber:x:event'><composing /></x></message>"
)
 
                           i += 1
                        Catch ex 
As Exception
                        End 
Try

 
                   Next 

شكرا مبدع Heart