引用 ：http://www.vbgood.com/thread-113934-1-1.html

第一步在窗體的通用欄寫如下代碼：
Private Type pointapi
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
第二步在窗體上放一個(gè)LABEL控件，然后再鼠標(biāo)按下過(guò)程寫下列代碼：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim wz As pointapi
GetCursorPos wz
Label1.Caption = wz.X & "," & wz.Y
End Sub

新加代碼：
在form1窗體load事件中寫入?
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
也可以不是百度，自己寫
在WebBrowser1_BeforeNavigate2事件中寫入
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
'判斷將要打開(kāi)的網(wǎng)頁(yè)的url,如果是我們自定義的mouse://協(xié)議,就進(jìn)行處理
? ? If Left(URL, 8) = "mouse://" Then
? ?? ???'讓網(wǎng)頁(yè)不要跳轉(zhuǎn)
? ?? ???Cancel = True
? ?? ???Dim tmp, x, y
? ?? ???'過(guò)濾url
? ?? ???tmp = Replace(URL, "mouse://", "")
? ?? ???tmp = Replace(tmp, "/", "")
? ?? ???tmp = Split(tmp, "|")
? ?? ???'提取x,y坐標(biāo)
? ?? ???x = tmp(0)
? ?? ???y = tmp(1)
? ?? ???Debug.Print x
? ?? ???Debug.Print y
? ?? ???Dim wz As pointapi
GetCursorPos wz
Label1.Caption = wz.x & "," & wz.y
? ? End If
End Sub

然后在WebBrowser1_DocumentComplete事件中寫入
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
??On Error GoTo ToExit
? ? '------------------------------------------------
? ???
? ? '這里是在WebBrowser1加載網(wǎng)頁(yè)完成后,在WebBrowser1中執(zhí)行一段js腳本,用來(lái)綁定鼠標(biāo)按下事件
? ? '當(dāng)鼠標(biāo)按下以后,js會(huì)控制網(wǎng)頁(yè)跳轉(zhuǎn)到 mouse://x|y 的頁(yè)面,上面的代碼可以截獲這個(gè)協(xié)議
? ? Dim js As String
? ???
? ? js = "document.body.οnclick=function()" & vbCrLf & _
? ?? ?? ?"{location.href='mouse://'+window.event.x+ '|'+window.event.y;}"
? ???
? ?? ???WebBrowser1.Document.parentWindow.execScript js, "javascript"
? ? '------------------------------------------------
? ? Exit Sub
? ? '----------------
ToExit:
? ? Resume Next
End Sub

轉(zhuǎn)載于:https://www.cnblogs.com/sode/archive/2012/09/19/2694494.html

總結(jié)

以上是生活随笔為你收集整理的vb 坐标点击的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。