Contents
- 構文
- Integer = MUSCUR( )
- 引数
- 戻値
- CUR_APPSTARTING （1）
- 砂時計付き矢印カーソル
- CUR_ARROW （2）
- 標準矢印カーソル
- CUR_CROSS （3）
- 十字カーソル
- CUR_HAND （4）
- ハンドカーソル（Windows2000以降）
- CUR_HELP （5）
- クエスチョンマーク付き矢印カーソル
- CUR_IBEAM （6）
- アイビーム（縦線）カーソル
- CUR_NO （8）
- 禁止カーソル
- CUR_SIZEALL （10）
- ４方向矢印カーソル
- CUR_SIZENESW （11）
- 斜め左下がりの両方向矢印カーソル
- CUR_SIZENS （12）
- 上下両方向矢印カーソル
- CUR_SIZENWSE （13）
- 斜め右下がりの両方向矢印カーソル
- CUR_SIZEWE （14）
- 左右両方向矢印カーソル
- CUR_UPARROW （15）
- 垂直の矢印カーソル
- CUR_WAIT （16）
- 砂時計カーソル
ユーザー定義カーソルはハンドル値をマイナスにして返す（起動毎に変化）
プログラム実行例
マウスカーソルの種類を表示
HASHTBL cursor
cursor[CUR_APPSTARTING] = "砂時計付き矢印カーソル"
cursor[CUR_ARROW] = "標準矢印カーソル"
cursor[CUR_CROSS] = "十字カーソル"
cursor[CUR_HAND] = "ハンドカーソル（Windows2000以降）"
cursor[CUR_HELP] = "クエスチョンマーク付き矢印カーソル"
cursor[CUR_IBEAM] = "アイビーム（縦線）カーソル"
cursor[CUR_NO] = "禁止カーソル"
cursor[CUR_SIZEALL] = "４方向矢印カーソル"
cursor[CUR_SIZENESW] = "斜め左下がりの両方向矢印カーソル"
cursor[CUR_SIZENS] = "上下両方向矢印カーソル"
cursor[CUR_SIZENWSE] = "斜め右下がりの両方向矢印カーソル"
cursor[CUR_SIZEWE] = "左右両方向矢印カーソル"
cursor[CUR_UPARROW] = "垂直の矢印カーソル"
cursor[CUR_WAIT] = "砂時計カーソル"
SETHOTKEY(VK_ESC, EMPTYPARAM, "forceQuit")
WHILE TRUE
FUKIDASI(cursor[MUSCUR()])
SLEEP(0.001)
WEND
//////////////////////////////////////////////////
// 【引数】
//
// 【戻値】
//
//////////////////////////////////////////////////
PROCEDURE forceQuit()
EXITEXIT
FEND
この記事は役に立ちましたか？
