ウインドウ上のカーソル座標

[よしき]

GetCursorPosでスクリーン座標は手に入るのですが、hMainWnd上での座標を手に入れることはできないのでしょうか？

もしやウインドウの座標を求めてそこから計算とかになるんですか…？

[OverTaker]

マウスが動いた時のイベントで取得される座標を、変数に保存しておく、というのでは駄目でしょうか？
http://www.activebasic.com/help_center/ ... seMove.htm

[よしき]

思いつきもしませんでした。
すばらしいアイディアありがとうございます。

[高信期]

ScreenToClient関数を使う手もあります。

コード: 全て選択

Dim CursorPos As POINTAPI
GetCursorPos(CursorPos)
ScreenToClient(hMainWnd, CursorPos)

[よしき]

こんな便利なものがあったとは・・・。
OverTakerさんのアイデアより多少処理がかるくなりそうですね。
ありがとうございます。

[トモカズ]

便乗質問になってしまいます。申しわけありません。
高信期さんの手法はN88BASICモードで使用することは可能なのでしょうか？
もし可能であればやり方をご教授いただけないでしょうか？
コンパイル時に「MOUSE.abp(4) - "hMainWnd" 無効な識別子です」のエラーとなってしまいます。

よろしくお願いいたします。

[konisi]

一応可能です。
AB4系だと、プロンプトのウインドウハンドルは_PromptSys_hWndに入ってます。

[トモカズ]

以下のコードにて解決しました。
スレ汚しになってしまい申し訳ありませんでした。

#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

[トモカズ]

konisiさん、上の返信に気がつきかず自己レスと書いてしまいました。お礼が書けず失礼いたしました。
何度もご丁寧にありがとうございます。