EnumFont
Private Sub DisplayFonts() Dim X As Integer For X = 0 To Printer.FontCount - 1 lstPrinter.AddItem Printer.Fonts(X) Next X For X = 0 To Screen.FontCount - 1 lstScreen.AddItem Screen.Fonts(X) Next X End Sub
Private Sub DisplayFonts()
Dim X As Integer
For X = 0 To Printer.FontCount - 1
lstPrinter.AddItem Printer.Fonts(X)
Next X
For X = 0 To Screen.FontCount - 1
lstScreen.AddItem Screen.Fonts(X)
Next X
End Sub
( enumfont.html )- by Paolo Puglisi
- Modifica del 17/12/2023