タスクバーの表示・非表示          <TOP>

タスクバーを表示・非表示に切り替えます。
ShowWindow 指定されたウィンドウの表示状態を設定
FindWindow 指定された文字列と一致するクラス名とウィンドウ名を持つトップレベルウィンドウ

'================================================================
'= タスクバーの表示・非表示
'=    (TaskBar.bas)
'================================================================
#include "Windows.bi"

' 指定されたウィンドウの表示状態を設定
Declare Function Api_ShowWindow& Lib "user32" Alias "ShowWindow" (ByVal hWnd&,ByVal nCmdShow&)

' 指定された文字列と一致するクラス名とウィンドウ名を持つトップレベルウィンドウ（ 親を持たないウィンドウ）のハンドルを返す。この関数は、子ウィンドウは探さない。検索では、大文字小文字は区別されない
Declare Function Api_FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)

Var Shared Button(1) As Object

For i = 0 To 1
    Button(i).Attach GetDlgItem("Button" & Trim$(Str$(i + 1)))
    Button(i).SetFontSize 14
Next i

'================================================================
'=
'================================================================
Declare Sub TaskBar(Value As Integer)
Sub TaskBar(Value As Integer)
    Var hWnd As Long
    Var Ret As Long

    hWnd = Api_FindWindow("Shell_TrayWnd", "")
   
    If Value Then
        Ret = Api_ShowWindow(hWnd, 5)
    Else
        Ret = Api_ShowWindow(hWnd, 0)
    End If
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    TaskBar(0)
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    TaskBar(1)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End