SpinDown イベント、SpinUp イベント、Delay プロパティの例

次の例では、ユーザーがマウス ボタンを押しながら SpinButton または ScrollBar の値を変更するときに発生する、連続する Change、SpinUp、SpinDown イベントの時間間隔を示します。

この例では、ユーザーが遅延設定を選択し、 SpinButton の両側をクリックして押したままにします。 SpinUp イベントと SpinDown イベントは、開始されると ListBox に記録されます。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次のものが含まれていることを確認してください。

• SpinButton1 という名前の SpinButton。
• 2 つのオプション ボタン ( OptionButton ) コントロール (OptionButton1 と OptionButton2)
• リスト ボックス ( ListBox ) コントロール (ListBox1)

Dim EventCount As Long 
 
Private Sub ResetControl() 
 ListBox1.Clear 
 EventCount = 0 
 SpinButton1.Value = 5000 
End Sub 
 
Private Sub UserForm_Initialize() 
 SpinButton1.Min = 0 
 SpinButton1.Max = 10000 
 ResetControl 
 
 SpinButton1.Delay = 50 
 OptionButton1.Caption = "50 millisecond delay" 
 OptionButton2.Caption = "250 millisecond delay" 
 
 OptionButton1.Value = True 
End Sub 
 
Private Sub OptionButton1_Click() 
 SpinButton1.Delay = 50 
 ResetControl 
End Sub 
 
Private Sub OptionButton2_Click() 
 SpinButton1.Delay = 250 
 ResetControl 
End Sub 
 
Private Sub SpinButton1_SpinDown() 
 EventCount = EventCount + 1 
 ListBox1.AddItem EventCount 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 EventCount = EventCount + 1 
 ListBox1.AddItem EventCount 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。