GetCursorPosでスクリーン座標は手に入るのですが、hMainWnd上での座標を手に入れることはできないのでしょうか?
もしやウインドウの座標を求めてそこから計算とかになるんですか…?
ウインドウ上のカーソル座標
マウスが動いた時のイベントで取得される座標を、変数に保存しておく、というのでは駄目でしょうか?
http://www.activebasic.com/help_center/ ... seMove.htm
http://www.activebasic.com/help_center/ ... seMove.htm
一応可能です。
AB4系だと、プロンプトのウインドウハンドルは_PromptSys_hWndに入ってます。
AB4系だと、プロンプトのウインドウハンドルは_PromptSys_hWndに入ってます。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
自己レスです(連続投稿申しわけありません)
以下のコードにて解決しました。
スレ汚しになってしまい申し訳ありませんでした。
#N88BASIC
Dim CursorPos As POINTAPI
Dim MX%,MY%
*LOOP1
GetCursorPos(CursorPos)
ScreenToClient(_PromptSys_hWnd, CursorPos)
MX%=CursorPos.x
MY%=CursorPos.y
LOCATE 0,0:PRINT MX%;MY%
GOTO *LOOP1
スレ汚しになってしまい申し訳ありませんでした。
#N88BASIC
Dim CursorPos As POINTAPI
Dim MX%,MY%
*LOOP1
GetCursorPos(CursorPos)
ScreenToClient(_PromptSys_hWnd, CursorPos)
MX%=CursorPos.x
MY%=CursorPos.y
LOCATE 0,0:PRINT MX%;MY%
GOTO *LOOP1