MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    avatar
    MarcosLopes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/04/2014

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  MarcosLopes 2/4/2014, 19:40

    Procurei aqui e no google e não achei, só achei para travar o wheel,
    mas não para rolar o formulário pra cima e pra baixo, que é maior que a janela.

    Vlw


    Última edição por MarcosLopes em 11/4/2014, 22:49, editado 1 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  Noobezinho 2/4/2014, 20:43

    Olá Marcos

    Bem vindo ao fórum

    Experimente esse código abaixo, da propriedade Na roda do mouse do formulário:

    Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    If Count < 0 Then
    SendKeys "{UP 1}"
    Else
    SendKeys "{DOWN 1}"
    End If

    End Sub

    Veja se adaptando para o teu caso, funciona.

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    MarcosLopes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/04/2014

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  MarcosLopes 8/4/2014, 15:29

    Esta rotina faz o foco ir para os outros campos ao invés de rolar a página.

    Vou continuar procurando.

    Vlw

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  Noobezinho 10/4/2014, 14:11

    Olá Marcos

    Desculpe a demora em responder


    Veja esse LINK de um tópico aqui do fórum se ajuda.

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  rdrck 10/4/2014, 14:23

    Olá Marcos,
    O meu form rola normalmente com a roda do mouse.
    Verifique na propriedade do form, aba Formato, se a linha Barra de Rolagem está setada como nenhuma. Pode ser isso.
    Se rodar a roda do mouse fora dos registros, num campo em branco do form, deve funcionar normal.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    avatar
    MarcosLopes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/04/2014

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  MarcosLopes 10/4/2014, 15:42

    Meu form tem muitos campos e qdo giro o mouse ele muda o foco de um campo para outro, fazendo o que o comando manda realmente, q é como se tivesse teclado as setas pra cima ou pra baixo e o que preciso é rolar o form sem q mude o foco no campo em edição.

    Mas a rotina valeu, pois ao invés de usar comando para as setas, mudei para Page UP e Page Down e deu certo:

    Código:

    Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
        If Count < 0 Then
            SendKeys "{PGUP 1}"
        Else
            SendKeys "{PGDN 1}"
        End If
    End Sub

    Vlw
    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  rdrck 10/4/2014, 16:11

    O tópico foi resolvido?
    Só não esqueça de clicar no [Resolvido].
    Valeu.


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  Noobezinho 12/4/2014, 01:12

    Que ótimo Marcos

    Valeu pelo retorno

    Boa sorte

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros? Empty Re: [Resolvido]Como fazer para botão do meio do mouse (wheel) rolar formulário ao invés de registros?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 18:59