TabFixedHeight、TabFixedWidth プロパティの例

次の例では、 TabFixedHeight プロパティと TabFixedWidth プロパティを使用して、 MultiPage および TabStrip で使用されるタブのサイズを設定します。

ユーザーは SpinButton コントロールをクリックして、 MultiPage および TabStrip 内のタブの高さと幅を調整します。

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

• マルチ ページ ( MultiPage ) コントロール (MultiPage1)

• タブ ストリップ ( TabStrip ) コントロール (TabStrip1)

• 幅コントロール用のラベル ( Label ) コントロール (Label1)

• 幅コントロール用の SpinButton1 という名前の SpinButton。

• 幅コントロール用のテキスト ボックス ( TextBox ) コントロール (TextBox1)

• 高さコントロール用のラベル ( Label ) コントロール (Label2)

• 高さコントロール用の SpinButton2 という名前の SpinButton。

• 高さコントロール用の TextBox2 という名前の TextBox。

Private Sub UpdateTabWidth() 
 TextBox1.Text = SpinButton1.Value 
 TabStrip1.TabFixedWidth = SpinButton1.Value 
 MultiPage1.TabFixedWidth = SpinButton1.Value 
End Sub 
 
Private Sub UpdateTabHeight() 
 TextBox2.Text = SpinButton2.Value 
 TabStrip1.TabFixedHeight = SpinButton2.Value 
 MultiPage1.TabFixedHeight = SpinButton2.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 MultiPage1.Style = fmTabStyleButtons 
 
 Label1.Caption = "Tab Width" 
 SpinButton1.Min = 0 
 SpinButton1.Max = _ 
 TabStrip1.Width / TabStrip1.Tabs.Count 
 SpinButton1.Value = 0 
 TextBox1.Locked = True 
 
 UpdateTabWidth 
 
 Label2.Caption = "Tab Height" 
 SpinButton2.Min = 0 
 SpinButton2.Max = TabStrip1.Height 
 SpinButton2.Value = 0 
 TextBox2.Locked = True 
 
 UpdateTabHeight 
End Sub 
 
Private Sub SpinButton1_SpinDown() 
 UpdateTabWidth 
End Sub 
 
Private Sub SpinButton1_SpinUp() 
 UpdateTabWidth 
End Sub 
 
Private Sub SpinButton2_SpinDown() 
 UpdateTabHeight 
End Sub 
 
Private Sub SpinButton2_SpinUp() 
 UpdateTabHeight 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。