Newsgroup: it.comp.lang.visual-basic
Titolo: Font UNICODE

Ho bisogno di utilizzare il font : Arial UNICODE MS
Ma ho difficoltà a chiamare i caratteri che mi servono (i simboli
dell'alfabeto greco che ricorrono nei software di matematica e
ingegneria)
Allego qui il codice che ho fatto per provare la visualizzazione.
--------------------------------
Private Sub Command1_Click()
    Dim j, x, y As Integer
    FontName = "Arial UNICODE MS"
    x = -300: y = 0 '500
    j0 = 0 ' caratteri da 0 a 999
    'j0 = 1000 ' caratteri da 1000 a 1999
    'j0 = 2000' caratteri da 2000 a 2999
    For j = 0 To 999
        jk = j0 + j
        If Int(j / 50) = j / 50 Then y = 50: x = x + 700
        y = y + 180
        CurrentX = x
        CurrentY = y
        'If Asc(ChrW(jk)) = 1641 Then MsgBox Str(Asc(ChrW(jk)))
        If Asc(ChrW(jk)) <> 63 Then FontBold = True Else FontBold =
False
        Print Str(jk) + "=" + ChrW(jk)
    Next j
End Sub
Private Sub Form_Click()
    End
End Sub
Private Sub Form_Load()
    Width = Screen.Width
    Height = Screen.Height
    Top = 0
    Left = 0
    'Un CLICK sul Form per USCIRE--------------------
End Sub
---------------------------------------------------------------------------
ma, evidentemente per visualizzare i caratteri non è giusto utilizzare
CHRW(N)
 Sapete dirmi cosa devo usare?
Grazie



 CHRW(N)
Ti manca di dire al Vb che deve farlo :-)
Me.Font.Charset = 161 ' per il greco
Riferimento: 
http://www.example-code.com/vb/vbUnicode1.asp
Tra l'altro, hai messo su un codice che mi ci � voluto un bel po'
per capire cosa facesse. Tanto per rompere un po' i cotiledoni
a qualcuno, visto che oggi sto un tantino scazzato :-P, ti parlo
dei primi problemi che vedo:
* le variabili sono dichiarate a $PENE_DI_SEGUGIO, la riga
    Dim j, x, y, j0, jk As Integer
ne dichiara una sola come integer, le altre sono Variant.
* poi, jk e j0 non sono dichiarate. La *PRIMA*, *PRIMA*, riga
di un programma VB, e una delle pi� importanti � "Option Explicit".
* X e Y sono inutili, avresti potuto lavorare direttamente sulla
CurrentX e CurrentY, ma questo � un problema tuo, se vuoi
perdere tempo :-P
* la riga
    FontName = "Arial"
non � referenziata, e la sintassi FontName � deprecata. Vero che
per default prende come riferimento il form corrente, ma � sempre
meglio specificarlo esplicitamente, e usare la nuova (dal 1997 :-P)
sintassi che prevede Me.Font.[attributo]: 
Me.Font.Name
 = "Arial".
E adesso vado a prendere una merendina al maledetto distributore
automatico di schifezze. Buon divertimento :-)
Bye, G. 

 per default prende come riferimento il form corrente, ma è sempre


Vedo che nessuno mi risponde, neppure Paperino
Forse il mio problema è troppo stupido oppure nessuno conosce i
problemi collegati ai fonts.
In ogni caso pongo il problema diversamente:
Per la programmazione e la visualizzazione si fa riferimento alle
Screen.fonts
per le stampe si utilizzano le Printer.Fonts e purtroppo non sono gli
stessi files.
Infatti, ad esempio,  la Printer.Fonts comprende "Arial Greek" e
"Courier new Greek" che non compaiono nelle Screen.Fonts
Tuttavia in alcuni casi (es per i form) è possibile assegnare una
Printer.Font e scrivere con questa.
Per le griglie MSFG non è possibile assegnare un Font in corsa e ci si
deve accontentare di quello che offre la proprietà FontName in fase di
progettazione e qui ci sono solo le Screen.Fonts in run time è
possibile solo modificare la font per una cella ma sempre che sia una
Screen.Font altrimenti viene ignorata.
Ora chiedo:
Sapete dirmi dove risiedono le Screen.Fonts e le Printer.Fonts ?
Sono files delleo stesso tipo ?  TTF ?
Grazie e saluti