Прочитать на английском

Поделиться через


Добавление полос прокрутки на страницу и рамку

В следующем примере свойства 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 и обратная связь.