SSTabにSSTabを貼り付けるには？

解決

Muddy 2003-08-20 23:49:13 No: 108191

Muddyと申します。こんにちは。お世話になります。
現在SSTabにSSTabを貼り付けたいのですが、うまくいかず悩んでいます。
親タブ(OyaTab)へ動的に作成した子タブ(KoTab)を貼り付けたいのですが、
親タブ(OyaTab)の先頭タブに全て子タブ(KoTab)が貼り付いてしまいます。

Private Sub Form_Load()
    Dim i As Integer

    For i = 1 To 3
        Load KoTab(i)                   '子タブ作成(1 To 3)
        OyaTab.Tab = i - 1              '親タブ設定(0 To 2)
        Set KoTab(i).Container = OyaTab '親タブへ子タブ貼り付けるが
                                        '全て親タブの先頭に貼り付け
                                        'られてしまいます。
        With KoTab(i)
            .Visible = True             '子タブ表示
            .Left = .Left + i * 500     '子タブ位置
        End With
    Next i
End Sub

親タブ(OyaTab)の各タブに子タブ(KoTab)を貼り付けるにはどのような
コーディングをしたらよろしいでしょうか？

ロンハー 2003-08-21 01:17:42 No: 108192

原因は分かりませんが、
Form_Activate イベントプロシージャ内で行えば、
大丈夫系です。

Muddy 2003-08-21 02:11:50 No: 108193

ロンハーさん
ありがとうございました。解決しました。