Access Tips ［その他］

Accessでマウスポインタの形状を変える方法

書式

(1)マウスポインタの形状を砂時計にする
　DoCmd.Hourglass True/False
　
(2)いろいろな形状
　Screen.MousePointer = 値

解説

【 値 】
0:規定値
1:矢印
3:I字型
7:上下の矢印
9:左右の矢印
11:砂時計
※これ以外の値を指定した場合は、規定値と同じ。

マウスポインタの形状を砂時計にする

DoCmd.Hourglass True

マウスポインタの形状を標準に戻す

DoCmd.Hourglass False

マウスポインタの形状を「I字型」に変える

Screen.MousePointer = 3

マウスポインタの形状を標準に戻す

Screen.MousePointer = 0