تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف اوضع ProgressBar في هذا الكود
#1
سلام عليكم
كيفية وضع 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 
الرد }}}
تم الشكر بواسطة:
#2
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 
الرد }}}
تم الشكر بواسطة: e-coder
#3
(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
الرد }}}
تم الشكر بواسطة:



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


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