Ocultando e reaparecendo a barra de tarefas
Declarações
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpexecuta As String ByVal lpWindowName as String) as Long Private Declare Function Show Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow as Long) as Long Const SW_HIDE = 0: Const SW_SHOWNORMAL = 1
Código 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)
Códido 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)
[Menu] [Códigos] [Busca] [Caça Níqueis] [Dicas] [Livro de Visitas] [Downloads] [Links]
Voltar
Voltar