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


    Ponteiro Mouse no Formulário

    avatar
    Marinho
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 57
    Registrado : 01/01/2012

    Ponteiro Mouse no Formulário Empty Ponteiro Mouse no Formulário

    Mensagem  Marinho 7/2/2012, 23:35

    Boas
    Gostaria de partilhar com o Forum
    Depois de uma pesquisa encontrei isto para transformar o cursor em "mãozinhas" e outros.
    Autor desconheço, mas dá jeito. Aqui vai:

    Em primeiro lugar é criar um Módulo e inserir o código seguinte:

    Option Compare Database
    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

    'No evento Ao mover mouse da caixa de texto, digite:
    '=MouseCursor(32649) => altera para formato de mão

    Ivan Carlo gosta desta mensagem


      Data/hora atual: 21/11/2024, 12:55