VB.NET マウスカーソル

マウスカーソルの位置および、形状の取得・変更の方法を記載します。

画面座標のマウスポインタの位置を取得する

Dim spos As System.Drawing.Point = System.Windows.Forms.Cursor.Position

 

フォーム上のマウスポインタの位置を取得する

Dim spos As System.Drawing.Point = System.Windows.Forms.Cursor.Position

'画面座標をクライアント座標に変換する
Dim cpos As System.Drawing.Point = Me.PointToClient(spos)

・画面座標をクライアント座標に変換することで取得します。

 

フォーム上のマウスポインタを移動する

'クライアント座標を画面座標に変換する
Dim pos As System.Drawing.Point = Me.PointToScreen(New System.Drawing.Point(10, 10))

'マウスポインタの位置を設定
System.Windows.Forms.Cursor.Position = pos

 

全てのフォーム及びコントロール上のカーソルを変更

Cursor.Current = Cursors.WaitCursor       '形状変更

System.Threading.Thread.Sleep(10000)      '停止する

Cursor.Current = Cursors.Default          '元に戻す

・Cursorsクラス

 

特定のフォーム及びコントロール上のカーソルを変更

Me.Cursor = Cursors.WaitCursor

System.Threading.Thread.Sleep(10000)

Me.Cursor = Cursors.Default