Path: csiph.com!news.mixmin.net!weretis.net!feeder4.news.weretis.net!feeder5.news.weretis.net!news.solani.org!.POSTED!not-for-mail From: Greg Newsgroups: it.comp.lang.visual-basic Subject: E' cambiato Shift? Date: Mon, 26 Nov 2018 10:24:01 +0100 Organization: solani.org Lines: 20 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-15"; format=flowed Content-Transfer-Encoding: 8bit X-Trace: solani.org 1543224243 2754 127.0.0.43 (26 Nov 2018 09:24:03 GMT) X-Complaints-To: abuse@news.solani.org NNTP-Posting-Date: Mon, 26 Nov 2018 09:24:03 +0000 (UTC) X-Newsreader: MesNews/1.08.06.00-it Cancel-Lock: sha1:i2kv3GTXFJMDeCKXaVa7l1Pe/ns= X-User-ID: eJwFwQERACAIA8BKKBsecQBd/wj+02PFHAQDFBX9QKyTpAyVKG9MtTavvyMiCaMy59pWfxTKEQs= Xref: csiph.com it.comp.lang.visual-basic:19467 Avevo empiricamente trovato un modo per sapere quando Control Shift sono premuti contemporaneamente: il valore di Shift era 1, ed è stato cosi per anni, adesso da qualche giorno deve essere cambiato qualcosa perchè Shift vale 3. Tasto shift premuto da solo vale 1 Tasto Control premuto da solo vale 2 Premuti insieme il valore è 3. Ha anche una sua logica, come mi ero adeguato prima mi sono riadeguato anche adesso, corretto e ricompilato ma mi chiedo cosa sia successo. Private Sub ListAnno_KeyUp(KeyCode As Integer, Shift As Integer) If Shift = 3 Then ST = ST & Chr(KeyCode) End If Me.Caption = "Shift:" & Shift & "-" & ST -- Greg