Discussion :

[TiDiC]

Bonjour,

J'ai remarqué qu'en utilisant le web browser et en allant sur Google, dès qu'on clique sur le résultat d'une recherche sur Google (ou autres), un navigateur internet reconnu s'ouvre.
Donc deux questions : Existe-t-il un moyen d'ouvrir les résultats d'une recherche dans le même webbrowser ? Comment faire définir à Windows, notre application comme navigateur internet par défaut ?

[wallace1]

Tu devras au préalable demander à l'utilisateur de paramétrer le navigateur par défaut on alors modifier la clé de registre au lancement de ton WebBrowser :

http://windowsitpro.com/systems-mana...ternet-browser

A+

[TiDiC]

Je me suis un peu planter sur ma question, parce que mon navigateur par défaut est Google Chrome et quand une utilise le webbrowser, qu'on clique sur un liens, ça ouvre Internet Explorer qui n'est pas mon navigateur par défaut ... Microsoft :/. N'existe-t-il pas un moyen pour que tous les liens ouverts soient contenus dans le même webbrowser ?

[Graffito]

On gérera l'event NewWindow du WebBrowser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    private void WebBrowser_NewWindow(object sender, CancelEventArgs e)
    { // Objective : display a page requiring a new explorer window in the current WebBrowser  
       HtmlElement Link = WebBrowser.Document.ActiveElement;
       String Url = Link.GetAttribute("href");
       e.Cancel = !Url.Equals("") ;
       if (e.Cancel) 
       {
        if (!Url.StartsWith("//") && Url.StartsWith("/")) Url = WebBrowser.Url.Host + Url;
        WebBrowser.Navigate(Url) ;
       }
       else e.Cancel=true ;
    }

[Graffito]

C'était du C#. Je l'ai converti en VB.net via ce site :
http://www.developerfusion.com/tools...3-36038c076abb

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub WebBrowser_NewWindow(sender As Object, e As CancelEventArgs)
' Objective : display a page requiring a new explorer window in the current WebBrowser  
Dim Link As HtmlElement = WebBrowser.Document.ActiveElement
Dim Url As [String] = Link.GetAttribute("href")
  e.Cancel = Not Url.Equals("")
  If e.Cancel Then
    If Not Url.StartsWith("//") AndAlso Url.StartsWith("/") Then
    Url = WebBrowser.Url.Host + Url
    End If
  WebBrowser.Navigate(Url)
  Else e.Cancel = True
  End If
End Sub

[TiDiC]

J'ai essayé mais quand j'arrive sur la recherche google, ça m'envoie toujours sur IE. De plus, de deux erreurs s'affiche :
Qu'est-ce que je choisis pour les réparer ?

[Graffito]

Ce sont des problèmes de "namespace" :
- Remplacer CancelEventArgs par System.ComponentModel.CancelEventArgs
- Remplacer HtmlElement par System.Windows.Forms.HtmlElement.

J'ai essayé mais quand j'arrive sur la recherche google, ça m'envoie toujours sur IE.

Avec 2 erreurs, l'executable n'a pas été reconstruit.

[TiDiC]

Il y a 2 erreurs :
La liste des erreurs [Image Liste erreur 3.4]
La 1ère erreur [Image Erreur 3] correspondant à

Code :

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

Dim Url As [String] = Link.GetAttribute("href")

La 2ème erreur [Image Erreur 4] correspondant à

Code :

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

Dim Link As System.Windows.Forms.HtmlElement. = WebBrowser1.Document.ActiveElement

[Graffito]

Enlever le "." après HtmlElement devrait résoudre les 2 erreurs.

[TiDiC]

C'est bon, aucune erreur mais ça ne résout pas le problème. IE s'ouvre toujours quand je fais une recherche Google :/ ...

[Graffito]

As-tu bien fait pointer l'event NewWindow du WebBrowser vers la procedure WebBrowser_NewWindow ?

[TiDiC]

Comment fait-on ?
J'ai essayé ça qui était dispo sur MSDN :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub WebBrowser1_NewWindow(sender as Object, e as CancelEventArgs) _ 
     Handles WebBrowser1.NewWindow
 
    Dim messageBoxVB as New System.Text.StringBuilder()
    messageBoxVB.AppendFormat("{0} = {1}", "Cancel", e.Cancel)
    messageBoxVB.AppendLine()
    MessageBox.Show(messageBoxVB.ToString(),"NewWindow Event")
 
End Sub

Ca n'a pas marché. Donc j'ai essayé ça :

Code :

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

1
2
3
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
     Handles WebBrowser1.NewWindow
    End Sub

Avec le code que tu m'as donné, j'ai mis les deux. Ca ne marche pas. Donc comment on fait pour WebBrowser.NewWindow ?