Program-04 マウスカーソルの動ける範囲を設定する
Q 作っているゲームの中で、マウスカーソルの動ける範囲を制限したいのですが、どういう関数を使えばいいですか？
A ClipCursor関数を使います。
どう使う？
'範囲の制限
Dim udtRect As RECT
'下で設定する座標は例である。
With udtRect
.left=400
.top=400
.right=800
.bottom=800
End With
ClipCursor(udtRect)
'この段階で マウスカーソルの動ける範囲が制限される。
'範囲制限の解除
ClipCursor(ByVal NULL)
'この段階で マウスカーソルの動ける範囲の制限が解除される。
ディスプレイ全体から見た座標をRECT構造体に指定し、ClipCursor関数を呼び出すだけです。
解除するには引数をNULL(引数の宣言がByRefなので ByVal NULL を指定する)としてClipCursor関数を呼び出します。
注意すべき点ですが、解除を忘れると、プログラム終了後もマウスカーソルが自由に動けなくなります。
よって、解除は絶対に忘れないようにしてください。