Webbrowser multi-onglets

Télécharger le projet
Commenter

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...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.