Plusieurs questions concernant le WebBrowser

**CLeBeR** · 13/10/2011, 18h56

Bonjour,
je suis en train de développer un navigateur web, j'ai plusieurs problèmes :

1°) J'utilise un TabControl et la fonction TabPages pour ajouter ou supprimer mes onglets, je voudrais que lorsque je clique sur ajouter un onglet, le nouvel onglet aille directement sur la page d’accueil de mon WebBrowser1 ( qui est définit par un variable, mais je peux également le mettre en valeur string si nécessaire )

2°)De plus, lorsque je clique sur le bouton "Home" ( dans mon nouvelle onglet ) le web browser du nouvelle onglet ne va pas sur la page d’accueil ( définit par une variable )

Merci de votre aide

**carlfil** · 14/10/2011, 02h06

Salut

Il faut que tu développes un peu...
Quand tu dis:

~~le nouvel onglet aille directement sur la page d’accueil de mon WebBrowser1~~

C'est quoi ta page d'accueil? une Form?

Excuse j'ai barré ta phrase....

**CLeBeR** · 14/10/2011, 16h18

Salut,
merci de t’intéresser a mon problème, en fait ma page d’accueil est une variable de type string qui est sauvegardé a partir d'un textbox dans un my setting et au chargement du form ( ou est contenue le web browser ) il charge la valeur de la variable string du my setting.
Je voudrais donc que le WebBrowser du nouvel onglet charge lui aussi dès son ouverture la valeur du My Setting

**carlfil** · 14/10/2011, 18h02

Re:
Alors je suis sur de ne pas avoir tout compris

Mais je t'ai fait ça, je ne sais pas si ça va t'aider...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
        'Ton fichier texte qui existe déjà:
        Dim CheminFichierTexte As String = Application.StartupPath & "\Texte.txt"
        'On va créer un fichier temporaire:
        Dim FichierTemp As String = Application.StartupPath & "\Temp.html"
        Dim sw As StreamWriter
 
        Try
            'S'il existe on l'éfface d'abord
            Kill(FichierTemp)
        Catch ex As Exception
        End Try
 
        'On crée le fichier temporaire
        sw = File.CreateText(FichierTemp)
        sw.Flush()
        sw.Close()
 
        'On transforme ton fichier texte en html
        'et on l'écrit dans le fichier temporaire
        sw = File.AppendText(FichierTemp)
        sw.WriteLine("<html>")
        For Each lLigne As String In File.ReadAllLines(CheminFichierTexte)
            sw.WriteLine(lLigne & "<br>")
        Next
        sw.WriteLine("</html>")
        sw.Flush()
        sw.Close()
 
        'Et on fait naviguer le webbrowser sur le fichier temporaire
        WebBrowser1.Navigate(FichierTemp)

**CLeBeR** · 14/10/2011, 18h26

On s'est mal compris ^^ En fait j'ai deja mon code pour naviguer sur la page d’accueil du WebBrowser1 ( le webbrowser d'origine ) mais j'ai un problème pour naviguer sur les nouveaux webbrowser de mon tab control
Voici le code au chargement du form concernant mon WebBrowser1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WebBrowser1.Navigate(My.Settings.PageAcceuilParDefaut)

Donc la c'est nickel, mon WebBrowser1 navigue bien sur la page d'acceuil

Maintenant mon code pour ouvrir un onglet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
        Dim sTabpage As New TabPage
        Dim sBrowser As New WebBrowser
        sBrowser.Dock = DockStyle.Fill
        sTabpage.Text = "Nouvel Onglet"
        sTabpage.Controls.Add(sBrowser)
        TabControl1.TabPages.Add(sTabpage)
        'Ici il me faudrait un truc du genre :
        TabControl1.sTabpage.sBrowser.Navigate(My.Settings.PageAcceuilParDefaut)
 
'Mais malheureusement c'est pas aussi simple

**carlfil** · 14/10/2011, 19h59

Ahhh... avec du code c'est beaucoup plus clair...

Tu remplaces la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TabControl1.sTabpage.sBrowser.Navigate(My.Settings.PageAcceuilParDefaut)

Par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sBrowser.Navigate(My.Settings.PageAcceuilParDefaut)

Tout bête...

Plusieurs questions concernant le WebBrowser

VB.NET

Vue hybride

Discussions similaires

Partager

Partager