MUSCUR

構文
  1. 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)
4方向矢印カーソル
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] = "4方向矢印カーソル" 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