Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


一時的にマウスポインタを非表示にする : Access裏技Tips



じっくりとフォームに記載した文章を読んでもらいたい時などは、邪魔なマウスポインタがない方がいいです。 ここでは、タイマ時イベントを利用して一時的にマウスポインタを非表示にする技を紹介します。

マウスポインタの非表示

  1. 利用方法としては、Read Meのフォーム表示に際して、一時的なマウスポインタ非表示を行っています。
  2. 標準モジュールに、WindowsAPIを用いたFunctionプロシージャShowCursorを作成します。
  3. Read Me フォーム(frm_sample)を作成し、ラベルに注意事項を書き込みます。
  4. フォームのタイマ時イベントを利用して、10秒間マウスをポインタを非表示にし、その後元に戻します。
  5. なお、これら効果はプロシージャを実行したAccessのみに限定されますので、再度Accessを開くと標準設定に戻ります。

標準モジュールの宣言セクションに宣言

Declareステートメントを宣言します。

Public Declare Function ShowCursor Lib "user32" _
					(ByVal bShow As Long) As Long ' --- A
解説
  1. C:\WINDOWS\system32のDLLを利用するために宣言します。Windowsの属性を取得します。

Functionプロシージャ Cursor非表示の作成

Functionプロシージャ Cursor非表示 を作成します。

Function Cursor非表示()
  
  Do Until ShowCursor(0) < 0 ' --- A
  Loop
      
End Function
解説
  1. マウスポインタを非表示にします。ShowCursor関数は引数の値を0にすると、実行するごとに-1を加算していきます。 0未満の数字になると、その時点でマウスポインタが非表示になります。
今回のおすすめポイント

Do Until [A] Loop

条件 A が真の間、繰り返し処理を実行します。フロー制御ステートメントと呼ばれています。

Functionプロシージャ Cursor表示の作成

Functionプロシージャ Cursor表示 を作成します。

Function Cursor表示()
  
  Do Until ShowCursor(1) >= 0 ' --- A
  Loop
      
End Function
解説
  1. マウスポインタを表示します。ShowCursor関数は引数の値を1にすると、実行するごとに1を加算していきます。 0以上の数字になると、その時点でマウスポインタが表示します。

Read Me フォームの作成

  1. 非連結のRead Me フォームを作成します。
  2. ラベルを配置し、操作手順、注意事項などを書き込みます。

フォームを開く時イベントプロシージャの作成

フォームを開く時イベントプロシージャを作成します。

Private Sub Form_Open(Cancel As Integer)

    Call Cursor非表示 ' --- A
    
End Sub
解説
  1. マウスを非表示にします。Call関数を利用して、FunctionプロシージャCursor非表示を呼び出します。

タイマ時イベントプロシージャの作成

タイマ時イベントプロシージャを作成します。

Private Sub Form_Timer()

    Call Cursor表示 ' --- A
    
End Sub
解説
  1. マウスを表示します。Call関数を利用して、FunctionプロシージャCursor表示を呼び出します。
  • フォームプロパティにあるタイマ間隔時イベントに、10000を書き込みます。これで10秒間で1回実行されるようになります。

動作確認

  1. デザインビューからフォームビューに切り替えます。
  2. マウスポインタが非表示になります。
  3. 10秒後、マウスポインタが表示されます。
今回のおすすめポイント

Alt + F +X のショートカット

マウスポイントが一時的にでも非表示になりますので、Accessを終了できる方法で明記しておく必要があります。 よって、Read Me フォームには、作業ウィンドウ固定に"いいえ"を設定し、 いつでもメニューバーが利用できる状況を作り出しています。 Alt + F +X のショートカットはキーボードからAccessを終了する一つの方法です。

関連ページ

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

 


一時的にマウスポインタを非表示にする : Access裏技Tips


 

-Microsoft Access Club-

cPanel あるいは PLESKコントロールパネルをインストールした専用レンタルサーバのディスカウントプランを期間限定で公開しています。
cPanel・PLESKコントロールパネルを備えた専用レンタルサーバ....。