AI VAI UMA DICA P/ OCULTAR BARRA DE TAREF WINDOWS

USUARIO.EXCLUIDOS 21/07/2004 04:06:00
#34305
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

Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40

Public Sub ShowHideTaskBar(bVisible As Boolean)
If bVisible = False Then
SetWindowPos FindWindow("Shell_traywnd", ""), 0, 0, 0, 0, 0, SWP_HIDEWINDOW
Else
SetWindowPos FindWindow("Shell_traywnd", ""), 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End If
End Sub

No evento load do formulário principal

ShowHideTaskBar false


NoEvento ao Sair do Sistema

ShowHideTaskBar true
CASPEREARK 21/07/2004 04:34:57
#34307 Resposta escolhida
Boa dica!

Já a publique aqui no site. Confira: http://www.vbmania.com.br/vbmdetail.php?varID=1190
Tópico encerrado , respostas não são mais permitidas
Voltar