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


4 participantes

    [Resolvido]Botão "Wheel" do mouse

    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Botão "Wheel" do mouse Empty Botão "Wheel" do mouse

    Mensagem  L34NDR0 28/4/2011, 22:54

    Alguém sabe como configurar no asccess o botão "Wheel" (rodinha/do meio) do mouse para que ele role o conteúdo de um campo em um formulário ao invés de mover entre os registros?

    thanks

    Leandro
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 28/4/2011, 22:56

    Leandro tanto quanto eu sei em Access o código(s) disponíveis é só para travar os registos e mais nada
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  criquio 28/4/2011, 23:25

    Rodar o conteúdo de um campo? Não entendi.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 28/4/2011, 23:26

    Ele quer usar a roda do rato no access como é usada numa página na net.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  criquio 28/4/2011, 23:30

    Essa parte eu percebi. Só não imagino a finalidade disso. Acho que o benefício não compensa o custo, a não ser que o amigo tenha uma caixa de texto memorando com umas dezenas de linhas Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 28/4/2011, 23:33

    Eu acho que nem custo nem benefício. Os códigos existentes são para travar e não é possível fazer o que o colega quer, se destravar aos registos andam.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  JPaulo 29/4/2011, 10:25

    Amigos, serve para Caixa de Texto ou Memo;

    Option Explicit

    Dim EstaNoFoco As Boolean

    Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    'By JPaulo ® Maximo Access
    If EstaNoFoco = True Then
    If Count < 0 Then
    SendKeys "{up 1}" '1 é a quantidade de linhas que passa ao fazer Scroll no mouse para cima
    Else
    SendKeys "{down 1}" '1 é a quantidade de linhas que passa ao fazer Scroll no mouse paar baixo
    End If
    End If
    End Sub



    Private Sub SeuCampo_GotFocus()
    'Ao receber o foco no seu campo
    EstaNoFoco = True
    End Sub



    Private Sub SeuCampo_LostFocus()
    'Ao perder o foco no seu campo
    EstaNoFoco = False
    End Sub




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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 11:19

    Uma pergunta Mestre

    Se estiver a usar o travamento da roda do mouse, esse código desliga temporariamente ou não é compatível, por exemplo com o Mouse Wheel Off ?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  JPaulo 29/4/2011, 12:24

    Grande Vieira, eu nunca utilizei esse Mouse Wheel Off, nem qualquer código (Complexo) de travar a roda do mouse.

    Se tiver por ae, faça o teste e retorne, já agora ficamos a saber.



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 12:42

    Desculpe que eu expressei-me mal. A minha pergunta era no sentido do seguinte:

    Se eu estiver a utilizar a DLL MouseHook, necessito de fazer nesse código que o Mestre colocou acima a instrução:

    blRet = MouseWheelOFF(True)

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 13:54

    Mestre

    Experimentei num campo memo e não funcionou. Retirei a DLL (MouseHook) e o código respectivo e assim não funcionou o que funcionou foram os registos que passaram a alterar.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  criquio 29/4/2011, 14:04

    Bem, eu não poderei testar porque meu mouse perdeu a wheel e ainda não comprei outro Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  JPaulo 29/4/2011, 14:12

    Como já disse acima, não faço uso nem tenho qualquer DLL para esse tipo de travamento.

    Fica um exemplo de:

    Onde estiver o foco, muda de linha pelo Whell do mouse.

    http://dl.dropbox.com/u/771097/mdbTeste.rar



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 14:29

    Mestre

    O seu exemplo está perfeito, mas num formulário contínuo e eu experimentei num formulário normal que entre várias caixas de texto, também tem um campo memo e aí é que não funcionou.

    1- Coloquei o código que o Mestre postou acima

    2- Coloquei no evento on focus e lost focus.

    Com a MouseHook activada o código não funciona. Sem a MouseHook os registos passam.

    No form contínuo, realmente funciona.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  JPaulo 29/4/2011, 15:07

    Vamos esquecer o MouseHook

    Exemplo num form simples;

    http://dl.dropbox.com/u/771097/mdbTeste_II.rar



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 16:01

    Acontece o mesmo que no meu. Se clicar no campo Obs, ou der foco ao campo os registos passam do 1 para o 4. Ora no formulário contínuo isso não acontece.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  JPaulo 29/4/2011, 17:01

    Nos exemplos que lhe passei, aqui não passa entre registros.

    Se o foco estiver no campo Obs, pass linha a linha dentro desse campo.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 17:05

    Pois não acontece isso Mestre. Daí a minha insistência, mas posse-lhe fazer um video com o exemplo. Aqui passa os registos, mesmo o foco estando colocado no campo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  JPaulo 29/4/2011, 18:09

    Vieira você tem razão.

    No 2003 não funfa.

    Fiz o teste no 2007 e funciona beleza.

    Bom final de semana.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Botão "Wheel" do mouse Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  vieirasoft 29/4/2011, 18:10

    Explicado Mestre. Abraço e bom fim de semana para si também.

    Conteúdo patrocinado


    [Resolvido]Botão "Wheel" do mouse Empty Re: [Resolvido]Botão "Wheel" do mouse

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:12