AI VAI UMA DICA P/ OCULTAR BARRA DE TAREF WINDOWS

 Tópico anterior Próximo tópico Novo tópico

AI VAI UMA DICA P/ OCULTAR BARRA DE TAREF WINDOWS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#34305 - 21/07/2004 04:06:00

USUARIO.EXCLUIDOS

Cadast. em:


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 formulrio principal

ShowHideTaskBar  false


NoEvento ao Sair do Sistema

ShowHideTaskBar  true




Resposta escolhida #34307 - 21/07/2004 04:34:57

CASPEREARK
SAO PAULO
Cadast. em:Maio/2001


Boa dica!

J a publique aqui no site. Confira: http://www.vbmania.com.br/vbmdetail.php?varID=1190

CASPER


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45