Api # Inserire la seguente dichiarazione e le costanti in un modulo Bas
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Public Const SWP_HIDEWINDOW = &H80 Public Const SWP_SHOWWINDOW = &H40 Routine per nascondere o visualizzare la TaskBar Public Sub ShowTaskBar(X As Boolean) Select case X Case=False Dim wHandle1 As Long wHandle1 = FindWindow("Shell_traywnd", "") Call SetWindowPos(wHandle1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Case=True Dim wHandle2 As Long wHandle2 = FindWindow("Shell_traywnd", "") Call SetWindowPos(wHandle2, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Select End Sub |