構文
構文は以下の通りです。
マルチページ名.Pages.Add "新しいタブの名前"
解説
マルチページにタブを追加するには、Pages.Addメソッドを使用します。"新しいタブの名前"には、追加したタブに付ける名前を指定します。
使い方
具体的な使い方を紹介します。
Private Sub AddTabToMultiPage()
' マルチページに新しいタブを追加
myMultiPage.Pages.Add "新しいタブ"
End Sub
' マルチページに新しいタブを追加
myMultiPage.Pages.Add "新しいタブ"
End Sub
このコードは、myMultiPage.Pages.Add "新しいタブ"の部分で、マルチページにタブを追加しています。上記の例では「新しいタブ」という名前がタブに設定されます。
プログラミング例
以下に、プログラミング例を紹介します。
Private Sub AddControlsToTab()
' 新しいタブを追加
myMultiPage.Pages.Add "新しいタブ"
' 追加したタブにラベルとテキストボックスを配置
With myMultiPage.Pages("新しいタブ").Controls
.Add "Forms.Label.1", "NewLabel", True
.Item("NewLabel").Caption = "新しいラベル"
.Add "Forms.TextBox.1", "NewTextBox", True
.Item("NewTextBox").Left = 100
.Item("NewTextBox").Top = 50
End With
End Sub
' 新しいタブを追加
myMultiPage.Pages.Add "新しいタブ"
' 追加したタブにラベルとテキストボックスを配置
With myMultiPage.Pages("新しいタブ").Controls
.Add "Forms.Label.1", "NewLabel", True
.Item("NewLabel").Caption = "新しいラベル"
.Add "Forms.TextBox.1", "NewTextBox", True
.Item("NewTextBox").Left = 100
.Item("NewTextBox").Top = 50
End With
End Sub
この例では、新しいタブを追加し、そのタブにラベルとテキストボックスを配置しています。
まとめ
マルチページにタブを追加する方法について、基本的な構文や使い方、具体的なプログラミング例を紹介しました。是非活用してください。