Reference project vb

Version imprimable

26/06/2011, 13h28
Invité

Reference project vb

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,
26/06/2011, 16h02
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 ...
26/06/2011, 16h09
MABROUKI

mshtml manquant

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..

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:

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

CHARGE LA PAGE WEB

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

Code:

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....

26/06/2011, 20h39
Invité

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