#284
右図のようなフォームを用意し、コマンドボタンのクリック時イベントプロシージャに、テキストボックス"txtValue"の値を＋１するプログラムを割り当てます。Private Sub cmdUp_Click()
Me!txtValue = Nz(Me!txtValue) + 1
Me.Repaint
End Sub
Me!txtValue = Nz(Me!txtValue) + 1
Me.Repaint
End Sub
これによって、コマンドボタンをクリックするたびに確かに値が＋１されますが、一気に＋１０したい場合も１０回クリックを繰り返さなければなりません。
このようなときに使うのが、コマンドボタンの「自動繰り返し」プロパティです。
このプロパティを"はい"に設定変更してみましょう。そうすると、コマンドボタンをマウスで押し下げしている間、どんどん数字がカウントアップしていきます。そして、マウスを離すとカウントアップが止まります。つまり、このプロパティ設定によって、ボタンを押している間、繰り返し繰り返しそのイベントプロシージャが実行されるようになります。
なお、上記のRepaintメソッドは、フォームを再描画してカウントアップしていく様子を目で見えるようにするためです。処理内容によっては必要ありません。
