Discussion :

[Invité]

bonjour,

j'ai un probleme tout simple j'ai voulu suivre cette exemple:
http://support.microsoft.com/kb/311288/fr#mtDisclaimer
mais au debut quand il demande d'ajouter cette reference Microsoft.mshtml
elle ne se trouve pas dans ma liste
que faire ?
merci,

[Pol63]

dans l'onglet COM il y a microsoft html object librairy et optshold 1.0 type librairy
les 2 ayant mshtml dans le nom de la dll ...

[MABROUKI]

bonjour jeremie

Si tu veux l'avoir dans ta boite à outils panneau .net ,il faut telecharger les PIA Office 2007 ou PIA Office 2003 sur le site MSDN.
bon code..

[Invité]

merci j'ai pu ajouter les deux reference

mais quand je clique sur mon bouton pour afficher les sources rien ne se passe
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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private cmdGUID As New Guid(&HED016940, -17061, _
   &H11CF, &HBA, &H4E, &H0, &HC0, &H4F, &HD7, &H8, &H16)
 
    Private Enum MiscCommandTarget
        ViewSource = 2
        Options
        Find = 1
    End Enum
 
    Private Function GetDocument() As mshtml.HTMLDocument
        Try
            Dim htm As mshtml.HTMLDocument = CType(CustomTabControl1.SelectedTab.Controls.Item(0), WebBrowser).Document
            GetDocument = htm
        Catch
            Throw (New Exception("Erreur sur la page web demander" + "Control: " + Err.GetException().Message))
        End Try
    End Function
 
    Public Sub ViewSource()
        Dim cmdt As IOleCommandTarget
        Dim o As Object
 
        Try
            cmdt = CType(GetDocument(), IOleCommandTarget)
            cmdt.Exec(cmdGUID, Convert.ToUInt32(MiscCommandTarget.ViewSource), _
            Convert.ToUInt32(SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT), o, o)
        Catch
 
        End Try
    End Sub
 
    Public Sub InternetOptions()
        Dim cmdt As IOleCommandTarget
        Dim o As Object
 
        Try
            cmdt = CType(GetDocument(), IOleCommandTarget)
            cmdt.Exec(cmdGUID, Convert.ToUInt32(MiscCommandTarget.Options), _
            Convert.ToUInt32(SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT), o, o)
        Catch
 
        End Try
    End Sub
 
    Public Sub Find()
        Dim cmdt As IOleCommandTarget
        Dim o As Object
 
        Try
            cmdt = CType(GetDocument(), IOleCommandTarget)
            cmdt.Exec(cmdGUID, Convert.ToUInt32(MiscCommandTarget.Find), _
            Convert.ToUInt32(SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DODEFAULT), o, o)
 
        Catch
 
        End Try
    End Sub
 
    Private Sub AfficherLesSourcesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AfficherLesSourcesToolStripMenuItem.Click
        ViewSource()
 
    End Sub

[MABROUKI]

BONJOUR
IL me semble que tu n'as charge la page comme le demande l'exemple.

Code :

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

1
2
3
4
5
6
 
Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        AxWebBrowser1.Navigate("http://www.google.com")
 
    End Sub

bon code....

[Invité]

pour naviguer je me sert d'un combobox pour rentrer l'adresse internet
mais se code ne se trouve pas dans ma form1