Crie um Formulário como o da Imagem abaixo:
No botão Mostrar Barra insira o código no evento click:
Call
SetWindowPos(lRet, 0, 0, 0, 0, 0, _
SWP_SHOWWINDOW)
No Botão Não Mostrar Barra, insira o código no evento click:
lRet
= FindWindow("Shell_traywnd", "")
'Esconde a barra de tarefas
Call SetWindowPos(lRet, 0, 0, 0, 0, 0, _
SWP_HIDEWINDOW)
Crie um Módulo com o seguinte código:
Option
Explicit
Public Declare Function FindWindow Lib _
"user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Public 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
Public Const SWP_HIDEWINDOW As Long = &H80
Public Const SWP_SHOWWINDOW As Long = &H40
Public lRet As Long
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
