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 | 待ち状態 (砂時計) |
以上、ほんとによく忘れるので覚書。
コメント