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

    Retirar efeito do mouse

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9260
    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


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Retirar efeito do mouse

    Mensagem  JPaulo em Qua 18 Mar 2015, 20:37


    DoCmd.HourGlass False


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 746
    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: Seg 26 Jun 2017, 19:59