Newsgroup: it.comp.lang.visual-basic
Titolo: Costanti

In un modulo devo dichiarare delle costanti che rappresentano i caratteri di
controllo per gestire la stampante.
Il Genio di VB5 pero' se nelle dichiarazioni inserisco la riga
Public const Italic_ON = Chr$(27) & Chr$(34)
Non l'accetta dicendomi che devo inserire una espressione costante.
Come mai? Se chiamo e funzioni Chr passando solo parametri costanti e per
valore, perche' si arrabbia cosi' tanto? Le avessi scritte io queste
funzioni potrei anche capire.. ma sono sue!

 wrote


Prova ad utilizzare le costanti di VB per definire una tua
vbKeyLButton 0x1 Pulsante sinistro del mouse
vbKeyRButton 0x2 Pulsante destro del mouse
vbKeyCancel 0x3 Tasto ANNULLA
vbKeyMButton 0x4 Pulsante centrale del mouse
vbKeyBack 0x8 Tasto BACKSPACE
vbKeyTab 0x9 Tasto TAB
vbKeyClear 0xC Tasto CANCELLA
vbKeyReturn 0xD Tasto INVIO
vbKeyShift 0x10 Tasto MAIUSC
vbKeyControl 0x11 Tasto CTRL
vbKeyMenu 0x12 Tasto MENU
vbKeyPause 0x13 Tasto PAUSA
vbKeyCapital 0x14 Tasto BLOC MAIUSC
vbKeyEscape 0x1B Tasto ESC
vbKeySpace 0x20 Tasto BARRA SPAZIATRICE
vbKeyPageUp 0x21 Tasto PGSU
vbKeyPageDown 0x22 Tasto PGGIŮ
vbKeyEnd 0x23 Tasto FINE
vbKeyHome 0x24 Tasto HOME
vbKeyLeft 0x25 Tasto FRECCIA SINISTRA
vbKeyUp 0x26 Tasto FRECCIA SU
vbKeyRight 0x27 Tasto FRECCIA DESTRA
vbKeyDown 0x28 Tasto FRECCIA GIŮ
vbKeySelect 0x29 Tasto SELEZIONA
vbKeyPrint 0x2A Tasto STAMP
vbKeyExecute 0x2B Tasto ESEGUI
vbKeySnapshot 0x2C Tasto SNAPSHOT
vbKeyInsert 0x2D Tasto INS
vbKeyDelete 0x2E Tasto CANC
vbKeyHelp 0x2F Tasto GUIDA
vbKeyNumlock 0x90 Tasto BLOC NUM
vbKeyA 65 Tasto A
vbKeyB 66 Tasto B
vbKeyC 67 Tasto C
vbKeyD 68 Tasto D
vbKeyE 69 Tasto E
vbKeyF 70 Tasto F
vbKeyG 71 Tasto G
vbKeyH 72 Tasto H
vbKeyI 73 Tasto I
vbKeyJ 74 Tasto J
vbKeyK 75 Tasto K
vbKeyL 76 Tasto L
vbKeyM 77 Tasto M
vbKeyN 78 Tasto N
vbKeyO 79 Tasto O
vbKeyP 80 Tasto P
vbKeyQ 81 Tasto Q
vbKeyR 82 Tasto R
vbKeyS 83 Tasto S
vbKeyT 84 Tasto T
vbKeyU 85 Tasto U
vbKeyV 86 Tasto V
vbKeyW 87 Tasto W
vbKeyX 88 Tasto X
vbKeyY 89 Tasto Y
vbKeyZ 90 Tasto Z
vbKey0 48 Tasto 0
vbKey1 49 Tasto 1
vbKey2 50 Tasto 2
vbKey3 51 Tasto 3
vbKey4 52 Tasto 4
vbKey5 53 Tasto 5
vbKey6 54 Tasto 6
vbKey7 55 Tasto 7
vbKey8 56 Tasto 8
vbKey9 57 Tasto 9
vbKeyNumpad0 0x60 Tasto 0
vbKeyNumpad1 0x61 Tasto 1
vbKeyNumpad2 0x62 Tasto 2
vbKeyNumpad3 0x63 Tasto 3
vbKeyNumpad4 0x64 Tasto 4
vbKeyNumpad5 0x65 Tasto 5
vbKeyNumpad6 0x66 Tasto 6
vbKeyNumpad7 0x67 Tasto 7
vbKeyNumpad8 0x68 Tasto 8
vbKeyNumpad9 0x69 Tasto 9
vbKeyMultiply 0x6A Tasto SEGNO DI MOLTIPLICAZIONE (*)
vbKeyAdd 0x6B Tasto SEGNO PIŮ (+)
vbKeySeparator 0x6C Tasto INVIO
vbKeySubtract 0x6D Tasto SEGNO MENO (-)
vbKeyDecimal 0x6E Tasto SEPARATORE DECIMALE (.)
vbKeyDivide 0x6F Tasto SEGNO DI DIVISIONE (/) costante, dovrebbe funzionare
vbKeyF1 0x70 Tasto F1
vbKeyF2 0x71 Tasto F2
vbKeyF3 0x72 Tasto F3
vbKeyF4 0x73 Tasto F4
vbKeyF5 0x74 Tasto F5
vbKeyF6 0x75 Tasto F6
vbKeyF7 0x76 Tasto F7
vbKeyF8 0x77 Tasto F8
vbKeyF9 0x78 Tasto F9
vbKeyF10 0x79 Tasto F10
vbKeyF11 0x7A Tasto F11
vbKeyF12 0x7B Tasto F12
vbKeyF13 0x7C Tasto F13
vbKeyF14 0x7D Tasto F14
vbKeyF15 0x7E Tasto F15
vbKeyF16 0x7F Tasto F16

Anche a me sembra una stupidaggine, ma VB (almeno: fino al 5) non lo
consente. Devi fare cosi':
1) definire Public Italic_ON as String
2) scrivere una routine del tipo:
Public Sub Italic_ON_Default
Italic_ON= CHR$(27) & CHR$(34)
End Sub
3) chiamarla nel Sub Main()
Ciao e buon Natale
