08/04/10 17:22
a_butta
ma nel senso che io posso lasciare un unica Sub e collegare questa a tutti i browser, vero?
aaa
08/04/10 17:36
crash outside control
Si, basta che metti tutto nel ciclo e invece di i, metti k.
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For k As Int32 = 0 To 22
Browser(k) = New WebBrowser
Pages(k) = New TabPage
TabControl1.TabPages.Add(Pages(k))
With Browser(k)
.Parent = Pages(k)
.Anchor = AnchorStyles.Bottom
.Anchor = AnchorStyles.Top
.Anchor = AnchorStyles.Left
.Anchor = AnchorStyles.Right
.Width = Pages(i).Width
.Height = Pages(i).Height
.Navigate(Home)
AddHandler .ProgressChanged, AddressOf Procedura
End With
Home = ConfigForm.ListView1.Items.Item(0).SubItems.Item(1).Text
Next
End Sub
Private Sub Procedura(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
Dim o As WebBrowser = sender
MsgBox(o.Name)
End Sub
Potrebbero esserci degli errori
Ultima modifica effettuata da crash outside control 08/04/10 17:37
aaa