■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5074-0タブストリップの動的作成WormHole2002-02-14(木) 13:42
     #5075-0RE#5074:タブストリップの動的作成WormHole2002-02-14(木) 13:43
     #5079-0RE#5074:タブストリップの動的作成魔界の仮面弁士2002-02-14(木) 14:06
#5074-0
タブストリップの動的作成
Private WithEvents Button1 As CommandButton
Set Button1 = Controls.Add("VB.CommandButton", "But1")

のようにタブストリップを動的に作る時、
以下の「<ココ>」の部分には何と記述すればいいのでしょうか?
ちなみに「VB.CommandButton」ではダメでした。

Controls.Add("<ココ>", "Tab1")
#5075-0
RE#5074:タブストリップの動的作成
> ちなみに「VB.CommandButton」ではダメでした。

「VB.TabStrip」ではダメでしたの誤りです m(__)m
#5079-0
RE#5074:タブストリップの動的作成
> のようにタブストリップを動的に作る時、
> 以下の「<ココ>」の部分には何と記述すればいいのでしょうか?
> Controls.Add("<ココ>", "Tab1")

TabStrip Ver.6 であれば、"MSComctlLib.TabStrip" とすればOKです。


Option Explicit

Private WithEvents Tab1 As VB.VBControlExtender

Private Sub Form_Load()
    'コンポーネントの追加を行っていない場合は、
    'Licenses.Addが必要になる
    VB.[Global].Licenses.Add "MSComctlLib.TabStrip"
    
    Set Tab1 = Me.Controls.Add("MSComctlLib.TabStrip", "Tab2")
    Tab1.Move 180, 180, 2880, 2880
    With Tab1.object.Tabs
        .Clear
        .Add , , "AAA"
        .Add , , "BBB"
        .Add , , "CCC"
    End With
    Tab1.Visible = True
End Sub

Private Sub Tab1_ObjectEvent(Info As EventInfo)
    Dim Ev As VBRUN.EventParameter
    Debug.Print "["; Info.Name; "]"
    For Each Ev In Info.EventParameters
        Debug.Print , """"; Ev.Name; """=",
        On Error Resume Next
        Debug.Print Ev.Value
        If Err.Number <> 0 Then
            Debug.Print TypeName(Ev.Value)
        End If
        On Error GoTo 0
    Next Ev
End Sub
このページと関連する記事:
#34118-0TabStripでの右クリック2000-11-26(日) 12:13
#36810-0TabStripでの右クリック2001-01-12(金) 20:33
#36871-0ActiveXコントロールの動的追加について2001-01-14(日) 19:31
#14436-0コントロールを追加する方法2001-02-12(月) 18:01
#41924-0GetObject で起動されている IE を取得するには?2001-04-19(木) 11:25
#369-0Excelで言う所の「MultiPage」2002-03-15(金) 23:28
#1959-0現在表示しているタブを取得するには?1999-07-24(土) 10:59
#2723-0RE#2694:タブストリップについて1999-10-27(水) 06:21
#142-1タブコントロール2003-12-05(金) 13:01
#1466-3Excelに貼り付けたボタンのクリックイベントを取得したい件2001-11-13(火) 04:42
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)