#17
ProgressBarコントロールは、長い処理の進捗状況などをインジケータとして表示するコントロールです。コントロールをフォームに配置し、進み具合に関する値を設定するだけで、インジケータを表示させることができます。インジケータ自体に関するデザインや細かな操作はまったく必要ありません。
本項では、ProgressBarコントロールの使用例として、２つのサンプルを掲載します。
１つは、コマンドボタンのクリックによってマニュアルでインジケータを増減させる例、もう１つはフォームのタイマ時イベントを使って一定時間ごとに自動でインジケータを変化させる例です。２つ目の例では、ProgressBarコントロールのプロパティを設定することによって、縦にインジケータを表示させたり、マス目ではなく連続した形状のインジケータを表示させたりする方法も示しています。
- Minプロパティ、Maxプロパティ
- インジケータの最小値と最大値を設定します。
たとえば、０〜５０に設定した場合、次に説明するValueプロパティに２５をセットすると、ちょうどインジケータの幅がコントロール全幅の半分の状態になります。５０をセットするとインジケータが振り切った状態になります。
これらのプロパティはVBAでその都度設定することもできますが、サンプルフォーム１ではあらかじめプロパティシート上で０〜１００の範囲を設定しています。もしテーブルを１件ずつ処理する状況を表示させたいような場合には、Maxプロパティにはその対象レコード数をセットすることになります。
またサンプルフォーム２では、コントロールごとにバーの長さが変化するスピードも変えています。これはそのようなプロパティがあるわけではありません。Valueプロパティの増加値が同じでも、Maxプロパティが異なることによってその比率が変わり、結果としてそのような違いとなることを示しているものです。
- Valueプロパティ
- MinプロパティとMaxプロパティに対するインジケータの幅を設定します。
通常のコントロールのValueプロパティは、そこでユーザが入力あるいは選択した値を取り出すために使うことが多いですが、ProgressBarの場合はこの値を設定することによってはじめて動作します。逆にMinプロパティとMaxプロパティがプロパティシートで設定してあれば、プログラムで処理するのは、処理の進捗に合わせてValueプロパティ値を変化させるだけです。ただ、MinプロパティとMaxプロパティの値の範囲内で設定するよう注意が必要です。
サンプルフォーム１（frmSample_17_1）
[増やす]・[減らす]ボタンをクリックすることによってインジケータが変化します。
サンプルフォーム２（frmSample_17_2）
フォームを開くと各インジケータが自動的に変化します。
comctl_17.lzh(comctl_17.mdb)
