Differenze tra le versioni di "Sapere se un oggetto, spostato sul Form con il mouse, è al di sopra di un altro oggetto"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per sapere se un ''widget'', spostato con il mouse sul ''Form'', si trova al di sopra di un altro ''widget'', indicato nel codice, si può utilizzare il Metodo ''Mouse.Inside(...") |
|||
Riga 17: | Riga 17: | ||
'''Public''' Sub Button1_MouseMove() | '''Public''' Sub Button1_MouseMove() | ||
− | With | + | With Button1 |
.X = .X + Mouse.X - spx | .X = .X + Mouse.X - spx | ||
.Y = .Y + Mouse.Y - spy | .Y = .Y + Mouse.Y - spy |
Versione delle 13:39, 2 feb 2020
Per sapere se un widget, spostato con il mouse sul Form, si trova al di sopra di un altro widget, indicato nel codice, si può utilizzare il Metodo Mouse.Inside( ).
Mostriamo un semplice esempio. Bisognerà porre sul form un Panel, una Label e un Button (che rappresenta l'oggetto che sarà spostato con il mouse).
Private spx As Short Private spy As Short Public Sub Button1_MouseDown() spx = Mouse.X spy = Mouse.Y End Public Sub Button1_MouseMove() With Button1 .X = .X + Mouse.X - spx .Y = .Y + Mouse.Y - spy End With ' Sarà mostrato nella "Label", se è vero o falso che il Button è entrato nella "Label" medesima: Label1.Text = Str(Mouse.Inside(Label1)) End