スピンボタンには、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」が表示され、スピンボタンをクリック
するたびにラベルの内容は変化します。
|