VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

タスクバーから実行中のタスクの表示を消す(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/09/14 20:45
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[フォーム][][]                                                      *
* キーワード：ウィンドウ,アイコン,,,,                                             *
***********************************************************************************

元質問：タスクバーから実行中のタスクの表示を消す.. - えす 2003/01/31-22:33 No.2529

---------------------------------------------------------------------------------------
Re^3: タスクバーから実行中のタスクの表示.. - 花ちゃん 2003/01-11:44  No.2536
---------------------------------------------------------------------------------------

> 手持ちの資料にその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