次の方法で共有


Style プロパティ、ラベル コントロールの例

次の例では、 Style プロパティを使用して 、MultiPageTabStrip のタブの外観を指定します。 この例では、 Label の使用も示します。 ユーザーは OptionButton を選択してスタイルを選択します。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 フォームに次が含まれていることを確認してください。

  • ラベル ( Label ) コントロール (Label1)
  • 3 つのオプション ボタン ( OptionButton ) コントロール (OptionButton1、OptionButton2、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 のサポートおよびフィードバックを参照してください。