Max、Min 和 MaxLength 属性示例

下例演示当与独立滚动条一起使用时的 Max 和 Min 属性。用户可以将 Max 和 Min 的值设置为从 -1000 到 1000 之间的任意整数。该示例还用 MaxLength 属性来限制所输入的 Max 和 Min 值的字符数。

窗体包含：

• 名为 Label1 的标签和名为 TextBox1 的文本框。
• 名为 Label2 的标签和名为 TextBox2 的文本框。
• 名为 ScrollBar1 的滚动条。
• 名为 Label3 的标签。

Dim TempNumx

Sub UserForm_Initialize()
    UserForm_Label1.Caption = "Min -1000 to 1000"
    UserForm_ScrollBar1.Min = -1000
    UserForm_TextBox1.Text = UserForm_ScrollBar1.Min
    UserForm_TextBox1.MaxLength = 5
    
    UserForm_Label2.Caption = "Max -1000 to 1000"
    UserForm_ScrollBar1.Max = 1000
    UserForm_TextBox2.Text = UserForm_ScrollBar1.Max
    UserForm_TextBox2.MaxLength = 5
    
    UserForm_ScrollBar1.SmallChange = 1
    UserForm_ScrollBar1.LargeChange = 100
    UserForm_ScrollBar1.Value = 0
    UserForm_Label3.Caption = UserForm_ScrollBar1.Value
End Sub

Sub UserForm_TextBox1_Change()
    If IsNumeric(UserForm_TextBox1.Text) Then
        TempNumx = CInt(UserForm_TextBox1.Text)
        If TempNumx >= -1000 And TempNumx <= 1000 Then
            UserForm_ScrollBar1.Min = TempNumx
        Else
            UserForm_TextBox1.Text = UserForm_ScrollBar1.Min
        End If
    Else
        UserForm_TextBox1.Text = UserForm_ScrollBar1.Min
    End If
End Sub

Sub UserForm_TextBox2_Change()
    If IsNumeric(UserForm_TextBox2.Text) Then
        TempNumx = CInt(UserForm_TextBox2.Text)
        If TempNumx >= -1000 And TempNumx <= 1000 Then
            UserForm_ScrollBar1.Max = TempNumx
        Else
            UserForm_TextBox2.Text = UserForm_ScrollBar1.Max
        End If
    Else
        UserForm_TextBox2.Text = UserForm_ScrollBar1.Max
    End If
End Sub

Sub UserForm_ScrollBar1_Change()
	UserForm_Label3.Caption = UserForm_ScrollBar1.Value
End Sub