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

    Retirar efeito do mouse

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Retirar efeito do mouse

    Mensagem  formiga10x em Qua 18 Mar 2015, 11:25

    Bom dia a todos os amigos e mestres.
    Baixei um exemplo do mestre JPaulo Agendamento Alarme achei simplesmente perfeito e irá me ajudar muito no meu dia-a-dia porém, gostaria de saber se existe algum código vba para que não fique aparecendo a ampulheta a cada ciclo do timer no form.

    Desde já agradeço.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Retirar efeito do mouse

    Mensagem  JPaulo em Qua 18 Mar 2015, 15:39

    Cole isto num modulo e salve;

    Código:
    Option Explicit

    Dim LbTime As Integer
    Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

    Sub TornaCursorInvisivel()
        Call ShowCursor(False)
    End Sub

    Sub TornaCursorVisivel()
        If LbTime = 0 Then
            Call ShowCursor(True)
            Exit Sub
        End If
    End Sub

    Ao abrir do formulario;

    Private Sub Form_Open(Cancel As Integer)
    'ao abrir torna o cursor invisivel
       Call TornaCursorInvisivel
    End Sub


    Ao fechar o formulario;

    Private Sub Form_Close()
    'ao fechar torna o cursor visivel
       Call TornaCursorVisivel
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: Retirar efeito do mouse

    Mensagem  formiga10x em Qua 18 Mar 2015, 18:42

    Olá JPaulo boa tarde.
    Esta função irá tornar o cursor completamente invisível correto? No entanto gostaria apenas que desativasse o efeito do mouse "Ocupado" pois, estou a utilizar seu programa dentro do meu e preciso do cursor para executar outras funções.

    Desde já agradecido.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: Retirar efeito do mouse

    Mensagem  JPaulo em Qua 18 Mar 2015, 20:37


    DoCmd.HourGlass False


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 11/09/2013

    Re: Retirar efeito do mouse

    Mensagem  formiga10x em Qua 18 Mar 2015, 20:52

    JPaulo em qual evento e form?


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

      Data/hora atual: Dom 04 Dez 2016, 20:21