- 日時： 2009/12/28 11:46
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[フォーム][][] *
* キーワード：タスクバー,アイコン,,,, *
***********************************************************************************
-----------------------------------------------------------------------
投稿時間：2002/08/26(Mon) 15:56
投稿者名：MS
> >ITaskbarListを使う方法なら、最小化してもAlt+Tabから
> >元に戻せるんですが。
>
タイプライブラリを自作するにはそれなりに知識が必要ですが、
できたものを利用するだけなら簡単です。
例えば、以下のサイトにズバリのサンプルがありますので、
直ぐ使えると思います。
http://www.msjogren.net/dotnet/eng/samples/vb6_taskbarlist.asp
-----------------------------------------------------------------------
投稿時間：2002/08/26(Mon) 18:13
投稿者名：MS
ＵＲＬ ：
今回使うのは
DeleteTabメソッド(タスクバーのアイテムを削除)
Dim objTaskbar As New TaskbarList
objTaskbar.HrInit
objTaskbar.DeleteTab Me.hwnd
Set objTaskbar = Nothing
AddTabメソッド(タスクバーにアイテムを追加)
Dim objTaskbar As New TaskbarList
objTaskbar.HrInit
objTaskbar.AddTab Me.hwnd
objTaskbar.ActivateTab Me.hwnd
Set objTaskbar = Nothing
以上だけでいいと思います。
--------------------------------------------------------------------
投稿時間：2002/08/26(Mon) 18:44
投稿者名：花ちゃん
ありがとうございました。めんどうがらず調べてみるものですね
ひとつ、ひとつ調べていたら結局これだけで動作しました。
Option Explicit
Private oTaskbar As TaskbarList
Private Sub Command1_Click()
oTaskbar.AddTab Me.hWnd 'タスクバーに表示
End Sub
Private Sub Command2_Click()
oTaskbar.DeleteTab Me.hWnd 'タスクバーから削除
End Sub
Private Sub Form_Load()
Set oTaskbar = New TaskbarList
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set oTaskbar = Nothing
End Sub
ひとつわからないのですが
objTaskbar.HrInit この部分は何をしているのでしょうか？
コメントアウトしても問題ないようですが？
-------------------------------------------------------------------------------
投稿時間：2002/08/26(Mon) 19:40
投稿者名：MS
> objTaskbar.HrInit この部分は何をしているのでしょうか？
> コメントアウトしても問題ないようですが？
ITaskbarList::HrInit Method
http://msdn.microsoft.com/library/default.asp?url=/library/en-
us/shellcc/platform/shell/reference/ifaces/itaskbarlist/hrinit.asp
によると、
TaskbarListオブジェクトを初期化します。
他のITaskbarListメソッドを呼ぶ前に、このメソッドを呼ぶ必要があります。
このメソドが失敗すると、他のメソッドを呼ぶことができません。
の様なことが書いてあります。
それ以上詳しいことはわかりません。
|
ITaskbarListを使う方法(VB6.0)