MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Compartilhe
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 06/10/2012

    [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Mensagem  Waltair M Souza em 21/5/2016, 18:45

    Olá Amigos amantes de Access,

    Tenho já em funcionamento um aplicativo que uso na empresa, é bem simples e utilizado por todos os colegas do PCP.
    Implementei a algum tempo um botão que chamei de Relax. enquanto trabalha o usuário pode escolher um artista ou uma playlist predefinida em um campo caixa de combinação no form principal e clicar no Botão que o mesmo abre um link pre programado na net e ouve as canções da play list ou do seu cantor preferido.

    Tudo isso já funciona bem, porem (o danado é o porem)

    Duas situações que gostaria de resolver

    1ª - Que ao clicar no botão a pagina do explorer abrisse já minimizada
    2ª - Que ao escolher outra playlist e clicar no botão para abrir aquela pagina já aberta anteriormente fosse alterada ou fechada para dar lugar a nova playlistque foi escolhida

    acho que é isso

    Grato desde já
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 17/01/2017

    Re: [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Mensagem  gabrielpn06 em 25/4/2018, 14:04

    Bom dia amigo.
    Para abrir minimizado faça o seguinte:

    1 - Em um módulo, cole:

    Código:
    'Abre o navegador Maximizado
     Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
                (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
     
    Global Const SW_MAXIMIZE = 3
    Global Const SW_SHOWNORMAL = 1
    Global Const SW_SHOWMINIMIZED = 2

    2 - No seu Sub(), logo abaixo do procedimento que utiliza para abrir o navegador cole:

    Código:
    apiShowWindow ie.hwnd, SW_SHOWMINIMIZED
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 06/10/2012

    Re: [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Mensagem  Waltair M Souza em 25/4/2018, 19:32

    Boa tarde Gabriel, obrigado pelo retorno, vou implementar aqui e volto a informar

    Grato
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 17/01/2017

    Re: [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Mensagem  gabrielpn06 em 25/4/2018, 19:33

    espero que sirva.
    avatar
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 17/01/2017

    Re: [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Mensagem  gabrielpn06 em 25/4/2018, 22:40

    Quanto a dúvida 2:

    No seu Sub() antes de abrir a playlist cole:

    Código:
    IE.Quit
    Set IE = Nothing

    Dessa forma vc fecha o que estava ativo.
    avatar
    Waltair M Souza
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 06/10/2012

    Re: [Resolvido]Fechar pagina internet ao abrir outra no mesmo botão

    Mensagem  Waltair M Souza em 27/9/2018, 19:19

    Boa tarde ao caros colegas... implementado e funcionando

    Abraços...

      Data/hora atual: 16/12/2018, 15:47