MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Duvida com exemplo MinimizaSysTray

    Compartilhe

    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    [Resolvido]Duvida com exemplo MinimizaSysTray

    Mensagem  lupe em Qui 11 Jun 2015, 13:05

    Olá!

    Encontrei um exemplo que minimiza o Access no SysTray no tópico:[Você precisa estar registrado e conectado para ver este link.]

    No meu PC este exemplo minimiza na barra de notificações e na barra de tarefas também.

    Minha dúvida é se tem como minimizar somente nas notificações e ocultar da barra de tarefas. O que realmente pretendo é que o usuário do meu sistema não saiba que o sistema esta em execução, pois esse sistema é apenas um gerenciador de outro BD.

    Meu S.O é W7 e Office 2010.

    Desde já, obrigado!


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.

    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Duvida com exemplo MinimizaSysTray

    Mensagem  lupe em Qui 11 Jun 2015, 15:02

    Pessoal,

    Na verdade nem seria preciso minimizar o sistema, apenas não exibir o ícone na barra de tarefas quando o mesmo for executado.


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.

    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Duvida com exemplo MinimizaSysTray

    Mensagem  lupe em Sex 12 Jun 2015, 12:49

    Olá!

    Consegui chegar no resultado desejado da seguinte forma:

    Criei um módulo conforme abaixo:

    Global Const SW_HIDE = 0

    Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

    Public Function FSetAccessWindow(nCmdShow As Long)
    Dim loX As Long
    Dim loForm As Form
    loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End Function

    e no evento ao abrir do formulario principal:

    Call FSetAccessWindow(SW_HIDE)

    Obs.: Este código eu encontrei em um exemplo que eu havia baixado do fórum a algum tempo e não me lembro o nome do programador
    para atribuir os devidos créditos.


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.

      Data/hora atual: Qua 07 Dez 2016, 20:08