(24-03-20, 01:58 PM)bidaya كتب :السلام عليكم ورحمة اللهاحاول جلب نص الى الليبل من رابط عبارة على احداثيات الماوس ولم افلح
اتمنى من الاخوة الكرام المساعدة
![]()
(24-03-20, 06:04 PM)bidaya كتب :الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة
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
