جلب احداثيات الماوس - نسخة قابلة للطباعة

جلب احداثيات الماوس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب احداثيات الماوس (/showthread.php?tid=33959)

جلب احداثيات الماوس - bidaya - 24-03-20

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

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

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

RE: جلب احداثيات الماوس - bidaya - 24-03-20

PHP كود :

Public Class Form1

    Dim WithEvents tmr As New Timer With {.Interval = 10, .Enabled = True}

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://ane.myartsonline.com/e.y.php")
    End Sub

    Private Sub tmr_Tick(sender As Object, e As EventArgs) Handles tmr.Tick
        If WebBrowser1.Document IsNot Nothing Then
            Dim p = WebBrowser1.Document.GetElementById("demo")
            If p IsNot Nothing Then Label1.Text = p.OuterText
        End If
    End Sub

End Class 

جميل اخي الكريم الله يحفظك

الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة

RE: جلب احداثيات الماوس - 351028 - 24-03-20

(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 

RE: جلب احداثيات الماوس - bidaya - 25-03-20

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 

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