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

Пример использования свойства Style и элемента управления Label

  • Статья

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

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

  • Элемент Label с именем Label1.
  • Три элемента управления OptionButton с именами от OptionButton1 до OptionButton3.
  • Элемент MultiPage с именем MultiPage1.
  • Элемент TabStrip с именем TabStrip1.
  • Любой элемент управления внутри элемента управления TabStrip.
  • Любой элемент управления на каждой странице элемента управления MultiPage.
Private Sub OptionButton1_Click() 
 MultiPage1.Style = fmTabStyleTabs 
 TabStrip1.Style = fmTabStyleTabs 
End Sub 
 
Private Sub OptionButton2_Click() 
 'Note that the page borders are invisible 
 MultiPage1.Style = fmTabStyleButtons 
 TabStrip1.Style = fmTabStyleButtons 
End Sub 
 
Private Sub OptionButton3_Click() 
 'Note that the page borders are invisible and 
 'the page body begins where the tabs normally 
 'appear. 
 MultiPage1.Style = fmTabStyleNone 
 TabStrip1.Style = fmTabStyleNone 
End Sub 
 
Private Sub UserForm_Initialize() 
 Label1.Caption = "Page/Tab Style" 
 OptionButton1.Caption = "Tabs" 
 OptionButton1.Value = True 
 MultiPage1.Style = fmTabStyleTabs 
 TabStrip1.Style = fmTabStyleTabs 
 
 OptionButton2.Caption = "Buttons" 
 OptionButton3.Caption = "No Tabs or Buttons" 
End Sub

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

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