LargeChange、SmallChange 屬性範例

下列範例示範搭配獨立ScrollBar使用LargeChange和SmallChange屬性。 使用者可以將 LargeChange 和 SmallChange 設定為 0 到 100 之間的任意整數。

此範例也會使用 MaxLength 屬性來限制針對 LargeChange 和 SmallChange 值輸入的字元數。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定該表單包含：

• 名為 Label1 的標籤 和名為 TextBox1 的 TextBox 。
• 名為 Label2 的標籤 和名為 TextBox2 的 TextBox 。
• 一個名為 ScrollBar1 的 ScrollBar 。
• 一個名為 Label3 的 Label 。

Dim TempNum As Integer 
 
Private Sub ScrollBar1_Change() 
 Label3.Caption = ScrollBar1.Value 
End Sub 
 
Private Sub TextBox1_Change() 
 If IsNumeric(TextBox1.Text) Then 
 TempNum = CInt(TextBox1.Text) 
 If TempNum >= 0 And TempNum <= 100 Then 
 ScrollBar1.SmallChange = TempNum 
 Else 
 TextBox1.Text = ScrollBar1.SmallChange 
 End If 
 Else 
 TextBox1.Text = ScrollBar1.SmallChange 
 End If 
End Sub 
 
Private Sub TextBox2_Change() 
 If IsNumeric(TextBox2.Text) Then 
 TempNum = CInt(TextBox2.Text) 
 If TempNum >= 0 And TempNum <= 100 Then 
 ScrollBar1.LargeChange = TempNum 
 Else 
 TextBox2.Text = ScrollBar1.LargeChange 
 End If 
 Else 
 TextBox2.Text = ScrollBar1.LargeChange 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 ScrollBar1.Min = -1000 
 ScrollBar1.Max = 1000 
 
 Label1.Caption = "SmallChange 0 to 100" 
 ScrollBar1.SmallChange = 1 
 TextBox1.Text = ScrollBar1.SmallChange 
 TextBox1.MaxLength = 3 
 
 Label2.Caption = "LargeChange 0 to 100" 
 ScrollBar1.LargeChange = 100 
 TextBox2.Text = ScrollBar1.LargeChange 
 TextBox2.MaxLength = 3 
 
 ScrollBar1.Value = 0 
 Label3.Caption = ScrollBar1.Value 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。