次の方法で共有

MultiPage コントロールと TabStrip コントロールのタブの高さと幅を設定する

The following example uses the TabFixedHeight and TabFixedWidth properties to set the size of the tabs used in MultiPage and TabStrip. ユーザーは SpinButton コントロールをクリックして、 MultiPage および TabStrip 内のタブの高さと幅を調整します。

この例を利用するには、次のコード例をフォームのスクリプト エディターにコピーします。 コードを実行するには、 Open イベントが生じるようにフォームを開く必要があります。 フォームには次のコントロールが含まれている必要があります。

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

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

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

  • カスタム ナンバ フィールド (SpinButtonWidth) にバインドした幅コントロール用のスピン ボタン ( SpinButton ) コントロール (SpinButton1)

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

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

  • カスタム ナンバ フィールド (SpinButtonWidth) にバインドした高さコントロール用のスピン ボタン ( SpinButton ) コントロール (SpinButton2)

  • 高さコントロール用のテキスト ボックス ( TextBox ) コントロール (TextBox2)

Sub UpdateTabWidth() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 
 TextBox1.Text = SpinButton1.Value 
 TabStrip1.TabFixedWidth = SpinButton1.Value 
 MultiPage1.TabFixedWidth = SpinButton1.Value 
End Sub 
 
Sub UpdateTabHeight() 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") 
 Set SpinButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton2") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 
 TextBox2.Text = SpinButton2.Value 
 TabStrip1.TabFixedHeight = SpinButton2.Value 
 MultiPage1.TabFixedHeight = SpinButton2.Value 
End Sub 
 
Sub Item_Open() 
 Set TextBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox1") 
 Set TextBox2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TextBox2") 
 Set SpinButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton1") 
 Set SpinButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("SpinButton2") 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("TabStrip1") 
 Set MultiPage1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("MultiPage1") 
 Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label1") 
 Set Label2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("Label2") 
 
 MultiPage1.Style = 1 '1=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 
 
Sub Item_CustomPropertyChange(byval pname) 
'msgbox pname 
 If pname = "SpinButtonWidth" Then 
 UpdateTabWidth 
 ElseIf pname = "SpinButtonHeight" Then 
 UpdateTabHeight 
 End If 
End Sub

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

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