Microsoft Access Club >Access一日一見 >このページ >次頁 <前項  サイト内検索


カーソルを砂時計に切り替える方法 - Hourglass メソッド



Access作業中、カーソルを砂時計(一般的にはビジーの状態を表す)に切り替えてユーザーに何らかの意思表示を示したい場面が多々あります。 このような時のために、VBAで便利なものを用意してくれています。

Docmdオブジェクト と Hourglass メソッド

Hourglass メソッドは、Visual Basic で Hourglass/砂時計ポインタ アクションを実行します。

砂時計に切り替えるには、引数に True を設定
Function SamplePro()

    'マウスを砂時計に切り替えます。
    DoCmd.Hourglass True

End Function
元に戻すのは、下記のように引数に False を設定
Function SamplePro()

    'マウスを元に戻します。
    DoCmd.Hourglass False

End Function
応用例

下記のようなVBAの処理を記述します。

Function SamplePro()

    'マウスを砂時計に切り替えます。
    DoCmd.Hourglass True
    -- 処理を記述します --
    'マウスを元に戻します。
    DoCmd.Hourglass False
End Function

関連ページ

2003/12/10

ページの先頭へ 前ページへ戻る

 


カーソルを砂時計に切り替える方法 - Hourglass メソッド


-Microsoft Access Club-

アメリカ合衆国の大手データセンターのアダルト対応可能なリーズナブル価格設定の専用・共有レンタルサーバーをご提供しています。
アメリカ合衆国の大手データセンターにサーバー機器を設置。
アダルト対応可能な専用・共有レンタルサーバーを提供。