投稿日 | : 2002/08/26(Mon) 18:44 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re6:ActiveFormの切り替え方法 |
ありがとうございました。めんどうがらず調べてみるものですね
ひとつ、ひとつ調べていたら結局これだけで動作しました。
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 この部分は何をしているのでしょうか?
コメントアウトしても問題ないようですが?