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

Excel97/2000



戻る


Excel Word Access VBA! モーグ