Website in standaard browser laden

[THWIT]

Hallo!

Ik heb deze code

Private Sub WebBrowser2_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser2.Navigating
        If e.Url.ToString <> "http://www.theks.comuf.com/TEST/BETA/overzicht1/1_1.html" Then
            e.Cancel = True
            Process.Start(e.Url.ToString())
        End If

    End Sub

Hiermee start hij de website in de standaard webbrowser m.u.v. de eerst genoemde link.

Nou is de vraag: In plaats van die ene uitzondering wil ik drie website's uitzonderen, hoe doe ik dat?

Alvast bedankt :thumb:

 

[JoZ1]

Die links die uitgezonderd moeten worden in een array zetten? En dan met een For-Each statement aan de gang.

Of is dat niet wat je bedoelde?

 

[CaptainBri]

Probeer deze eens

        Dim LinksOmInBrowserTeOpenen As New List(Of String)
        LinksOmInBrowserTeOpenen.Add("www.google.nl")
        LinksOmInBrowserTeOpenen.Add("http://www.theks.comuf.com/TEST/BETA/overzicht1/1_1.html")

        If LinksOmInBrowserTeOpenen.Contains(e.Url.ToString) Then
            e.Cancel = True
            Process.Start(e.Url.ToString())
        End If

Ik neem aan dat je snapt hoe het werkt, zoniet --> om een link toe te voegen doe je alleen dit:

LinksOmInBrowserTeOpenen.Add("Link komt hier")

Enne het beste kan je die lijst globaal maken, en bij je form_load die items laten toevoegen aan de lijst (List/LinksOmInBrowserTeOpenen). Dan hoeft hij niet steeds die lijst aan te maken wanneer je een webpagina bezoekt.

 

[THWIT]

Bedankt!
Ik zal hem even proberen!

 

[THWIT]

Ik heb hem getest, hij deed het bijna, het enige dat nog fout ging was dat hij verkeerd om werkte.
De links die je aangaf opende hij juist in de standaard browser.
Maar dat heb ik simpel opgelost met:

If LinksOmInBrowserTeOpenen.Contains(e.Url.ToString) Then

        Else
            e.Cancel = True
            Process.Start(e.Url.ToString())
        End If

Dus, hij is opgelost. Bedankt! :thumb:

 

[CaptainBri]

Kleine verbetering:

If Not LinksOmInBrowserTeOpenen.Contains(e.Url.ToString) Then
            e.Cancel = True
            Process.Start(e.Url.ToString())
        End If

 

[THWIT]

Oké, maak ik dat ervan.
Dat is wel handiger...