[VB6] Visualizzare elenco fonts di sistema

[Gaionick]

Buona serata a tutti

passo subito al dunque, come posso visualizzare in una casella combinata l'elenco dei fonts presenti nel sistema?

grazie anticipatamente per le risposte

[Boolean]

For K = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(K)
Next

Boolean

[Gaionick]

Thanks ... ora ci provo

[Gaionick]

Originariamente inviato da Boolean

For K = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(K)
Next

Boolean

Non funzia, mi da comando non riconosciuto (quello che ho evidenziato in grassetto).

[Gaionick]

Mi servirebbe una casella combinata tipo quella di Word

Come da allegato

[Boolean]

guarda io l'ho provato, il codice, e funziona perfettamente...

per quanto riguarda quello che vuoi ottenere, ti posso già dire che non è di semplice realizzazione, probabilmente puoi trovare in giro qualche OCX che svolga già questo compito.

Boolean

[Gaionick]

ok ci riproverò domani in ufficio, grazie mille