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

マウスカーソルをワープさせる

マウスカーソルをワープさせるサンプルです。

サンプルの実行画面

ソースコード

[SetCursorPos.frm]


'SetCursorPos＝＞マウスカーソルの位置を設定

'＜引数＞
'X: 水平位置
'Y: 垂直位置

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

'＊スクリーン座標なので注意


Private Declare Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal Y As Long) As Long

Private Sub Command1_Click()
  Dim Ret As Long
      Ret = SetCursorPos(0, 0)
End Sub

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

vbapi_setcursorpos.zip 5.94 KB (6,086 バイト)

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

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





関連記事


前の記事：マウス操作でコントロールを移動する
次の記事：画面からマウスポインタを消去する

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