[code] Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim WebLoc As Point = PointToScreen(WebBrowser1.Location)
Dim WebCurPos As Point = New Point(Cursor.Position.X - WebLoc.X, Cursor.Position.Y - WebLoc.Y)
With WebCurPos
If .X < 0 Or .Y < 0 Or .X > WebBrowser1.Width Or .Y > WebBrowser1.Height Then
'Debug.WriteLine("Mouse position outside of webbrowser!")
Else
Label1.Text = (WebCurPos.ToString)
End If
End With
End Sub[/code] [code] Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim WebLoc As Point = PointToScreen(WebBrowser1.Location)
Dim WebCurPos As Point = New Point(Cursor.Position.X - WebLoc.X, Cursor.Position.Y - WebLoc.Y)
With WebCurPos
If .X < 0 Or .Y < 0 Or .X > WebBrowser1.Width Or .Y > WebBrowser1.Height Then
'Debug.WriteLine("Mouse position outside of webbrowser!")
Else
Label1.Text = (WebCurPos.ToString)
End If
End With
End Sub[/code] [code] Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim WebLoc As Point = PointToScreen(WebBrowser1.Location)
Dim WebCurPos As Point = New Point(Cursor.Position.X - WebLoc.X, Cursor.Position.Y - WebLoc.Y)
With WebCurPos
If .X < 0 Or .Y < 0 Or .X > WebBrowser1.Width Or .Y > WebBrowser1.Height Then
'Debug.WriteLine("Mouse position outside of webbrowser!")
Else
Label1.Text = (WebCurPos.ToString)
End If
End With
End Sub[/code] [code]Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted
Try
Dim Res As Object = Nothing
Dim MyWeb As Object
MyWeb = Me.WebBrowser1.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, 25, IntPtr.Zero)
Catch ex As Exception
MsgBox("Error:" & ex.Message)
End Try
End Sub[/code]
Im getting point position with this:[code] Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim WebLoc As Point = PointToScreen(WebBrowser1.Location)
Dim WebCurPos As Point = New Point(Cursor.Position.X - WebLoc.X, Cursor.Position.Y - WebLoc.Y)
With WebCurPos
If .X < 0 Or .Y < 0 Or .X > WebBrowser1.Width Or .Y > WebBrowser1.Height Then
'Debug.WriteLine("Mouse position outside of webbrowser!")
Else
Label1.Text = (WebCurPos.ToString)
End If
End With
End Sub[/code]
If i use zoom code to reduce to 25 the click not work if i use it with 100 works.
JLCPCB – Prototype 10 PCBs for $2 (For Any Color)
China’s Largest PCB Prototype Enterprise, 600,000+ Customers & 10,000+ Online Orders Daily
How to Get PCB Cash Coupon from JLCPCB: https://bit.ly/2GMCH9w