Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ho scaricato un esempio nella sezione visual basic\esempi
pero nn ho capito bene questo codice anche se escono nel listbox delle scritte non ho capito di cosa sono:
->Sorgente<-
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
lstFonts.AddItem Screen.Fonts(i)
Next
End Sub