Oppure

Loading
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 :k:
Ultima modifica effettuata da crash outside control 08/04/10 17:37
aaa