+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] كيف اوضع ProgressBar في هذا الكود (/showthread.php?tid=20875)
كيف اوضع ProgressBar في هذا الكود - e-coder - 30-06-17
سلام عليكم
كيفية وضع ProgressBar1
في هذا الكود
لتدل ع نهاية تنفيذة
PHP كود :
Dim strArray As String() = PV.PVOWN.Text.Split(New Char() {"#"c})
Dim i As Integer = strArray.GetLowerBound(0)
Do While (i <= 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
RE: كيف اوضع ProgressBar في هذا الكود - L_3 - 30-06-17
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
RE: كيف اوضع ProgressBar في هذا الكود - e-coder - 30-06-17
(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
شكرا مبدع
