投稿日 | : 2003/02/01(Sat) 11:44 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: タスクバーから実行中のタスクの表示を消す方法 |
> 手持ちの資料にそのAPIの記述が無かったもので解りませんでした。
> 早速構造体などを調べて見ます
メモ帳を起動して、下記のコードを試して下さい。
指定のウインドウのハンドルの取得方法は色々ありますので目的に合った方法で
取得して下さい。
Option Explicit
'クラス名又はキャプション名を与えてウインドウのハンドルを取得(P81)
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
'ウインドウの表示状態を設定する(P103)
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'指定のウインドウを非表示にする
Private Const SW_HIDE = 0
'ウインドウをアクティブ化し現在の位置とサイズで表示する
Private Const SW_SHOW = 5
'SW_SHOW と同じだがアイコン化・最大化されている時は元の位置とサイズで復元する
Private Const SW_RESTORE = 9
Private Sub Command1_Click()
'元の位置とサイズで表示する
Dim retValue As Long
Dim lnghwnd As Long
lnghwnd = FindWindow("Notepad", vbNullString)
retValue = ShowWindow(lnghwnd, SW_RESTORE)
End Sub
Private Sub Command2_Click()
'ウインドウを非表示にする
Dim retValue As Long
Dim lnghwnd As Long
lnghwnd = FindWindow("Notepad", vbNullString)
retValue = ShowWindow(lnghwnd, SW_HIDE)
End Sub