返回當(dāng)前窗口插入符的坐標(biāo)
WinGetCaretPos ( )
成功: | 返回含有下列信息的 2 元素?cái)?shù)組: |
$array[0] = X 坐標(biāo) | |
$array[1] = Y 坐標(biāo) | |
失敗: | 設(shè)置 @error 為 1. |
Local $a
= WinGetCaretPos()
If Not @error Then ToolTip("第一個(gè)定位光標(biāo)坐標(biāo)", $a[0], $a[1])
Sleep(2000)
Local $b
= _CaretPos()
If Not @error Then ToolTip("第二個(gè)定位光標(biāo)坐標(biāo)", $b[0], $b[1])
Sleep(2000)
; 獲取 MDI 文本編輯器插入符號(hào)坐標(biāo)的一些可靠方法.
Func _CaretPos()
Local
$x_adjust =
5
Local
$y_adjust =
40
Opt("CaretCoordMode", 0) ;相對(duì)模式
Local $c = WinGetCaretPos() ;相對(duì)插入符坐標(biāo)
Local $w = WinGetPos("")
;窗口坐標(biāo)
Local $f = ControlGetFocus("","")
;文本區(qū)域 "句柄"
Local $e = ControlGetPos("",
"", $f) ;文本區(qū)域坐標(biāo)
Local
$t[2]
If
IsArray($c)
And IsArray($w) And
IsArray($e)
Then
$t[0] =
$c[0] +
$w[0] +
$e[0] +
$x_adjust
$t[1] =
$c[1] +
$w[1] +
$e[1] +
$y_adjust
Return $t ;插入符號(hào)光標(biāo)的絕對(duì)屏幕坐標(biāo)
Else
SetError(1)
EndIf
EndFunc ;==>_CaretPos
provider with jb51.net (unicode) |