|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Ocultar/mostrar barra de tarefas do Windows
|
 |
|
|
|
Postada em 28/12/2000 por Webmaster
webmaster@vbweb.com.br
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpexecuta As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As _
Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0: Const SW_SHOWNORMAL = 1
'Para Ocultar a barra de tarefas:
Dim aviso As Long
Dim janela As Long
Dim executa As String
executa = Space(256)
executa = "Shell_TrayWnd"
janela = FindWindow(executa, vbNullString)
aviso = ShowWindow(janela, SW_HIDE) 'Esconde a barra
'Para Mostrar a barra de tarefas:
Dim aviso As Long
Dim janela As Long
Dim executa As String
executa = Space(256)
executa = "Shell_TrayWnd"
janela = FindWindow(executa, vbNullString)
aviso = ShowWindow(janela, SW_SHOWNORMAL) 'Mostra a barra
|
|
|
|
|
