Discussion :

[Invité]

bonjour a tous,

je voudrait placer se code

Code :

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

CType(CustomTabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString()

dans l'évenement mousemove pour pouvoir afficher l'adresse url dans un label quand je passe la souris sur une adresse comme IE par exemple
sauf que pour créé l'évenement DocumentCompleted je fait se code:

Code :

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

AddHandler Browser.DocumentCompleted, AddressOf Done

donc pour créé l'évement mousemove du browser je ne sais pas comment m'y prendre
j'ai éssayer sa AddHandler Browser.MouseMove, AddressOf ??? mais la je sais pas quoi marqué

merci d'avance

[vdekercd]

Code :

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

AddHandler "ton objet".MouseMove, AddressOf "le nom de ta fonction."

Attention : La signature de ta fonction doit être du style

Code :

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

Private Sub TaFonction(sender As Object, e As System.Windows.Forms.MouseEventArgs)

Pour plus d'informations :

http://msdn.microsoft.com/en-us/libr...mousemove.aspx

[Invité]

oui je sais mais c'est sur la fonction que je colle

[MABROUKI]

bonjour jeremie
L'evenement move du webrowser sert à deplacer le controle.
Pour ce que tu veux faire vois-ci le detour(workaround),c'est dans un membre du webbrowser que se cache la fonctionnalite cherchee:
- declare un HtmlDocument dans ton forme.
- initialise-le dans WebBrowser1_DocumentCompleted
- ajoute ton handler MetAjourLabels à l'evenement mousemove du HtmlDocument
Dans les proprietes de l 'argument HtmlElementEventArgs on trouve ceci:
-HtmlElementEventArgs.ToElement.InnerHtml => le titre du lien lorsqu'on promene sa souris sur la page.
-HtmlElementEventArgs.ToElement.TagName => valeur "A" nous renvoie la balisee de chaque lien et dans son champ attribut "href" on trouve la fameuse URL survolee du lien.
code exemple:

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
 
Option Explicit On
 
Public Class Form1
    'voici le membre qui fera peut etre ton bonheur
    Private WithEvents objDocument As HtmlDocument
    Public Sub New()
 
 
        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
 
        Me.ToolStripTextBoxURL.Text = "http://www.yahoo.fr/"
    End Sub
    Private Sub MetAjourLabels(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        'Texte du titre du lien vers lequel va le pointeur souris
        Me.Label1.Text = e.ToElement.InnerHtml
        Me.Label1.Update()
        'Texte de l'URL vers lequel va le pointeur souris
        If e.ToElement.TagName = "A" Then
            Me.Label2.Text = e.ToElement.GetAttribute("href")
            Me.Label2.Update()
        End If
 
 
    End Sub
    'Bouton Go sur barre d'outils pour demarrer recherche 
    Private Sub ToolStripBtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripBtnGo.Click
        Navigate(ToolStripTextBoxURL.Text)
    End Sub
    ' Navigue vers l'Url si elle valide
    Private Sub Navigate(ByVal address As String)
 
        If String.IsNullOrEmpty(address) Then Return
        If address.Equals("about:blank") Then Return
        If Not address.StartsWith("http://") And _
            Not address.StartsWith("https://") Then
            address = "http://" & address
        End If
 
        Try
            WebBrowser1.Navigate(New Uri(address))
        Catch ex As System.UriFormatException
            Return
        End Try
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        objDocument = WebBrowser1.Document
        AddHandler Me.objDocument.MouseOver, AddressOf MetAjourLabels
    End Sub
    ' Met à jour URL dans TextBoxURL dans barre d'outils  lors de la navigation.
    Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        ToolStripTextBoxURL.Text = WebBrowser1.Url.ToString()
    End Sub
 
End Class

bon code....

[Invité]

c'est cool merci bien sa marche