投稿者 N88-BASIC  (社会人) 投稿日時 2017/10/17 17:11:22
Windows 10 (Ver 1703) + Visual Basic 2017 にてマウスカーソルを独自に作成したアイコンファイルを設定して、マウスポインタを位置を取得する処理を行っております。

この時に取得されるマウスポインタの位置がマウスポインタの左上の位置ではなくマウスポインタ(サイズ)の中央となっているようです。当然、マウスの挙動もマウスポインタの中央を基準にされているようです。

マウスポインタの挙動が左上(位置情報も含めて)となるようにする方法をご教授いただければ幸いです。

・アイコンの作成は Dobon ネットさんを参照させていただきました。
・実際のアイコンの設定はプロジェクトのリーソスに登録したものを参照しています。

以上 よろしくお願いします。

 ------------------------- 以下がコードの概要です ----------------------------
        Dim MyCus As Cursor = New Cursor("MyIcon.ico")
        Cursor = MyCus
~~~
   Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick

   TextBox1.text=e.Location.X.ToString("X=#0") + e.Location.Y.ToString("  Y=#0")

    End Sub