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

    Alterar ponteiro do mouse (Rato)

    avatar
    Convidad
    Convidado


    Alterar ponteiro do mouse (Rato) Empty Alterar ponteiro do mouse (Rato)

    Mensagem  Convidad 15/7/2011, 19:18

    Crie um Modulo e coloque o seguinte código dentro:

    Option Explicit

    '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


    Na linha do evento Ao mover mouse da caixa de texto ou Label ou Botão, sei lá, use a sua imaginação e então digite:

    =MouseCursor(Código do Ponteiro)


    Exemplo:

    =MouseCursor(32649) 'igual a uma mão

    Quando o mouse passa por cima o formato será alterado para a mãozinha.

    Obs: Você pode encontra os códigos de cada ponteiro dentro do Modulo.

    avatar
    muco_jcs
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 12/01/2016

    Alterar ponteiro do mouse (Rato) Empty Re: Alterar ponteiro do mouse (Rato)

    Mensagem  muco_jcs 11/5/2016, 17:49

    Show de Bola...
    Fácil de fazer. Funcionou 100%.... muito obrigado!
    avatar
    saulosa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 21/06/2016

    Alterar ponteiro do mouse (Rato) Empty Re: Alterar ponteiro do mouse (Rato)

    Mensagem  saulosa 19/5/2021, 00:19

    Me ajudou demais! vlwwwww
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    Alterar ponteiro do mouse (Rato) Empty Re: Alterar ponteiro do mouse (Rato)

    Mensagem  lindomar.silva 1/6/2021, 00:13

    Exemplo muito bom... usei em uma caixa de texto.
    Me ajudou muito esse!
    Obrigado! Laughing

    Conteúdo patrocinado


    Alterar ponteiro do mouse (Rato) Empty Re: Alterar ponteiro do mouse (Rato)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:49