| |
回答ありがとうございます。
問題なく追加する事ができました。
動的にタブストリップを追加する理由は、フォーム上にあらかじめ配置したコマンドボタンをクリックした際に、別フォームを呼ぶのではなく、フォームの横幅を広げて、そこにタブストリップを埋め込む仕様の為です。
また、追加で質問させて頂きたいのですが、動的に追加したタブストリップのタブ（ページ？）を移動した際にイベントを拾う事は可能でしょうか？
以下ではタブを移動してもイベントを拾いませんでした。
【ユーザーフォームに記述】
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
よろしくお願い致します。
|
|
初心者
- 14/4/27(日) 8:31 -
