viator
دوشنبه 13 بهمن 1393, 14:43 عصر
سلام به همه دوستان گرامی
من می خوام که در برنامه در حال اجرا چند کنترل WebBrowser از طریق دستور زیر ایجا کنم...
کد زیر رو نوشتم اما هیچ عکس العملی نشون نمیده نه خطایی نه چیزی و دستور رو هم انجام نمیده...
اصلا برنامه وقتی به این قسمت میرسه دیگه هیچ کاری انجام نمیده...
ممنون می شم بنده رو راهنمای کنید...
با تشکر
For ID As Byte = 1 To 10
Dim WebBrowser(ID) As WebBrowser
With WebBrowser(ID)
.ScriptErrorsSuppressed = True
.Width = 100
.Height = 100
.Location = New Point(493 + 1, 108 + 1)
WebBrowser(ID).Navigate("http://www.google.com")
End With
Me.Controls.Add(WebBrowser(ID))
Next ID
من می خوام که در برنامه در حال اجرا چند کنترل WebBrowser از طریق دستور زیر ایجا کنم...
کد زیر رو نوشتم اما هیچ عکس العملی نشون نمیده نه خطایی نه چیزی و دستور رو هم انجام نمیده...
اصلا برنامه وقتی به این قسمت میرسه دیگه هیچ کاری انجام نمیده...
ممنون می شم بنده رو راهنمای کنید...
با تشکر
For ID As Byte = 1 To 10
Dim WebBrowser(ID) As WebBrowser
With WebBrowser(ID)
.ScriptErrorsSuppressed = True
.Width = 100
.Height = 100
.Location = New Point(493 + 1, 108 + 1)
WebBrowser(ID).Navigate("http://www.google.com")
End With
Me.Controls.Add(WebBrowser(ID))
Next ID