|
回答ありがとうございます。
問題なく追加する事ができました。
動的にタブストリップを追加する理由は、フォーム上にあらかじめ配置したコマンドボタンをクリックした際に、別フォームを呼ぶのではなく、フォームの横幅を広げて、そこにタブストリップを埋め込む仕様の為です。
また、追加で質問させて頂きたいのですが、動的に追加したタブストリップのタブ(ページ?)を移動した際にイベントを拾う事は可能でしょうか?
以下ではタブを移動してもイベントを拾いませんでした。
【ユーザーフォームに記述】
Dim ObjTab As msforms.TabStrip
Set ObjTab = UserForm2.Controls.Add("forms.tabstrip.1", "TabStrip1")
With ObjTab
.Left = 150 '表示位置(左基準)
.Top = 50 '表示位置(上基準)
.Height = 150 '表示位置(高さ)
.Width = 330 '表示位置(横幅)
End With
【クラスモジュールに記述】
Public WithEvents ObjTab As TabStrip
Private Sub ObjTab_Change()
MsgBox "sss"
End Sub
よろしくお願い致します。
|
|