Webbrowser multi-onglets

Soyez le premier à donner votre avis sur cette source.

Vue 13 464 fois - Téléchargée 1 364 fois

Description

Cette DLL permet de créer un navigateur multi-onglets à partir d'un objet TabControl de Visual Studio. Tout est dans le zip...

Source / Exemple :


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

Conclusion :


N'hésitez pas à me poser des questions à propos des fonctions...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
43
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
23 octobre 2009

Re:bonjours
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
Messages postés
43
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
23 octobre 2009

bonjours
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
Messages postés
1
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
17 décembre 2007

Bravo! Simple, mais efficace...
Messages postés
7
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
14 août 2009

Salut YOMAN64,

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.
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008

Salut,
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.