[ACC2] タイマ間隔を65,535より大きい値に設定する方法

現象

フォームの [タイマ間隔] プロパティに 65,535 より大きい値を設定すると、"[タイマ間隔/TimerInterval] プロパティの値が不正です。0 ～ 65,535 ミリ秒の間で値を設定してください。"というエラー メッセージが表示されます。

[タイマ間隔] プロパティに 65,535 より大きい値を設定したい場合には、[タイマ時]プロパティのイベント プロシージャに経過時間の指定を次のように追加します。
まず、[タイマ間隔] プロパティに、設定値として有効な範囲 (0 ～ 65,535) の値を設定します。サンプルでは、60,000 (1 分間隔) を設定します。[タイマ時] プロパティに割り当てたイベントプロシージャは、[タイマ間隔] プロパティの設定値 (1 分間隔) を基準にして実行します。サンプルでは、 Static ステートメントで変数を宣言し、イベントプロシージャが実行された回数を格納するカウンタとして利用します。次のイベントプロシージャを実行すると、2 分経過するたびに経過時間を知らせるメッセージ ボックスを表示します。

手順

1. データベース ウィンドウ上で、フォームオブジェクトボタンを選択し、続けて <新規作成> ボタンを押します。ここでは、[新規作成] ダイアログ ボックスの <無地フォーム> ボタンを選択します。
2. フォームのプロパティ シートを表示させ、[タイマ間隔] プロパティに 60000 を入力します。
3. [タイマ時] プロパティの <作成ボタン> をクリックすると、次の画面が表示されます。 リストから [コード ビルダ] を選び、<OK> ボタンを押します。
   
   
4. モジュール ウィンドウが表示されますので、後述の『サンプル プロシージャ』を参考にして設定してください。
   
   
5. フォームをフォームビューで開きます。すると、2 分ごとに "2 分経過"というメッセージボックス が表示されます。
   
   

サンプル プロシージャ

  Sub Form_Timer ()
  'MaxMinutes を 2 として定数を宣言します。
  Const MaxMinutes = 2
  'Static ステートメントを使用して、変数 iCount を整数型で宣言します。
  Static  iCount As Integer
  '変数 iCount をカウントします。
  iCount = iCount + 1
  '変数 iCount が 2 以上なった時、変数 iCount を 0 に初期化し、同時に [2 分経過]
         'のメッセージボックスが表示されます。
   If iCount >= MaxMinutes Then
       Icount = 0
       MsgBox "2 分経過"
    End If
  End Sub