List your fonts in a webpage. Una lista de fuentes en una p¨gina web.

Eduardo Sastre (2 Submissions) Miscellaneous VB 6.0 Unknown Difficulty Wed 10^th November 2004 Mon 8^th February 2021

Rate List your fonts in a webpage. Una lista de fuentes en una p¨gina web.

(1(1 Vote))


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

Download snippet Save to my list

List your fonts in a webpage. Una lista de fuentes en una p¨gina web. Comments

No comments yet — be the first to post one!

List your fonts in a webpage. Una lista de fuentes en una p¨gina web.

List your fonts in a webpage. Una lista de fuentes en una p¨gina web. Comments

Post a Comment