Ir para conteúdo
Fórum Script Brasil
  • 0

Dar Foco Ao Programa


gabrielfast

Pergunta

8 respostass a esta questão

Posts Recomendados

  • 0

Nem todos os programas podem ser "maximizados" (a própria Calculadora é um exemplo). Porém, se você quis dizer "restaurar", então deverá lançar mão de algumas APIs para isso. Declare o seguinte em um módulo:

Public Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Depois, utilize o seguinte código para restaurar a janela:
    Dim h As Long
    h = FindWindow(vbNullString, "Calculadora")
    OpenIcon h

Certo? wink.gif

Graymalkin

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...