Differenze tra le versioni di "Spostare un Form con il mouse sulla Scrivania"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per spostare lungo la superficie della Scrivania (''Desktop'') con il mouse un "Form", ossia una finestra di un programma Gambas, si dovrà fare ovviamente riferimento allo sc...") |
|||
| Riga 7: | Riga 7: | ||
'''Public''' Sub Form_MouseDown() | '''Public''' Sub Form_MouseDown() | ||
| − | x = Mouse | + | x = Mouse.X |
| − | y = Mouse | + | y = Mouse.Y |
'''End''' | '''End''' | ||
| Riga 17: | Riga 17: | ||
'''End''' | '''End''' | ||
| + | Questo codice è valido anche se il ''Form'' è privo di bordi, ossia se alla Proprietà ".Border" del ''Form'' sia stata assegnata la Costante per non disegnare i bordi del ''Form'': | ||
| + | Me.Border = Border.None | ||
Versione delle 12:16, 23 ago 2022
Per spostare lungo la superficie della Scrivania (Desktop) con il mouse un "Form", ossia una finestra di un programma Gambas, si dovrà fare ovviamente riferimento allo schermo.
Si potrà adottare questo semplice codice:
Private x As Short Private y As Short Public Sub Form_MouseDown() x = Mouse.X y = Mouse.Y End Public Sub Form_MouseMove() Me.Move(Mouse.ScreenX - x, Mouse.ScreenY - y) End
Questo codice è valido anche se il Form è privo di bordi, ossia se alla Proprietà ".Border" del Form sia stata assegnata la Costante per non disegnare i bordi del Form:
Me.Border = Border.None
