Differenze tra le versioni di "Intercettare il tasto premuto del mouse"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: Per sapere quale tasto del mouse è stato premuto, bisogna intercettare il numero identificativo ottenuto dallo ''stato'' del mouse. <BR>Lo ''stato'' del mouse viene comunicato dalla p...) |
|||
(3 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 1: | Riga 1: | ||
− | Per sapere quale tasto del mouse è stato premuto, | + | Per sapere quale tasto del mouse è stato premuto, possiamo farlo intercettando il numero identificativo ottenuto dallo ''stato'' del mouse. |
<BR>Lo ''stato'' del mouse viene comunicato dalla proprietà ''Button'' di ''Mouse''. | <BR>Lo ''stato'' del mouse viene comunicato dalla proprietà ''Button'' di ''Mouse''. | ||
<BR>In particolare: | <BR>In particolare: | ||
− | <BR> | + | <BR>Mouse.Button = <FONT color=darkred>''1''</font> è uguale a Mouse.<FONT color=darkred>''Left''</font> |
− | <BR> | + | <BR>Mouse.Button = <FONT color=darkred>''4''</font> è uguale a Mouse.<FONT color=darkred>''Middle''</font> |
− | <BR> | + | <BR>Mouse.Button = <FONT color=darkred>''2''</font> è uguale a Mouse.<FONT color=darkred>''Right''</font> |
Esempio: | Esempio: | ||
Riga 18: | Riga 18: | ||
Print "E' stato premuto il tasto \"Centrale\" (o la rotellina) !" | Print "E' stato premuto il tasto \"Centrale\" (o la rotellina) !" | ||
End Select | End Select | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | oppure intercettando il valore booleano ''True'' delle tre proprietà: | ||
+ | <BR>''Mouse.Left | ||
+ | <BR>''Mouse.Middle | ||
+ | <BR>''Mouse.Right | ||
+ | '''Public''' Sub Form_MouseDown() | ||
+ | |||
+ | With Mouse | ||
+ | If .Left Then Print "Sinistro" | ||
+ | If .Middle Then Print "Centrale" | ||
+ | If .Right Then Print "Destro" | ||
+ | End With | ||
'''End''' | '''End''' |
Versione delle 09:30, 1 mag 2016
Per sapere quale tasto del mouse è stato premuto, possiamo farlo intercettando il numero identificativo ottenuto dallo stato del mouse.
Lo stato del mouse viene comunicato dalla proprietà Button di Mouse.
In particolare:
Mouse.Button = 1 è uguale a Mouse.Left
Mouse.Button = 4 è uguale a Mouse.Middle
Mouse.Button = 2 è uguale a Mouse.Right
Esempio:
Public Sub Form_MouseDown() Select Case Mouse.Button Case 1 Print "E' stato premuto il tasto \"Sinistro\" !" Case 2 Print "E' stato premuto il tasto \"Destro\" !" Case 4 Print "E' stato premuto il tasto \"Centrale\" (o la rotellina) !" End Select End
oppure intercettando il valore booleano True delle tre proprietà:
Mouse.Left
Mouse.Middle
Mouse.Right
Public Sub Form_MouseDown() With Mouse If .Left Then Print "Sinistro" If .Middle Then Print "Centrale" If .Right Then Print "Destro" End With End