[351028]

(24-03-20, 01:58 PM)bidaya كتب :

السلام عليكم ورحمة الله

احاول جلب نص الى الليبل  من رابط عبارة على احداثيات الماوس ولم افلح

اتمنى من الاخوة الكرام المساعدة

(24-03-20, 06:04 PM)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