2017年10月6日

【Access】マウスポインターの形状を変更する


通常、Accessでマウスカーソルを砂時計に変更するにはDoCmd.Hourglassを使いますが、ScreenオブジェクトのMousePointerプロパティを使っても変更することが出来ます。


MousePointer プロパティの設定値

設定値 内容
0既定値
1標準の選択 (矢印)
3テキスト選択 (I字型ポインター)
7上下に拡大/縮小
9左右に拡大/縮小
11待ち状態 (砂時計)

1 矢印

Application.Screen.MousePointer = 1




3 I字型ポインター

Application.Screen.MousePointer = 3




7 上下に拡大/縮小

Application.Screen.MousePointer = 7




9 左右に拡大/縮小

Application.Screen.MousePointer = 9




11 待ち状態 (砂時計)

Application.Screen.MousePointer = 11










スポンサーリンク