Differenze tra le versioni di "Sollevare l'Evento MouseMove() di un Oggetto grafico spostando su di esso il mouse senza tenere premuto un suo tasto"
Da Gambas-it.org - Wikipedia.
| Riga 7: | Riga 7: | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | Me.Tracking = True | + | Me<FONT Color=#B22222>.Tracking = True</font> |
'''End''' | '''End''' | ||
Versione delle 09:02, 9 giu 2020
Normalmente, affinché sia sollevato l'evento "_MouseMove( )" di un Oggetto grafico, bisogna spostare il mouse su tale Oggetto, tenendo premuto un tasto del mouse.
Per sollevare quel medesimo Evento senza la necessità di tenere premuto su un tasto del mouse, bisogna assegnare il valore True alla Proprietà ".Tracking" dell'Oggetto grafico, se posseduta.
Mostriamo un semplice esempio, usando come Oggetto il Form principale.
Verranno intercettati i valori .X e .Y del Mouse (ovviamente senza tenere premuto su alcun tasto) al suo spostarsi sul Form:
Public Sub Form_Open() Me.Tracking = True End Public Sub Form_MouseMove() Me.Caption = CStr(Mouse.X) & " - " & CStr(Mouse.Y) End
