Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Browser As New WebBrowser Tab1.TabPages.Add("Nouvelle page") Browser.Name = ("Web Browser") Browser.Dock = DockStyle.Fill Tab1.SelectedTab.Controls.Add(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf Done AddHandler Browser.StatusTextChanged, AddressOf WebBrowser_StatusTextChanged AddHandler Browser.NewWindow, AddressOf WebBrowser_NewWindow int = int + 1 CType(Tab1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
Dim LinkUrl As System.Uri Private Sub WebBrowser_StatusTextChanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Try LinkUrl = New System.Uri(CType(Tab1.SelectedTab.Controls.Item(0), WebBrowser).StatusText) Catch End Try End Sub Private Sub WebBrowser_NewWindow(ByVal sender As Object, _ ByVal e As System.ComponentModel.CancelEventArgs) e.Cancel = True If LinkUrl IsNot Nothing Then If My.Settings.PopupBloqueur = False Then e.Cancel = True ElseIf My.Settings.PopupBloqueur = True Then Dim Browser As New WebBrowser Tab1.TabPages.Add("Nouvelle page") Tab1.SelectTab(int) Browser.Name = ("Web Browser") Browser.Dock = DockStyle.Fill Tab1.SelectedTab.Controls.Add(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf Done AddHandler Browser.DocumentCompleted, AddressOf AddHistory AddHandler Browser.StatusTextChanged, AddressOf WebBrowser_StatusTextChanged AddHandler Browser.NewWindow, AddressOf WebBrowser_NewWindow int = int + 1 CType(Tab1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(LinkUrl) End If End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Browser As New WebBrowser Tab1.TabPages.Add("Nouvelle page") Browser.Name = ("Web Browser") Browser.Dock = DockStyle.Fill Tab1.SelectedTab.Controls.Add(Browser) AddHandler Browser.ProgressChanged, AddressOf Loading AddHandler Browser.DocumentCompleted, AddressOf AddHistory AddHandler Browser.DocumentCompleted, AddressOf Done int = int + 1 CType(Tab1.SelectedTab.Controls.Item(0), WebBrowser).GoHome() End Sub
[javascript:ma_fonction_qui_ouvre_une_popup(); lien]