Newsgroup: it.comp.lang.visual-basic
Titolo: CHE CARATTERE

Per un software tecnico mi serve una font che abbia oltre i caratteri
normali anche più lettere dell'alfabeto greco
 (sigma e tau generalmente mancanti)
al posto di altri caratteri particolari che non si usano
la Font MS Sans Serif potrebbe essere modificata come detto??
Per le posizioni da 191 a 199 nel set di caratteri
si potrebbero inserire alfa, beta, delta, gamma, Pgreco, sigma, tau e ro
????
al posto di altri simboli che non si usano quasi mai???
Grazie
Tommaso

 ha scritto

symbol non basta ?
per un arial greco:
http://www.dolnet.gr/greek.htm


Newsgroup: it.comp.lang.visual-basic
Data invio: sabato 16 dicembre 2000 20.32
Oggetto: Re: CHE CARATTERE

non ho ancora visto l'Arial Greco
ma voglio spiegarmi meglio
potrai dirmi se mi sono imbranato o effettivamente il problema c'è.
Io devo scrivere :
SIGMAf=500 Kg/cmq
TAUmax=4 Kg/cmq
(con SIGMA e TAU lettere greche)
Con un solo font non riesco a scrivere questo testo
in quanto dovrei scrivere
per es.
miastringa = chr(NNN) & "f=" & str(variabile)  & "Kg/cmq."
lbl.caption=miastringa;  print miastringa, ecc.......
il carattere NNN e nnn corrispondente alle lettere greche non sono previste
nel set di caratteri dei font
 (non  conosco tutte le font  ma non voglio neppure andare su quelli che non
mi piaccioni)
Il Ms Sans Serif, proposto da tutti i controlli mi va bene, ma non ha i
caratteri che mi servono.
Allora;
poichè non esiste certamente il mio font personale,
mi chiedo:
è possibile  realizzare un font che ha la base del Sans Serif e poi dal 191
al 200
(per esempio) i caratteri che voglio io ????. prendendoli da un altro font
(Symbol)
Se un font,
anche se non perfettamente come lo voglio io, ma che comunque
mi consenta di inserire i caratteri che normalmente si usano nel campo
scientifico,
esiste già'
tanto meglio non mi resta che cercarlo e usarlo
se non esiste vediamo come fare.
Dimmi qualcosa
Ciao Tommaso

 ha scritto

ah. il problema direi ci sia. mi sa che lo risolvi o impostando delle
etichette affiancate con autosize=true e font diversi, oppure, se vuoi
provare con il codice qui sotto (il nucleo me l'hanno passato sul ng), a me
serviva per disegnare in un picbox degli smiley routati. prob con un po' di
aggiustamenti e variando il font al momento opportuna riesci a scrivere con
tutti i font che vuoi.
spero ti serva, fa' sapere.
ciao, a.
Private Sub RePaint()
    Dim defFont As New StdFont
    defFont.Name = IIf(cboFont <> "", cboFont, "Courier New")
    defFont.Size = Val(txtSize)
    defFont.Bold = chkBold.Value
    defFont.Italic = chkItalic.Value
    picSmiley.Width = lblSmiley.Height
    picSmiley.Height = lblSmiley.Width
    picSmiley.Cls
    PrintEx picSmiley, defFont, -90, lblSmiley
End Sub
Sub PrintEx(obj As Object, defFont As StdFont, _
        angolo As Integer, strOut As String)
    Dim void As Long
    Dim newFont As Long
    Dim oldFont As Long
    Dim fontHeight As Long
    Dim fontWidth As Long
    obj.ScaleMode = vbPixels
    Set obj.Font = defFont
    fontHeight = obj.TextHeight(strOut)
    fontWidth = obj.TextWidth(strOut)
    newFont = CreateFont(fontHeight, 0, angolo * 10, 0, _
        defFont.Weight, defFont.Italic, defFont.Underline, _
        defFont.Strikethrough, ANSI_CHARSET, _
        OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, _
        PROOF_QUALITY, DEFAULT_PITCH, defFont.Name)
    oldFont = SelectObject(obj.hdc, newFont)
    obj.CurrentX = (obj.ScaleWidth - fontHeight) / 2 + fontHeight
    obj.CurrentY = (obj.ScaleHeight - fontWidth) / 2
    obj.Print strOut
    void = SelectObject(obj.hdc, oldFont)
    void = DeleteObject(newFont)
End Sub
dichiarazioni (se non mi scordo qualcosa):
Public Const ANSI_CHARSET = 0
Public Const OUT_DEFAULT_PRECIS = 0
Public Const CLIP_DEFAULT_PRECIS = 0
Public Const PROOF_QUALITY = 2
Public Const DEFAULT_PITCH = 0
Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" _
    (ByVal H As Long, ByVal W As Long, ByVal E As Long, _
    ByVal O As Long, ByVal W As Long, ByVal I As Long, _
    ByVal u As Long, ByVal s As Long, ByVal C As Long, _
    ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, _
    ByVal PAF As Long, ByVal F As String) As Long
Declare Function SelectObject Lib "gdi32" _
    (ByVal hdc As Long, ByVal hObject As Long) As Long
Declare Function DeleteObject Lib "gdi32" _
    (ByVal hObject As Long) As Long

 grazie
grazie a te della segnalazione :)
e' free ? url ?


Dato che interesserebbe anche a me, e magari in futuro anche ad altri, che
ne pensate di metterla sul SC ?
--- sempre che sia free, ovviamente! ;-) ---
Ciao
Aldo

 > non so dove è finito il messaggio
