ScrollBar コントロール、Scroll イベントの例

  • [アーティクル]

次の例では、スタンドアロン の ScrollBar を示し、ユーザーがスクロール ボックスを移動すると、その値の変更を報告します。 ユーザーは、コントロールの末尾にあるいずれかの矢印をクリックするか、スクロール ボックスと矢印の間の領域をクリックするか、スクロール ボックスをドラッグすることで、スクロール ボックスを移動できます。 ユーザーがスクロール ボックスをドラッグすると、 Scroll イベントに、ユーザーがスクロールして新しい値を取得したことを示すメッセージが表示されます。

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

  • ScrollBar1 という名前の ScrollBar。
  • 2 つのラベル ( Label ) コントロール (Label1 と Label2) Label1 にはサイズ調整に関するユーザー向けの情報が格納されます。 Label2 で差分の値が報告されます。
Dim ScrollSaved As Integer 
'Previous ScrollBar setting 
 
Private Sub UserForm_Initialize() 
 ScrollBar1.Min = -225 
 ScrollBar1.Max = 289 
 ScrollBar1.Value = 0 
 
 Label1.Caption = "-225 -----Widgets----- 289" 
 Label1.AutoSize = True 
 
 Label2.Caption = "" 
End Sub 
 
Private Sub ScrollBar1_Change() 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
End Sub 
 
Private Sub ScrollBar1_Exit(ByVal Cancel as MSForms.ReturnBoolean) 
 Label2.Caption = " Widget Changes " _ 
 & (ScrollSaved - ScrollBar1.Value) 
 ScrollSaved = ScrollBar1.Value 
End Sub 
 
Private Sub ScrollBar1_Scroll() 
 Label2.Caption = (ScrollSaved - ScrollBar1 _ 
 .Value) & " Widget Changes by Scrolling" 
End Sub

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

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