Esconder - Exibir a barra de tarefas

Esconder e Exibir a barra de tarefas ( TaskBar )

Quer esconder/exibir a barra de tarefas ? É pra já...

1- Inicie um novo projeto no VB e no formulário padrão insira

dois botões de Comando

2- O Layout deverá ser algo como :

3- Agora insira o seguinte código na seção General declarations do formulário

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
'Taskbar constantes
Private Const HWND_TOPMOST = -1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOREPOSITION = &H200
Private Const SWP_NOSIZE = &H1

4- Usaremos duas funções :

- EscondeBarratarefas - que irá esconder a barra de tarefas

- MostraBarratarefas - que irá exibir a barra de tarefas

Public Sub EscondeBarratarefas()
   Dim nTaskBarhWnd        As Long
   nTaskBarhWnd = FindWindow("Shell_traywnd", "")
   If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Public Sub MostraBarratarefas()
   Dim nTaskBarhWnd        As Long
   nTaskBarhWnd = FindWindow("Shell_traywnd", "")
   If nTaskBarhWnd <> 0 Then Call SetWindowPos(nTaskBarhWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

5-O código do evento Click de cada botão de comando , apenas chama a função pertinente:

Private Sub Command1_Click()
  EscondeBarratarefas
End Sub

Private Sub Command2_Click()
  MostraBarratarefas
End Sub

Agora é só você brincar de esconde e esconde com a barra de tarefas...

E, é só isto....