1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Webbrowser multi-onglets

Webbrowser multi-onglets

Soyez le premier à donner votre avis sur cette source.

Vue 13 779 fois - Téléchargée 1 397 fois

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

Ajouter un commentaire Commentaires
iblsysteme
Messages postés
43
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
23 octobre 2009
31 janv. 2009 à 15:54
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
iblsysteme
Messages postés
43
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
23 octobre 2009
31 janv. 2009 à 13:50
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
NPM118
Messages postés
1
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
17 décembre 2007
17 déc. 2007 à 22:36
Bravo! Simple, mais efficace...
etudiantge
Messages postés
7
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
14 août 2009
3 déc. 2007 à 18:13
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.
cs_yoman64
Messages postés
592
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008
3 déc. 2007 à 16:47
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.
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.