MouseIcon

<< Clique para Mostrar o Sumário >>

 

MouseIcon

Figura 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

Esta página foi útil?