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]Duvida com exemplo MinimizaSysTray

    Compartilhe
    avatar
    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.
    avatar
    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.
    avatar
    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: Ter 26 Set 2017, 21:00