چگونگی استفاده از دستور For

[samiasoft]

من 50 تا WebBrowser1 دارم، در کد زیر میخواهم، i = 1 To 50 و b = 251 To 300 باشد چگونه از For استفاده کنم؟
WebBrowser1(i).Navigate Text123 & b
ازدستور زیر استفاده کردم اما درست کار نمیکنه
For i = 1 To 50
For b = 251 To 300
WebBrowser1(i).Navigate Text123 & b
Next b
Next i

[vbhamed]

سلام
چرا دستور Navigate رو تو حلقه داخلي گذاشتين، اينطوري هر بروزري 2500 بار ميخواد يك صفحه رو باز كنه، البته اگر منظورتون افزايش بازديد سايت هست اينطوري نميشه چون بعد از هر Navigate بايد صبر كنيد تا صفحه بارگزاري بشه و ميزان صبر كردن هم بستگي به سايز صفحه و سرعت اينترنت داره
يه مقدار بيشتر توضيح بدين هدفتون چيه از اين كار ؟

[samiasoft]

سلام
چرا دستور Navigate رو تو حلقه داخلي گذاشتين، اينطوري هر بروزري 2500 بار ميخواد يك صفحه رو باز كنه، البته اگر منظورتون افزايش بازديد سايت هست اينطوري نميشه چون بعد از هر Navigate بايد صبر كنيد تا صفحه بارگزاري بشه و ميزان صبر كردن هم بستگي به سايز صفحه و سرعت اينترنت داره
يه مقدار بيشتر توضيح بدين هدفتون چيه از اين كار ؟

من در تسکت باکسم مقدار http://www.cc.com/ss را دارم خب همونطوری که میبنید یه متغییر b گذاشتم تا این ادرس رو برای مثال به گونه زیر

http://www.cc.com/ss251
http://www.cc.com/ss252
http://www.cc.com/ss253
.........
در WebBrowser1 به ترتیب


WebBrowser1(1)
WebBrowser1(2)
WebBrowser1(3)
..........

لود کنه یعنی هر بار آدرسم فرق میکنه در واقع میخواهم با یک بار لود اینها یه کار خاصی رو انجام بدم

اما انگونه که در بالا کد رو نوشته بودم درست لود نمیکنه!

[vbhamed]

سلام
اون چيزي كه مد نظر شماست به شكل زير نوشته ميشه
For b = 251 To 300
WebBrowser1(b - 250).Navigate Text123 & b
Next

[samiasoft]

سلام
اون چيزي كه مد نظر شماست به شكل زير نوشته ميشه
For b = 251 To 300
WebBrowser1(b - 250).Navigate Text123 & b
Next
چگونه در این حالت وقتی WebBrowser یکی یکی سایت ها رو بطور کامل لو میکنه از لود کامل تک تک WebBrowser ها مطلع بشم؟

[m.4.r.m]

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
MsgBox "Complete."
End Sub

[samiasoft]

یه سوالی داشتم در پایان...البته معذرت میخوام که با موضوع تاپیک شاید بی ربط هست
من با کد زیر وب بروزرها رو به فرم میارم
For i = 1 To 3
Load WebBrowser1(i)
Next i
و سپس با کد زیر در انها ادرس های خاصی را باز میکنم
For b = Textab.Text To Textab2.Text
WebBrowser1(b - Textacc.Text).Navigate Text123 & b
Next
من میخواستم بدونم ایا نمیشود این دو مرحله رو کدهاشو کمتر کرد یعنی بدین صورت :
For b = Textab.Text To Textab2.Text
Load WebBrowser1(b - Textacc.Text).Navigate Text123 & b
Next
اما کد انگار درست نیست...ممنون میشوم در این باره نیز مرا راهنمایی کنید

[vbhamed]

سلام
كاري كه ميشه انجام داد اينه ولي مقادير Textbox هاتون رو اينجا بزاريد تا ببينيم توش چي نوشتيد
For b = Textab To Textab2
Load WebBrowser1(b - Textacc)
WebBrowser1(b - Textacc).Navigate Text123 & b
Next