Intercettare il tasto premuto del mouse: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
(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...)
 
Nessun oggetto della modifica
 
(5 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
<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

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"