[Risolto] Identificazione tasti

[tornu]

Buonasera a tutti,
ho neccessità di identificare in modo univoco il tasto + della tastiera
dal tasto + del tastierino numerico.
Ho provato in tutti i modi con la classe Key ma non ne sono venuto a capo.
Con Key.Code mi viene restituito il codice 43 identico per entrambi i tasti,
quindi non posso distinguerli. Ipotizzo che esista nella classe una combinazione
di proprietà che mi permetta di identificare separatamente i due tasti, ma non
riesco a trovarla.

[Gianluigi]

Una cosa così potrebbe andare bene?:

Codice: [Seleziona]

Public Sub Form_KeyPress()
  
  If Key.Code = 43 Then
    If Key.State = 0 Then
      Print "Tasto + da tastiera"
    Else
      Print "Tasto + da tastierino"
    Endif
  Endif
  
End

 

[tornu]

Ciao Gianluigi,
ho provato il codice che hai postato, ma premendo il + da tastiera o il + da tastierino numerico
la Console restituisce sempre: Tasto + da tastiera

[vuott]

A me invece il codice di Gianluigi funziona perfettamente.

[tornu]

Ciao vuott,
non so cosa dirti. L'unica cosa che mi viene in mente è questa (ma penso sia una stronz...),
io stò usando un portatile, ma non credo ci sia differenza con una tastiera per pc desktop.
Provando il codice di Gianluigi o notato che se imposto Key.State = 1 mi identifica il tasto
+ del tastierino ma non quello da tastiera.
Quale potrebbe essere il motivo per il quale a me non funziona....

[kicco]

 

Ciao Gianluigi,
ho provato il codice che hai postato, ma premendo il + da tastiera o il + da tastierino numerico
la Console restituisce sempre: Tasto + da tastiera

anche a me dice sempre che è da tastiera! (Ubuntu16.04 + Gambas daily)
  

[tornu]

Grazie kicco per la prova.
Mi stavo preoccupando dopo la risposta di vuott che magari avessi fatto qualche cavolata,
anche se vista la semplicità del codice postato da Gianluigi.... ma una svista può sempre
capitare.
Ora siamo 2 a 2 (a due funziona, a due no), dove cavolo può essere l'inghippo 

[kicco]

 

dove cavolo può essere l'inghippo 

...la mia è una tastiera USB.
La vostra?
 

[tornu]

Come già detto uso un portatile con tastierino numerico

[Gianluigi]

Io ho provato su due differenti computers con tastiera USB e funziona.

Potreste fare questa prova:

Create un nuovo progetto grafico gb.gui.qt e inserite questo codice:

Codice: [Seleziona]

Public Sub Form_KeyPress()

  Print Key.State  

End

Potete postare cosa vi risponde la console sui diversi "+"?

 

[kicco]

Potete postare cosa vi risponde la console sui diversi "+"?

+ tastiera = 0
+ tastierino = 536870912
 

[Gianluigi]

 

E allora mi puoi spiegare perché il mio codice a te non funzionerebbe? 

 

[Gianluigi]

Giusto per scrupolo ho provato anche sul portatile e funziona pure li con i codici scritti da Kicco.

 

[kicco]

E allora mi puoi spiegare perché il mio codice a te non funzionerebbe? 

 

...hai ragione, non ho una spiegazione, mi attenevo ai fatti!
È come se 536870912 venisse azzerato...
Problema di formato? Ma perchè solo per me e tornu?
 

[Gianluigi]

E allora mi puoi spiegare perché il mio codice a te non funzionerebbe? 

 

...hai ragione, non ho una spiegazione, mi attenevo ai fatti!
È come se 536870912 venisse azzerato...
Problema di formato? Ma perchè solo per me e tornu?
 

Sempre su un progetto gb.gui.qt, prova questo codice:

Codice: [Seleziona]

Public Sub Form_KeyPress()

  Dim iState As Integer = Key.State
  Dim iCode As Integer = Key.Code

  If iCode = 43 Then
    If iState = 0 Then
      Print "Tasto + da tastiera"
    Else
      Print "Tasto + da tastierino"
    Endif
  Endif

End

e dimmi se funge