Max, Min, MaxLength Properties Example

The following example demonstrates the Max and Min properties when used with a stand-alone ScrollBar. The user can set the Max and Min values to any integer in the range of –1000 to 1000. This example also uses the MaxLength property to restrict the number of characters entered for the Max and Min values.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

• A Label named Label1 and a TextBox named TextBox1.
  
  
• A Label named Label2 and a TextBox named TextBox2.
  
  
• A ScrollBar named ScrollBar1.
  
  
• A Label named Label3.

Dim TempNum As Integer

Private Sub UserForm_Initialize()
    Label1.Caption = "Min -1000 to 1000"
    ScrollBar1.Min = -1000
    TextBox1.Text = ScrollBar1.Min
    TextBox1.MaxLength = 5
    
    Label2.Caption = "Max -1000 to 1000"
    ScrollBar1.Max = 1000
    TextBox2.Text = ScrollBar1.Max
    TextBox2.MaxLength = 5
    
    ScrollBar1.SmallChange = 1
    ScrollBar1.LargeChange = 100
    ScrollBar1.Value = 0
    Label3.Caption = ScrollBar1.Value
End Sub

Private Sub TextBox1_Change()
    If IsNumeric(TextBox1.Text) Then
        TempNum = CInt(TextBox1.Text)
        If TempNum >= -1000 And TempNum <= 1000 Then
            ScrollBar1.Min = TempNum
        Else
            TextBox1.Text = ScrollBar1.Min
        End If
    Else
        TextBox1.Text = ScrollBar1.Min
    End If
End Sub

Private Sub TextBox2_Change()
    If IsNumeric(TextBox2.Text) Then
        TempNum = CInt(TextBox2.Text)
        If TempNum >= -1000 And TempNum <= 1000 Then
            ScrollBar1.Max = TempNum
        Else
            TextBox2.Text = ScrollBar1.Max
        End If
    Else
        TextBox2.Text = ScrollBar1.Max
    End If
End Sub

Private Sub ScrollBar1_Change()
Label3.Caption = ScrollBar1.Value
End Sub