[vb6]combox font

[apatico]

sempre per il mio programma,nella toolbar che ho creato devo inserire
una combobox dove fare scegliere all'utente il "FONT"desiderato.
ma non ho idea del codice da inserire.il mio manuale riporta solo la commno dialog font e
non supporta un codice di qualcosa come questo.
spero che mi aiutate

[Giulio C.]

Ciao.
Io proverei così:

NEL MODULO CHE CONTIENE LA TUA COMBOBOX (che ti consiglio mettere con Style = 2, affinché non possano essere modificate le voci contenute):

Private Sub Form_Load()
   Dim I   ' Dichiara la variabile "contatore"
   For I = 0 To Printer.FontCount - 1  ' Scandisce tutti i fonts   
      Combo1.AddItem Printer.Fonts(I)  ' Elenca i fonts   
   Next I
End Sub

In questo modo ottieni una lista di fonts. Sta a te poi adattare il codice al resto del programma.

Fammi sapere.