[bidaya]

Webbrowser: Mouse Events

PHP كود :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("https://google.com")
    End Sub

    Dim IsAssigned As Boolean = False
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned = True
            AddHandler WebBrowser1.Document.MouseMove, AddressOf Document_MouseMove
        End If
    End Sub

    Private Sub Document_MouseMove(sender As Object, e As HtmlElementEventArgs)
        Label1.Text = "X coords: " & e.MousePosition.X & ", Y coords: " & e.MousePosition.Y
    End Sub

End Class 


---

OffsetMousePosition

PHP كود :

Private Sub Document_MouseMove(sender As Object, e As HtmlElementEventArgs)
    Label1.Text = "X coords: " & e.OffsetMousePosition.X & ", Y coords: " & e.OffsetMousePosition.Y
End Sub 


الله يجازيك يالف خير اخي على هذا المجهود