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
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
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>''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à:
 
oppure intercettando il valore booleano delle tre proprietà:
<BR>''Mouse.Left
<BR>''Mouse.Left
<BR>''Mouse.Middle
<BR>''Mouse.Middle
<BR>''Mouse.Right
<BR>''Mouse.Right
  '''Public''' Sub Form_MouseDown()
  Public Sub Form_MouseDown()
   
   
   With Mouse
   With Mouse
Riga 34: Riga 32:
   End With
   End With
   
   
  '''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"