MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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 em 15/7/2011, 20: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 100%

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

    Alterar ponteiro do mouse (Rato) Empty Show de Bola...

    Mensagem  muco_jcs em 11/5/2016, 18:49

    Fácil de fazer. Funcionou 100%.... muito obrigado!

      Data/hora atual: 3/12/2020, 20:57