Differenze tra le versioni di "Intercettare il tasto premuto del mouse"

Da Gambas-it.org - Wikipedia.
Riga 2: Riga 2:
 
<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>''Mouse.Button.Left = <FONT color=darkred>1</font>''
+
<BR>Mouse.Button = <FONT color=darkred>''1''</font> è uguale a Mouse.<FONT color=darkred>''Left''</font>
<BR>''Mouse.Button.Middle = <FONT color=darkred>4</font>''
+
<BR>Mouse.Button = <FONT color=darkred>''4''</font> è uguale a Mouse.<FONT color=darkred>''Middle''</font>
<BR>''Mouse.Button.Right = <FONT color=darkred>2</font>''
+
<BR>Mouse.Button = <FONT color=darkred>''2''</font> è uguale a Mouse.<FONT color=darkred>''Right''</font>
  
 
Esempio:
 
Esempio:

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