<< Clique para Mostrar o Sumário >>
MouseIcon |
Esta propriedade atribui uma imagem ao ponteiro do mouse quando este é movido sobre um objeto. Esta propriedade é válida somente quando a propriedade MousePointer está definida como 99 - fmMousePointerCustom.
Um arquivo com imagem pode ser selecionado para o ponteiro do mouse de duas formas: através da Lista de Propriedades (extensões .cur ou .ico) ou via scripts, utilizando-se a função LoadPicture para especificar o caminho e o nome do arquivo que contém o ícone personalizado (somente arquivos com a extensão .cur). Exemplo:
Sub CommandButton1_Click()
' Atribuindo o item 99 - fmMousePointerCustom à propriedade
' para que ela aceite a personalização do ícone do mouse
Screen.Item("CheckBox1").MousePointer = 99
Screen.Item("CheckBox1").MouseIcon = LoadPicture("c:\a.cur")
End Sub