USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Esconder/Aparecer - Aplicação na Barra de Tarefa.
Luiz_Fernando
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 17/04/2006 08:48 hs            
Ai pessoal uso este código q vi num outro tópico pois a vem duas perguntas em cima dele.......
 
Ele esconde a aplicação que eu quero mais como faço para fazer a aplicação voltar a aparecer???
 
E se fosse a minha própria aplicação do VB? ai teria q usar um comando no teclado para que ela volte a aparecer exemplo: Alt+G --> voltasse a aparecer --> depois ALT+G escondesse de novo...como faço para usar este comando com o FORM escondido??
 
Este código mostra como fazer ela esconder na Barra de Tarefa.
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName 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
 
Private Sub Timer1_Timer()
Dim janela as long
janela=FindWindow(vbNullString,"Gerenciador de Tarefas do Windows")
If janela>0 Then
ShowWindow janela,SW_HIDE
end if
End Sub

E-mail.............. luyzfernando@gmail.com
Msn...................luyzfernando@hotmail.com
 
Obs. Hotmail uso apenas para messenger!!
 
Aprendiz e Futuro programador!!!
 
"Todo seu conhecimento deve ser compatilhado!!!"  ---Emoções---
                                    
   
Luiz_Fernando
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 17/04/2006 16:12 hs            
Ai pessoal conseguir resolver um problema....o do código....usei o mesmo apenas como uma modificação....
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName 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_SHOW = 1

Private Sub Esconder_Click()
Dim janela As Long
janela = FindWindow(vbNullString, (Me.Caption))
If janela > 0 Then
ShowWindow janela, SW_HIDE
End If
End Sub
 
Private Sub Aparecer_Click()
Dim janela As Long
janela = FindWindow(vbNullString, "Windows Task Manager")
If janela > 0 Then
ShowWindow janela, sw_SHOW
End If
End Sub
 
e o outro.....exemplo crio um COMMAND e coloco nele a função de APARECER a janela.....porem usarei a minha própria janela para desaparecer e aparecer por isso preciso de um código q use uma tecla de atalho com o FORM escondido exemplo ALT+G....q ira fazer aparecer novamente a minha própria janela.....
 
Se alguem ñ entendeu eu explico melhorEmoções

E-mail.............. luyzfernando@gmail.com
Msn...................luyzfernando@hotmail.com
 
Obs. Hotmail uso apenas para messenger!!
 
Aprendiz e Futuro programador!!!
 
"Todo seu conhecimento deve ser compatilhado!!!"  ---Emoções---
                                    
   
JOHNNY
não registrado
ENUNCIADA !
Postada em 17/04/2006 17:43 hs   
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página