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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como fazer p/ descobrir que janela foi minimiz...?
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 05/10/2005 16:20 hs         
Oi,
 
Como fazer p/ descobrir que janela foi minimizada pelo windows(botão exibir área de trabalha ou botão direito na barra de tarefas/exibir área de trabalho),
pois neste caso o WindowState não muda !?
 
Preciso capturar esta informação p/ evitar que certas ações(redimensionamento de grids) dentro da sub form_resize sejam executadas.
 
Veja o teste que eu fiz:
 
Public EstadoJanela As Integer
'vbNormal: 0
'vbMinimized: 1
'vbMaximized: 2
Private Sub Form_Load()
    EstadoJanela = Me.WindowState
End Sub
Private Sub Form_Resize()
    If EstadoJanela <> Me.WindowState Then
        MsgBox "mudou o estado da janela p/: " & Me.WindowState
    Else
        MsgBox "Estado da janela continua o mesmo: " & EstadoJanela
    End If
End Sub
 
Grato

http://www.vilmarbro.com.br
     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 06/10/2005 16:01 hs         
Ou alguém conhece alguma API que descubra isso?
Ou API que saiba que a janela do VB perdeu o foco?

http://www.vilmarbro.com.br
     
Guaitoli
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 06/10/2005 16:31 hs            
Faça a mesma coisa porem com um Timer
Private Sub Form_Load()
    EstadoJanela = Me.WindowState
End Sub
Private Sub Timer1_Timer()
    If EstadoJanela <> Me.WindowState Then
        MsgBox "mudou o estado da janela p/: " & Me.WindowState
        EstadoJanela = Me.WindowState
    End If
End Sub
     
VACA
LIMEIRA
SP - BRASIL
Postada em 06/10/2005 17:13 hs            
se o problema eh minimizar a janela e de maneira alguma vc quer isso naum eh mais facil vc colocar o botaum de minizar como enable=false, nas propriedades do form?

"Quando estou fraco, aí então é que sou Poderoso"
     
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 06/10/2005 17:13 hs         
Grato colega, porém usando este KB http://support.microsoft.com/default.aspx?scid=kb;en-us;186908 , cheguei onde precisava.
 
Emoções

http://www.vilmarbro.com.br
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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