Intercettare il tasto premuto del mouse: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
Nessun oggetto della modifica
 
Riga 3: Riga 3:
<BR>In particolare:
<BR>In particolare:
<BR>Mouse.Button = <FONT color=darkred>''1''</font> è uguale a Mouse.<FONT color=darkred>''Left''</font>
<BR>Mouse.Button = <FONT color=darkred>''1''</font> è uguale a Mouse.<FONT color=darkred>''Left''</font>
<BR>Mouse.Button = <FONT color=darkred>''4''</font> è uguale a Mouse.<FONT color=darkred>''Middle''</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 = <FONT color=darkred>''2''</font> è uguale a Mouse.<FONT color=darkred>''Right''</font>
<BR>Mouse.Button = <FONT color=darkred>''2''</font> è uguale a Mouse.<FONT color=darkred>''Right''</font>


Riga 10: Riga 10:
  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 3 to 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

Versione attuale delle 09: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"