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.
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Normalmente, affinché sia sollevato l'evento "_MouseMove()" di un Oggetto grafico, bisogna spostare il mouse su tale Oggetto, tenendo premuto un tasto del mouse.
+
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 sollevare quel medesimo Evento ''senza'' la necessità di tenere premuto su un tasto del mouse, pertanto al solo semplice passaggio, al solo scorrere del puntatore del mouse sulla superficie del ''Controllo'' grafico in questione, bisogna assegnare il valore "''True'' " alla Proprietà "'''''.Tracking''''' " di tale Oggetto grafico, se da esso posseduta.
+
<BR>Per sollevare quel medesimo Evento ''senza'' la necessità di tenere premuto su un tasto del mouse, pertanto al solo semplice passaggio, al solo scorrere del puntatore del mouse sulla superficie del ''Controllo'' grafico in questione, bisogna assegnare il valore "''True'' " alla Proprietà "'''.Tracking'''" di tale Oggetto grafico, se da esso posseduta. <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
 
 
  
 
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 delle Proprietà ".X" e ".Y" del Mouse al suo spostarsi sul ''Form'' (ovviamente - come già specificato - ciò avverrà senza premere alcun tasto del mouse):
 
<BR>Verranno intercettati i valori delle Proprietà ".X" e ".Y" del Mouse al suo spostarsi sul ''Form'' (ovviamente - come già specificato - ciò avverrà senza premere alcun tasto del mouse):
  '''Public''' Sub Form_Open()
+
  Public Sub Form_Open()
 +
 +
  Me<FONT Color=#B22222>.Tracking = True</font>
 
    
 
    
  Me<FONT Color=#B22222>.Tracking = True</font>
+
End
 
+
   
  '''End'''
 
 
   
 
   
  '''Public''' Sub Form_MouseMove()
+
  Public Sub Form<FONT Color=#B22222>_MouseMove()</font>
 
   
 
   
 
   Me.Text = CStr(Mouse.X) & " - " & CStr(Mouse.Y)
 
   Me.Text = CStr(Mouse.X) & " - " & CStr(Mouse.Y)
 
   
 
   
  '''End'''
+
  End
 +
 
 +
 
 +
 
 +
=Note=
 +
[1] vedere anche le seguenti pagine:
 +
* [[Conoscere le coordinate correnti del mouse sul Form senza tenere premuto un tasto del mouse]]
 +
* [[Conoscere le coordinate correnti del mouse sullo schermo]]

Versione attuale delle 20:57, 1 nov 2023

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, pertanto al solo semplice passaggio, al solo scorrere del puntatore del mouse sulla superficie del Controllo grafico in questione, bisogna assegnare il valore "True " alla Proprietà ".Tracking" di tale Oggetto grafico, se da esso posseduta. [nota 1]

Mostriamo un semplice esempio, usando come Oggetto il Form principale.
Verranno intercettati i valori delle Proprietà ".X" e ".Y" del Mouse al suo spostarsi sul Form (ovviamente - come già specificato - ciò avverrà senza premere alcun tasto del mouse):

Public Sub Form_Open()

 Me.Tracking = True
 
End


Public Sub Form_MouseMove()

 Me.Text = CStr(Mouse.X) & " - " & CStr(Mouse.Y)

End


Note

[1] vedere anche le seguenti pagine: