| Microsoft Access Club >Access一日一見 >このページ >次頁 <前項 |  |
| Microsoft Access Club >Access一日一見 >このページ >次頁 <前項 | |
|
Access作業中、カーソルを砂時計（一般的にはビジーの状態を表す）に切り替えてユーザーに何らかの意思表示を示したい場面が多々あります。Hourglassメソッドを用いるのが一般的ですが、MousePointerプロパティでも実現できます。 Applicationプロパティ と MousePointer プロパティMousePointer プロパティは下記のように利用します。 砂時計に切り替えるには、設定値に 11 を記述Function SamplePro()
'マウスを砂時計に切り替えます。
Application.Screen.MousePointer = 11
End Function
元に戻すのは、設定値に 0 を記述Function SamplePro()
'マウスを元に戻します。
Application.Screen.MousePointer = 0
End Function
応用例下記のようなVBAの処理を記述します。 Function SamplePro()
'マウスを砂時計に切り替えます。
DoCmd.Hourglass True
-- 処理を記述します -- 'マウスを元に戻します。
DoCmd.Hourglass False
End Function MousePointer プロパティの設定値下記の種類があります。
関連ページ
2003/12/10
|
