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

Da Gambas-it.org - Wikipedia.
 
(4 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
−
Per sapere quale tasto del mouse è stato premuto, bisogna intercettare il numero identificativo ottenuto dallo ''stato'' del mouse.
+
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>''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>''3''</font> o <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:
  
−
  '''Public''' Sub Form_MouseDown()
+
  Public Sub Form_MouseDown()
 
   
 
   
−
    Select Case Mouse.Button
+
  Select Case Mouse.Button
−
      Case 1
+
    Case 1
−
        Print "E' stato premuto il tasto \"Sinistro\" !"
+
      Print "E' stato premuto il tasto \"Sinistro\" !"
−
      Case 2
+
    Case 2
−
        Print "E' stato premuto il tasto \"Destro\" !"
+
      Print "E' stato premuto il tasto \"Destro\" !"
−
      Case 4
+
    Case 3 to 4
−
        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'''
+
  End
−
 
+
oppure, meglio, intercettando il valore booleano ''True'' delle tre proprietà:
−
 
+
<BR>''Mouse.Left
−
o, quindi, anche così:
+
<BR>''Mouse.Middle
−
'''Public''' Sub Form_MouseDown()
+
<BR>''Mouse.Right
 +
Public Sub Form_MouseDown()
 
   
 
   
 
   With Mouse
 
   With Mouse
Riga 31: Riga 32:
 
   End With
 
   End With
 
   
 
   
−
  '''End'''
+
  End

Versione attuale delle 08:48, 7 giu 2024

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 = 3 o 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 3 to 4
     Print "E' stato premuto il tasto \"Centrale\" (o la rotellina) !"
 End Select

End

oppure, meglio, 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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Intercettare_il_tasto_premuto_del_mouse&oldid=36762"