Добавление полос прокрутки на страницу и рамку
В следующем примере свойства ScrollBars и KeepScrollBarsVisible используются для добавления полос прокрутки на страницу MultiPage и в Frame. Пользователь выбирает кнопку параметра, который, в свою очередь, определяет значение для свойства KeepScrollBarsVisible.
Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:
элемент MultiPage с именем MultiPage1;
Frame с именем Frame1;
Четыре элемента управления OptionButton с именами OptionButton1–OptionButton4.
Sub Item_Open()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1")
Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2")
Set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton3")
Set OptionButton4 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton4")
MultiPage1.Pages(0).ScrollBars = 3 '3=fmScrollBarsBoth
MultiPage1.Pages(0).KeepScrollBarsVisible = 0 '0=fmScrollBarsNone
Frame1.ScrollBars = 3 '3=fmScrollBarsBoth
Frame1.KeepScrollBarsVisible = 0 '0=fmScrollBarsNone
OptionButton1.Caption = "No scroll bars"
OptionButton1.Value = True
OptionButton2.Caption = "Horizontal scroll bars"
OptionButton3.Caption = "Vertical scroll bars"
OptionButton4.Caption = "Both scroll bars"
End Sub
Sub OptionButton1_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 0 '0=fmScrollBarsNone
Frame1.KeepScrollBarsVisible = 0 '0=fmScrollBarsNonefmScrollBarsNone
End Sub
Sub OptionButton2_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 1 '1=fmScrollBarsHorizontal
Frame1.KeepScrollBarsVisible = 1 '1=fmScrollBarsHorizontal
End Sub
Sub OptionButton3_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 2 '2=fmScrollBarsVertical
Frame1.KeepScrollBarsVisible = 2 '2=fmScrollBarsVertical
End Sub
Sub OptionButton4_Click()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1")
Set Frame1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Frame1")
MultiPage1.Pages(0).KeepScrollBarsVisible = 3 '3=fmScrollBarsBoth
Frame1.KeepScrollBarsVisible = 3 '3=fmScrollBarsBoth
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.