by Eduardo Sastre (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 10th November 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
List your fonts in a webpage. Una lista de fuentes en una p¨gina web.
htmlFile = App.Path & "\fonts.html"
Open htmlFile For Output As #1
Print #1, "<html>"
Print #1, "<head>"
Print #1, "</head>"
Print #1, "<body>"
i = 0
Do While i < Screen.FontCount + 1
Print #1, "<p align=center><font face=Verdana size=1>Fuente nº " & i & "<br><br><font face=" & Screen.Fonts(i) & " size=50>" & Screen.Fonts(i) & "</font></p>"
i = i + 1
Loop
Print #1, "Un total de " & Screen.FontCount & " fuentes."
Print #1, "</body>"
Print #1, "</html>"
Close #1
End Sub
No comments have been posted about List your fonts in a webpage. Una lista de fuentes en una p¨gina web.. Why not be the first to post a comment about List your fonts in a webpage. Una lista de fuentes en una p¨gina web..