Access VBA:マウスポインターの形状を変更する方法

Access VBA:マウスポインターの形状を変更する方法

Access VBAでマウスポインターの形状を変更する方法について覚書。

スポンサーリンク

マウスポインターの形状を変更するサンプルプログラム

いつも忘れるので記録

コードの記述としては以下の用になる。

11を指定しているので、待ち状態(砂時計とかぐるぐる回る)ポインタとなる。

Screen.MousePointer = 11  

サンプルプログラム。

Sub Change_MousePointer()

Screen.MousePointer = 11
MsgBox "砂時計(実行中)"

Screen.MousePointer = 3
MsgBox "テキスト選択"

End Sub
  

マウスの形状と設定す値について

形状ごとの設定値は以下のとおり。

設定名 マウスポインターの形状
0 Access によって決められた形。(既定値)
1 標準の選択 (矢印)
3 テキスト選択 (I 字型ポインタ)
7 上下に拡大/縮小
9 左右に拡大/縮小
11 待ち状態 (砂時計)

以上、ほんとによく忘れるので覚書。

コメント

タイトルとURLをコピーしました