Bonjour ,
Je développe un petit navigateur web et je me posait plusieur questions alors j'ai décider de tous les poser dans une seule discution pour réduire le nombre de discussions.

Alors j'ai 4 problème a vous faire part.

Problème #1:

Comment faire pour que ton Navigateur web devienne le navigateur web par défaut de l'ordinateur.

(aucune idée pour ce probleme)


Problème #2:

Il va en fonction du premier:

Lorsque tu lance par ex: un link donner via Msn avec ton navigateur web, ca ne fonctionne pas. Ca ouvre une fenêtre , mais il navigue a rien


Problème #3:

Webbrowser Newwindow? J'ai trouvé plusieurs informations sur ce cas , mais elle fonctionne que seulement avec un navigateur web simple ( sans tabcontrols) alors j'ai testé avec mes tabs , sans aucuns résultat. Elle me donne toujours la même erreur:

Une erreur s'est produite lors de la création du formulaire. Pour plus d'informations, consultez Exception.InnerException. L'erreur est : L'index 0 est hors limites.
Nom du paramètre : index
Voici le code que j'utilise :
(J'utilise la dll SHDOCVW)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub New()
 
        Me.InitializeComponent()
        ' Cast to WebBrowser, so that we can subscribe to the NewWindow2 event
        AddHandler DirectCast(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ActiveXInstance, SHDocVw.WebBrowser).NewWindow2, AddressOf browses_NewWindow2
       End Sub
 
    Private Sub browses_NewWindow2(ByRef ppDisp As Object, ByRef Cancel As Boolean)
        ' Set ppDisp to the instance of IE we want used
        ppDisp = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ActiveXInstance
    End Sub

Problème #4:

Comment faire pour bloqué les Pop-ups?

Encore une fois , j'ai une erreur comme celle du Newwindow.
Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub New()
 
        Me.InitializeComponent()
        ' Cast to WebBrowser, so that we can subscribe to the NewWindow2 event
       AddHandler DirectCast(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ActiveXInstance, SHDocVw.WebBrowser).NewWindow3, AddressOf browses_NewWindow3
 
       End Sub
    Private Sub browses_NewWindow3(ByRef ppDisp As Object, ByRef Cancel As Boolean, ByVal dwFlags As UInteger, ByVal bstrUrlContext As String, ByVal bstrUrl As String)
 
        ppDisp = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ActiveXInstance
 
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(bstrUrl)
    End Sub

Merci grandement do votre aide.
Si jamais je réussis a régler tous ces problème , ca va être fantastique. Un GROS GROS GROS merci encore a tous ceux qui vont m'aider au développement de mon programme.