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

Настройка стиля вкладок для элемента управления MultiPage и TabStrip

  • Статья

В следующем примере свойство Style используется для указания внешнего вида вкладок в MultiPage и TabStrip. В этом примере также показано использование метки. Пользователь выбирает стиль, выбрав OptionButton.

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:

  • Элемент Label с именем Label1.

  • Три элемента управления OptionButton с именами от OptionButton1 до OptionButton3.

  • Элемент MultiPage с именем MultiPage1.

  • Элемент TabStrip с именем TabStrip1.

  • Любой элемент управления внутри элемента управления TabStrip.

  • Любой элемент управления на каждой странице элемента управления MultiPage.

Sub OptionButton1_Click() 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 MultiPage1.Style = 0 '0=fmTabStyleTabs 
 TabStrip1.Style = 0 '0=fmTabStyleTabs 
End Sub 
 
Sub OptionButton2_Click() 
 'Note that the page borders are invisible 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 MultiPage1.Style = 1 '1=fmTabStyleButtons 
 TabStrip1.Style = 1 '1=fmTabStyleButtons 
End Sub 
 
Sub OptionButton3_Click() 
 'Note that the page borders are invisible and 
 'the page body begins where the tabs normally appear. 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 MultiPage1.Style = 2 '2=fmTabStyleNone 
 TabStrip1.Style = 2 '2=fmTabStyleNone 
End Sub 
 
Sub Item_Open() 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1") 
 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 MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 
 Label1.Caption = "Page/Tab Style" 
 OptionButton1.Caption = "Tabs" 
 OptionButton1.Value = True 
 MultiPage1.Style = 0 '0=fmTabStyleTabs 
 TabStrip1.Style = 0 '0=fmTabStyleTabs 
 
 OptionButton2.Caption = "Buttons" 
 OptionButton3.Caption = "No Tabs or Buttons" 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.