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

2 participantes

    [Resolvido]Trocar mouse no Vba

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

    [Resolvido]Trocar mouse no Vba Empty [Resolvido]Trocar mouse no Vba

    Mensagem  crysostomo 2/3/2021, 19:09

    uma coisa pequena , mas tentei peaquisando e não deu certo. Pra fazer um usabilidade mais clara na interface do usuário.
    como que troco o ponteiro, eu ja tenho o modulo e nesse cogigo não vai

    Código:
     Me.MouseWheel = 32643&


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  Noobezinho 2/3/2021, 21:32

    crysostomo

    veja AQUI

    Tem esse também:

    screen.MousePointer()

    digite na janela imediata, clique nele e aperte F1 pra ver a ajuda.

    E tem esse para a rodinha do meio:

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

    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

    { }'s

    Balem


    .................................................................................
    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  crysostomo 2/3/2021, 21:56

    Boa noite , moob é o de modulo , mas é daquele jeito que coloca pelo vba, mas alguma coisa um parâmetro esta faltando para mudar.
     Me.MouseWheel = 32643& ele coninica com a mumeração do módulo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  Noobezinho 2/3/2021, 22:01

    MoouseWell é só para rolagem.

    Esse código só funciona no  mouse.

    Em todo caso,  retire o & e teste.


    Cole o código aqui,pls


    Última edição por Noobezinho em 2/3/2021, 22:04, editado 1 vez(es)


    .................................................................................
    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  crysostomo 2/3/2021, 22:04

    cara , somente um linha muda o mouse , quase certeza que é uma parada desse , ja fiz em outros, mas esqueci qual sistema
    Código:

    'Constantes para identificar os diversos tipos de ponteiro do mouse
    Public Const IDC_APPSTARTING = 32650&
    Public Const IDC_HAND = 32649&
    Public Const IDC_ARROW = 32512&
    Public Const IDC_CROSS = 32515&
    Public Const IDC_IBEAM = 32513&
    Public Const IDC_ICON = 32641&
    Public Const IDC_NO = 32648&
    Public Const IDC_SIZE = 32640&
    Public Const IDC_SIZEALL = 32646&
    Public Const IDC_SIZENESW = 32643&
    Public Const IDC_SIZENS = 32645&
    Public Const IDC_SIZENWSE = 32642&
    Public Const IDC_SIZEWE = 32644&
    Public Const IDC_UPARROW = 32516&
    Public Const IDC_WAIT = 32514&

    Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
    (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

    Declare Function SetCursor Lib "user32" _
    (ByVal hCursor As Long) As Long

    Function MouseCursor(CursorType As Long)
    Dim lngRet As Long
    lngRet = LoadCursorBynum(0&, CursorType)
    lngRet = SetCursor(lngRet)
    End Function

    esse é o modulo
    Código:
    Me.MouseWheel = 32514
    esse chama o numero para mudar  um situação dessa


    Última edição por crysostomo em 2/3/2021, 22:06, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  Noobezinho 2/3/2021, 22:05

    Cole o código, quero ver

    Todos os exemplos que passei muda o mouse

    Mas afinal quer o mouse ou a roda do mouse?


    .................................................................................
    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  crysostomo 2/3/2021, 22:07

    si, a do módulo  muda, mas esta par chamar a numeração no evento, eu quero mudar no codigo.
    um linha dessa muda , mas esqueci como


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  Noobezinho 2/3/2021, 22:14

    Está usando o código do mouse pra mudar a roda do mouse

    Isso não vai funfar, pois já nas propriedade do formulário

    existe o evento Na roda do mouse.

    E que eu coloquei via VBA na mensagem nº 2

    Ela não pode mudar o ponteiro do MOUSE.


    .................................................................................
    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  crysostomo 2/3/2021, 22:15

    posso ter errado , mas tem somente uma linha que chama o ponteiro, pode crê,  sei que tem hiperlink ,mas pelo design UI que mexo , a mão fica além de mais elegante prende o usuário
     o Screen.MousePointer não se comunica com o modulo não.
    Caraca perdi essa linha 


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

    [Resolvido]Trocar mouse no Vba Empty Re: [Resolvido]Trocar mouse no Vba

    Mensagem  crysostomo 2/3/2021, 23:05

    Achei noob.
    Baixei 4 sistemas do meu drive puts, sorte que consegui achar no 4º

    ao  mover o mouse 

    Código:
    Me.MouseWheel = MouseCursor(32649)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 20/9/2021, 10:12