Differenze tra le versioni di "Modificare l'aspetto del cursore del mouse"

Versione delle 05:17, 25 set 2015

Le modalità per modificare l'aspetto del cursore del mouse sono le seguenti:

Uso della proprietà .Mouse di un oggetto

Vi sono vari oggetti che posseggono la proprietà .Mouse, alla quale va assegnato un valore che rappresenta un particolare aspetto grafico del puntatore del Mouse.
Se il puntatore del Mouse entra all'interno di quell'oggetto, esso muta il suo aspetto in quello stabilito dal valore assegnato alla proprietà .Mouse .

Esempio:

Public Sub Open_Form()

' Se il puntatore del Mouse entra all'interno del Form, muta il suo aspetto in una "croce":
  Me.Mouse = Mouse.Cross

End

Uso della Classe Cursor

La Classe Cursor consente di attribuire al puntatore del Mouse un'immagine.

In particolare, in fase di creazione della variabile di tipo Cursor, va assegnata ad essa una Picture contenente l'immagine che si utilizzerà per il nuovo aspetto del cursore del mouse. Tale variabile, poi, sarà assegnata alla proprietà .Cursor di quegli oggetti, che la supportano, passando con il mouse sui quali, si desidera che l'aspetto del cursore muti.

Poniamo come esempio il caso in cui si vuole che l'aspetto del puntatore muti quando si passa con esso su una TextLabel:

Private cu As Cursor


Public sub Form_Open()

 Dim pc As New Picture
 
' Viene caricata l'immagine da utilizzare per mutare l'aspetto del cursore del mouse:
   pc = pc.Load("/percorso/dell'immagine")  
 
' Viene istanziata la variabile di tipo "Cursor":
   cu = New Cursor(pc)
    
' Viene assegnata la variabile di tipo "Cursor" alla proprietà ".Cursor della "Textlabel",
' per attribuire la nuova immagine al puntatore, quando si passerà con esso sulla "TextLabel":
   TextLabel1.Cursor = cu
 
End

o più brevemente:

Public sub Form_Open()

 Dim pc As New Picture

  TextLabel1.Cursor = New Cursor(pc.Load("/percorso/dell'immagine"))

End