Newsgroup: it.comp.lang.visual-basic
Titolo: (ANSI - Unicode)...problemi

sull'evento keydown vorrei associare i tasti cursore....come posso fare?
Dove potrei trovare delle tabelle ANSI?
...non so se si è capito ma ha appena incominciato.....grazie!!!!
;-)))))))))))))))))
Miano

...non so se si č capito ma ha appena incominciato.....grazie!!!!
Per l'evento KeyDown non ti servono i codici ANSI.
KeyDown riceve come argomento il codice del tasto fisico premuto e non del
simbolo.
Direttamente dall'help di VB (guarda se ti bastano, ciao)
Costanti dei codici dei tasti
Codici dei tasti
Costante Valore Descrizione
vbKeyLButton 1 Pulsante sinistro del mouse
vbKeyRButton 2 Pulsante destro del mouse
vbKeyCancel 3 Tasto ANNULLA
vbKeyMButton 4 Pulsante centrale del mouse
vbKeyBack 8 Tasto BACKSPACE
vbKeyTab 9 Tasto TAB
vbKeyClear 12 Tasto CANCELLA
vbKeyReturn 13 Tasto INVIO
vbKeyShift 16 Tasto MAIUSC
vbKeyControl 17 Tasto CTRL
vbKeyMenu 18 Tasto MENU
vbKeyPause 19 Tasto PAUSA
vbKeyCapital 20 Tasto BLOC MAIUSC
vbKeyEscape 27 Tasto ESC
vbKeySpace 32 BARRA SPAZIATRICE
vbKeyPageUp 33 Tasto PGSU
vbKeyPageDown 34 Tasto PGGIŮ
vbKeyEnd 35 Tasto FINE
vbKeyHome 36 Tasto HOME
vbKeyLeft 37 Tasto freccia SINISTRA
vbKeyUp 38 Tasto freccia SU
vbKeyRight 39 Tasto freccia DESTRA
vbKeyDown 40 Tasto freccia GIŮ
vbKeySelect 41 Tasto SELECT (selezione)
vbKeyPrint 42 Tasto STAMP
vbKeyExecute 43 Tasto EXECUTE (esecuzione)
vbKeySnapshot 44 Tasto SNAPSHOT
vbKeyInsert 45 Tasto INS
vbKeyDelete 46 Tasto CANC
vbKeyHelp 47 Tasto della Guida
vbKeyNumlock 144 Tasto BLOC NUM
I tasti da KeyA a KeyZ sono uguali ai tasti equivalenti ASCII: da 'A' a 'Z'
Costante Valore Descrizione
vbKeyA 65 A
vbKeyB 66 B
vbKeyC 67 C
vbKeyD 68 D
vbKeyE 69 E
vbKeyF 70 F
vbKeyG 71 G
vbKeyH 72 H
vbKeyI 73 I
vbKeyJ 74 J
vbKeyK 75 K
vbKeyL 76 L
vbKeyM 77 M
vbKeyN 78 N
vbKeyO 79 O
vbKeyP 80 P
vbKeyQ 81 Q
vbKeyR 82 R
vbKeyS 83 S
vbKeyT 84 T
vbKeyU 85 U
vbKeyV 86 V
vbKeyW 87 W
vbKeyX 88 X
vbKeyY 89 Y
vbKeyZ 90 Z
I tasti da Key0 a Key9 sono uguali ai tasti equivalenti ASCII: da '0' a '9'
Costante Valore Descrizione
vbKey0 48 0
vbKey1 49 1
vbKey2 50 2
vbKey3 51 3
vbKey4 52 4
vbKey5 53 5
vbKey6 54 6
vbKey7 55 7
vbKey8 56 8
vbKey9 57 9
Tasti del tastierino numerico
Costante Valore Descrizione
vbKeyNumpad0 96 0
vbKeyNumpad1 97 1
vbKeyNumpad2 98 2
vbKeyNumpad3 99 3
vbKeyNumpad4 100 4
vbKeyNumpad5 101 5
vbKeyNumpad6 102 6
vbKeyNumpad7 103 7
vbKeyNumpad8 104 8
vbKeyNumpad9 105 9
vbKeyMultiply 106 SEGNO DI MOLTIPLICAZIONE (*)
vbKeyAdd 107 SEGNO PIŮ (+)
vbKeySeparator 108 INVIO (tastierino numerico)
vbKeySubtract 109 SEGNO MENO (-)
vbKeyDecimal 110 SEPARATORE DECIMALE(.)
vbKeyDivide 111 SEGNO DI DIVISIONE (/)
Tasti funzione
Costante Valore Descrizione
vbKeyF1 112 F1
vbKeyF2 113 F2
vbKeyF3 114 F3
vbKeyF4 115 F4
vbKeyF5 116 F5
vbKeyF6 117 F6
vbKeyF7 118 F7
vbKeyF8 119 F8
vbKeyF9 120 F9
vbKeyF10 121 F10
vbKeyF11 122 F11
vbKeyF12 123 F12
vbKeyF13 124 F13
vbKeyF14 125 F14
vbKeyF15 126 F15
vbKeyF16 127 F16

 wrote in message 7i72vc$s04$1...@nslave1.tin.it...
:
:
: Per l'evento KeyDown non ti servono i codici ANSI.
: KeyDown riceve come argomento il codice del tasto fisico premuto e non del
: simbolo.
:
:
ciao Zanna,
grazie per le Tabelle, ho provato a fare come dici tu, ma se scrivo:
Private Sub cmdMischia_KeyDown(KeyCode As Integer, Shift As Integer)
     If KeyCode = vbKeyA Then cmdMischia.Caption = "giusto"
     End Sub
...funziona. Non funziona però se scrivo ..vbKeyDown....perchè, invece di
leggere il comando, si sposta il fuoco sul pulsante sotto. Puoi darmi una
mano?
Speriamo di essermi fatto capire...ciao e grazie.

Speriamo di essermi fatto capire...ciao e grazie.
A questo non avevo pensato...
E' un bel casino, non penso proprio ci sia una soluzione a questo, a meno
(forse) di un bel subclassing, ma non lo consiglio in VB...
Ciao

 (forse) di un bel subclassing, ma non lo consiglio in VB...
Scusate se dico sciocchezze ma non ho seguito attentamente. Questo non
potrebbe andar bene?
Private Sub cmdMischia_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = [quello che vuoi] Then
    Let cmdMischia.Caption = "giusto"
    Let KeyCode = 0
    Let Shift = 0
  Else
  End If
End Sub
--
Ciao.
Maurizio
http://www.murialdo.it/it_lang_vb
Sito Comune di news:it.comp.lang.visual-basic