ホーム > カテゴリ > Visual Basic >

マウスの移動範囲を限定する

マウスの移動範囲を限定するサンプルです。

サンプルの実行画面

ソースコード

[ClipCursor.frm]

'ClipCursor＝＞移動範囲を限定する

'＜引数＞
'lpRect: Rect構造体

'＠戻り値＠
' 正常終了0以外

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long


Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Private Sub Command1_Click()
Dim AIDA As Long  '横幅の内径と外形の差（フォームの）
Dim XYZ As RECT   'RECT構造体
Dim Ret As Long

'スクリーン全体の領域を確保するため
Ret = ClipCursor(ByVal 0&)

'間を求める
AIDA = (Width - ScaleWidth) / 2

'設定
XYZ.Left = (Left + AIDA) / Screen.TwipsPerPixelX
XYZ.Top = (Top + Height - ScaleHeight - AIDA) / Screen.TwipsPerPixelY
XYZ.Right = XYZ.Left + ScaleWidth / Screen.TwipsPerPixelX
XYZ.Bottom = XYZ.Top + ScaleHeight / Screen.TwipsPerPixelX

Ret = ClipCursor(XYZ)


End Sub

Private Sub Command2_Click()

'スクリーン全体の領域を確保する為
Ret = ClipCursor(ByVal 0&)

End Sub

ソースコード一式のダウンロード

vbapi_clipcursor.zip 975 バイト (975 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：システムメニューの項目を無効化、有効化、削除する
次の記事：マウス周辺をリアルタイムで拡大表示する

公開日：2015年03月04日
記事NO：00365


プチモンテ ※この記事を書いた人

💻 ITスキル・経験
サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。

画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ
🎵 音楽制作
BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は抒情詩、抒情的な楽曲が多い。楽曲制作は🔰2023年12月中旬 ～

オリジナル曲を始めました✨

YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte

花幻蝶 - KAGENCHO - feat. Yuma、オペラさん (2025/8/26 新曲)