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.
(Creata pagina con "Normalmente, affinché sia sollevato l'evento "''_MouseMove( )''" di un Oggetto grafico, bisogna spostare il mouse su tale Oggetto, tenendo premuto un tasto del mouse. <BR>Per...") |
|||
| Riga 5: | Riga 5: | ||
Mostriamo un semplice esempio, usando come Oggetto il ''Form'' principale. | Mostriamo un semplice esempio, usando come Oggetto il ''Form'' principale. | ||
<BR>Verranno intercettati i valori .X e .Y del Mouse (ovviamente senza tenere premuto su alcun tasto) al suo spostarsi sul ''Form'': | <BR>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() | '''Public''' Sub Form_MouseMove() | ||
Versione delle 09:01, 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
