Modificare l'aspetto del cursore del mouse

E' possibile modificare l'aspetto del cursore (o anche detto puntatore) del mouse sia quando il cursore è all'interno di una finestra dell'applicazione Gambas, sia quando esso è al di fuori.

Modificare l'aspetto del cursore del mouse quando esso è all'interno di una finestra dell'applicazione Gambas

Quando il cursore del mouse è all'interno di una finestra dell'applicazione Gambas, ne può essere modificato l'aspetto mediante le risorse di Gambas medesimo.

Vi sono almeno due modalità.

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

Modificare l'aspetto del cursore del mouse quando esso è all'esterno di qualsiasi finestra dell'applicazione Gambas

Quando il cursore del mouse è all'esterno di una qualsiasi finestra dell'applicazione Gambas, il suo aspetto può essere modificato mediante le funzioni esterne del API di X11.

Paragrafo in costruzione