dotNETportal.cz

Dobre den,

potřebuju vypsat do Listboxu URL ze všech WebBrowserů, které vytvořím v TabControl1.TabPages a nemůžu na to přijít.

Tady je přidávání nových tabů a do nich vytvoření webbrowserů:

        Dim Browser As New WebBrowser
        Browser.ScriptErrorsSuppressed = True
        TabControl1.TabPages.Add("New Tab")
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

Nedokážu přijít na správné zapsání Loopu, zkousel jsem všechno možné, jako třeba :

        With TabControl1.TabPages
            For Each Browser As WebBrowser In TabControl1.TabPages

                Form2.ListBox1.Items.Add(Browser.Url)

            Next
        End With

aj taky

        With TabControl1.TabPages
            For Each Browser As WebBrowser In TabControl1.Controls.Find("Web Browser", searchAllChildren:=)

                Form2.ListBox1.Items.Add(Browser.Url)

            Next
       End With

ATD ATD, Může mě prosím někdo poradit ??

Dobrý den, jdete na to dobře, jen musíte projít kolekci controls ve všech tab pages.

Tento kód projde všechny tabPages v TabControlu, najde všechny web browsery a vypíše jejich url:

        For Each TabPage As TabPage In TabControl1.TabPages

            For Each browser As WebBrowser In TabPage.Controls

                ListBox1.Items.Add(browser.Url.ToString())

            Next

        Next

Jen si dejte pozor na jednu věc, tento kód funguje až ve chvíli, kdy všechny web browsery dokončí načítání zadané url adresy (a je jedno jestli úspěšně nebo neúspěšně). Do té doby není vlastnost URL ve web browseru dostupná a při pokusu o její přečtení dostanete vyjímku (jiné vlastnosti jako např. jméno web browseru atd. fungují normálně).

:-) Díky moc, funguje to