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

    mensagem de alerta semelhante ao MSN

    Compartilhe
    avatar
    Júnior_Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 07/06/2012

    mensagem de alerta semelhante ao MSN

    Mensagem  Júnior_Oliveira em Sex 19 Out 2012, 23:34

    Boa noite pessoal,

    Eu procurei na net um exemplo de mensagem semelhante a do MSN, até que achei em VB mas era muito complexo (para mim, é claro). Então fiz desse modo que anexo. O código que minimiza para o systray é do JPaulo, utilizei ele para demosntrar como funciona.Deixe um programa aberto, por exemplo o Word, para ver como a mensagem é sobreposta, abra o formteste e clique no botão. Eu sinceramente espero que gostem.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    Registrado : 13/04/2012

    Re: mensagem de alerta semelhante ao MSN

    Mensagem  Fernando Bueno em Sab 20 Out 2012, 00:29

    Ola Junior.

    Ficaria grato se disponibilizasse em 2003.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Naldo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 376
    Registrado : 16/02/2011

    Re: mensagem de alerta semelhante ao MSN

    Mensagem  Naldo em Sab 20 Out 2012, 00:33

    Saudações Junior.

    Teria como vc postar na versão 2003.

    Sou grato pela atenção.
    avatar
    Júnior_Oliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 07/06/2012

    Re: mensagem de alerta semelhante ao MSN

    Mensagem  Júnior_Oliveira em Sab 20 Out 2012, 01:03

    Esqueci de algo importante. Meu programa não reconhece a resolução da tela, sendo assim é necessário especificar a localização do form. Este que fiz é para a resolução 1920 x 1080. Se a resolução for outra é necessário mudar as variáveis "superior" e "esquerdo" do form. Exemplo se fosse uma resolução de 1600 x 900 ficaria assim as seguintes linhas do programa:

    Private Sub Form_Open(Cancel As Integer)
    esquerda = 19000 ' mudei aqui
    superior = 13000 ' mudei aqui

    e .............

    Private Sub Form_Timer()
    If (tipo = 0) Then
    If (superior = 10000) Then ' mudei aqui
    Me.TimerInterval = 10000
    tipo = 1

      Data/hora atual: Qua 18 Out 2017, 10:28