ページとタブの順序を変更する
次の例では、 Index プロパティを使用して 、MultiPage と TabStrip のページとタブの順序を変更します。 コマンド ボタン (CommandButton1) をクリックすると、3 番目のページとタブがマルチ ページ (MultiPage) コントロールとタブ ストリップ (TabStrip) コントロールの先頭に移動します。 コマンド ボタン (CommandButton2) をクリックすると、選択したページとタブがマルチ ページ (MultiPage) コントロールとタブ ストリップ (TabStrip) コントロールの最後に移動します。
この例を利用するには、次のコード例をフォームのスクリプト エディターにコピーします。 フォームには次のコントロールが含まれている必要があります。
2 つのコマンド ボタン ( CommandButton ) コントロール (CommandButton1 と CommandButton2)
マルチ ページ ( MultiPage ) コントロール (MultiPage1)
タブ ストリップ ( TabStrip ) コントロール (TabStrip1)
Dim MyPageOrTab
Dim MultiPage1
Dim TabStrip1
Sub CommandButton1_Click()
'Move third page and tab to front of control
MultiPage1.page3.Index = 0
TabStrip1.Tab3.Index = 0
End Sub
Sub CommandButton2_Click()
'Move selected page and tab to back of control
Set MyPageOrObject = MultiPage1.SelectedItem
MsgBox "MultiPage1.SelectedItem = " & MultiPage1.SelectedItem.Name
MyPageOrObject.Index = 4
Set MyPageOrObject = TabStrip1.SelectedItem
MsgBox "TabStrip1.SelectedItem = " & TabStrip1.SelectedItem.Caption
MyPageOrObject.Index = 4
End Sub
Sub Item_Open()
Set MultiPage1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("MultiPage1")
Set TabStrip1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TabStrip1")
Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1")
Set CommandButton2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton2")
MultiPage1.Width = 200
MultiPage1.Pages.Add
MultiPage1.Pages.Add
MultiPage1.Pages.Add
TabStrip1.Width = 200
TabStrip1.Tabs.Add
TabStrip1.Tabs.Add
TabStrip1.Tabs.Add
CommandButton1.Caption = "Move third page/tab to front"
CommandButton1.Width = 120
CommandButton2.Caption = "Move selected item to back"
CommandButton2.Width = 120
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示