Soyez le premier à donner votre avis sur cette source.
Vue 13 563 fois - Téléchargée 1 371 fois
Imports WebBrowser_Lib Public Class frmMain Dim clsNavigator As New WebBrowser_Lib.MultiTab Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load clsNavigator.TabControlDefined(Me.TabControl1) clsNavigator.NewTabPage() clsNavigator.GoHome() AddHandler clsNavigator.Navigated, AddressOf WebBrowser_Navigated AddHandler clsNavigator.Navigating, AddressOf WebBrowser_Navigating AddHandler clsNavigator.ProgressChanged, AddressOf WebBrowser_ProgressChanged AddHandler clsNavigator.NewWindow, AddressOf WebBrowser_NewWindow AddHandler clsNavigator.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted AddHandler clsNavigator.PreviewKeyDown, AddressOf WebBrowser_PreviewKeyDown End Sub Public Sub WebBrowser_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) End Sub Public Sub WebBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) End Sub Public Sub WebBrowser_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) End Sub Public Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Me.txtURL.Text = clsNavigator.AbsoluteUri clsNavigator.DisplayTilte() End Sub Public Sub WebBrowser_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) 'Barre de progresion du chargement. Me.pgbLoading.Minimum = 0 Me.pgbLoading.Maximum = e.MaximumProgress Me.pgbLoading.Value = e.CurrentProgress End Sub Public Sub WebBrowser_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) 'Annule l'ouverture des fenêtres d'Internet Explorer. e.Cancel = True End Sub Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click clsNavigator.Navigate(Me.txtURL.Text) End Sub Private Sub btnOpenInNewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenInNewTab.Click clsNavigator.Navigate(Me.txtURL.Text, True) End Sub Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click clsNavigator.DeleteTabPage() End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged Me.txtURL.Text = clsNavigator.AbsoluteUri End Sub End Class
j'ai trouver pour ouvrir un lien dans un nouvelle onglet
ClsNavigator.Navigate(ClsNavigator.WebBrowser.StatusText, True)
et voila
mais pour ouvrir dans une nouvelle fenetre ça c'est autre chose ,pas encore trouve
pourrais tu me dire comment on peut ouvrir un lien d'une page web dans un nouvelle onglets avec WebBrowser_Lib parce que j'ai fais le tour de ton appli mais en vein
Tu peut me répondre directement sur mon site http://iblsysteme.dyndns.org/forum
Merci beaucoups
pour la note 9/10 pour ce petit manque pour les ouvertures de page
Bien à toi
Ne prend pas mal, le niveau "initié". J'ai choisi ce niveau car pour moi quelqu'un de débutant ne connait pas le système des collections et des AddHandler.
Mais sinon, c'est vrai, le code n'est pas difficile !
Cordialement.
Niveau initié c'est pas un peu exageré ? c'est du niveau débutant, et encore.
Après tout c'est un simple navigateur web, le code est court et très simple.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.