Установка максимального и минимального значений для полосы прокрутки
В следующем примере показаны свойства Max и Min при использовании с автономной полосой прокрутки. Пользователь может задать значения Max и Min для любого целого числа в диапазоне от -1000 до 1000. В этом примере также используется свойство TextBox.MaxLength для ограничения количества символов, введенных для значений Max и Min .
Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:
Метка с именем Label1
Объект TextBox с именем TextBox1, привязанный к настраиваемой числовой области ScrollBarMin.
Метка с именем Label2
Объект TextBox с именем TextBox2, привязанный к настраиваемой строке с именем ScrollBarMax.
ScrollBar с именем ScrollBar1, привязанный к настраиваемой строке с именем ScrollBarValue.
Элемент Label с именем Label3.
Sub Item_Open()
Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1")
Set ScrollBar1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ScrollBar1")
Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1")
Set Label2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label2")
Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2")
Set Label3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label3")
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
Sub Item_CustomPropertyChange(byval pname)
Set ScrollBar1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ScrollBar1")
Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1")
Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2")
Set Label3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label3")
If pname = "ScrollBarMin" Then
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
ElseIf pname = "ScrollBarMax" Then
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
ElseIf pname = "ScrollBarValue" Then
Label3.Caption = ScrollBar1.Value
End If
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.