منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : جلب احداثيات الماوس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله
احاول جلب نص الى الليبل من رابط عبارة على احداثيات الماوس ولم افلح

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

PHP كود :
Public Class Form1

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

 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        WebBrowser1
.Navigate("http://ane.myartsonline.com/e.y.php")
 
   End Sub

    Private Sub tmr_Tick
(sender As ObjectAs EventArgsHandles 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 

جميل اخي  الكريم الله يحفظك
الفكرة كنت اريد جلب احداثيات الماوس فوق الويب براوزر لهذا اضطريق استعمال هذه الطريقة 
(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 ObjectAs EventArgsHandles MyBase.Load
        WebBrowser1
.Navigate("https://google.com")
 
   End Sub

    Dim IsAssigned 
As Boolean False
    Private Sub WebBrowser1_DocumentCompleted
(sender As ObjectAs WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        If WebBrowser1
.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned 
True
            AddHandler WebBrowser1
.Document.MouseMoveAddressOf Document_MouseMove
        End 
If
 
   End Sub

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

End 
Class 


OffsetMousePosition

PHP كود :
Private Sub Document_MouseMove(sender As ObjectAs HtmlElementEventArgs)
 
   Label1.Text "X coords: " e.OffsetMousePosition.", Y coords: " e.OffsetMousePosition.Y
End Sub 
Webbrowser: Mouse Events

PHP كود :
Public Class Form1

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        WebBrowser1
.Navigate("https://google.com")
 
   End Sub

    Dim IsAssigned 
As Boolean False
    Private Sub WebBrowser1_DocumentCompleted
(sender As ObjectAs WebBrowserDocumentCompletedEventArgsHandles WebBrowser1.DocumentCompleted
        If WebBrowser1
.Document <> Nothing AndAlso Not IsAssigned Then
            IsAssigned 
True
            AddHandler WebBrowser1
.Document.MouseMoveAddressOf Document_MouseMove
        End 
If
 
   End Sub

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

End 
Class 


OffsetMousePosition

PHP كود :
Private Sub Document_MouseMove(sender As ObjectAs HtmlElementEventArgs)
 
   Label1.Text "X coords: " e.OffsetMousePosition.", Y coords: " e.OffsetMousePosition.Y
End Sub 

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