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

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

      Data/hora atual: 20/6/2021, 01:54