４．アクティブなウィンドウだけをタスクバーに表示する

１．ITaskbarList を使っての方法 ２． ３． ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：ITaskbarList.tlb　　　　　　　　　　　　参照設定方法参照 使用 API：なし その他　：TaskbarList.tlb は下記アドレスからDLして下さい。 　　　　：ITaskbarList　　taskbarlist.zip の中に入ってます。

１．ITaskbarList を使っての方法

Option Explicit　　 'SampleNo=196　 2002.08.27 Private Sub Form_Load() 　　'別途　プロジェクト→参照設定→ITaskbarList.tlb に参照設定して下さい 　　Form2.Show 　　Form3.Show End Sub Private Sub Form_Activate() 　　Dim objTaskbar As New TaskbarList 　　'タスクバー・リスト・オブジェクトを初期化します 　　objTaskbar.HrInit 　　'タスクバー上のアイテムを表示します(ウィンドウはアクティブになりません) 　　objTaskbar.AddTab Me.hWnd 　　objTaskbar.ActivateTab Me.hWnd　'ウィンドウをアクティブにします。 　　Set objTaskbar = Nothing　　　　'参照を解放 End Sub Private Sub Form_Deactivate() 　　Dim objTaskbar As New TaskbarList 　　objTaskbar.HrInit 　　objTaskbar.DeleteTab Me.hWnd　　'タスクバーから削除 　　Set objTaskbar = Nothing End Sub Form2 と Form3 の両方に記入して下さい。 Option Explicit Private Sub Form_Activate() 　　Dim objTaskbar As New TaskbarList 　　objTaskbar.HrInit 　　objTaskbar.AddTab Me.hWnd 　　objTaskbar.ActivateTab Me.hWnd 　　Set objTaskbar = Nothing End Sub Private Sub Form_Deactivate() 　　Dim objTaskbar As New TaskbarList 　　objTaskbar.HrInit 　　objTaskbar.DeleteTab Me.hWnd 　　Set objTaskbar = Nothing End Sub

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

アクティブなウィンドウ(Form)だけをタスクバーに表示する フォームを一度に沢山開いている時にフォームに表示するのはアクティブなウィンドウだけに制限する