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

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

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

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

Vou continuar procurando.

Vlw

Olá Marcos

Desculpe a demora em responder


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

Abraços

Noob

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 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

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

Que ótimo Marcos

Valeu pelo retorno

Boa sorte

Noob