即効テクニック |
スピンボタンには、Max、Minプロパティという、スピンボタンの「▲」「▼」のクリックによって変化する値(Valueプロパティ)の最大値と最小値を設定できるプロパティがあります。 その値をラベルに反映させると、例えば、最小値を1、最大値を50とすると、ボタンがクリックされるたびにラベルには「1、2、3、4・・・」もしくは「・・・4、3、2、1」もしくは「・・・4、3、4、5、6・・・」と変化させることができます。 まず、フォームにラベル「 Label1」とスピンボタン「 SpinButton1」を配置します。 フォームが開かれる時に発生するイベント「Initiakize」で、スピンボタンの最大値と最小値を設定して、ラベルにはスピンボタンの最小値を表示する処理を記述します。
Private Sub UserForm_Initialize() SpinButton1.Max = 50 SpinButton1.Min = 1 Label1.Caption = SpinButton1.Min End Sub
スピンボタンの値が変化する(クリックされる)時に発生するイベント「Change」で、スピンボタンの値をラベルに表示する処理を記述します。
Private Sub SpinButton1_Change() Label1.Caption = SpinButton1.Value End Sub
フォームを表示すると、ラベルには「1」が表示され、スピンボタンをクリックするたびにラベルの内容は変化します。