[原创]生成几种WEB图形字体对照表

来源：互联网发布：免费一级域名编辑：程序博客网时间：2024/05/17 22:28

这都是上学那年代自个玩的东西。

大家别见笑。

Private Sub Form_Load() Dim str(10) As String str(1) = "webdings" str(2) = "Wingdings" str(3) = "Wingdings 2" str(4) = "Wingdings 3" Open "c:/ImageChar.htm" For Output As #1 '----------------------------------------------------------------------------------------------------- Print #1, "<table width=600 border='1' cellpadding='0' cellspacing='0'>" Print #1, "<tr><td>Verdana</td><td>" & str(1) & "</td><td>" & str(2) & "</td><td>" & str(3) & "</td><td>" & str(4) & "</td></tr>" For I = 33 To 128 Print #1, "<tr>" Print #1, "<td align='center'><font size=4 face='Verdana'>" & Chr$(I) & "</font></td>" Print #1, "<td width='120' align='center'><font size=7 face='" & str(1) & "'>" & Chr$(I) & "</font></td>" Print #1, "<td width='120' align='center'><font size=7 face='" & str(2) & "'>" & Chr$(I) & "</font></td>" Print #1, "<td width='120' align='center'><font size=7 face='" & str(3) & "'>" & Chr$(I) & "</font></td>" Print #1, "<td width='120' align='center'><font size=7 face='" & str(4) & "'>" & Chr$(I) & "</font></td>" Print #1, "</tr>" Next I Print #1, "</table>" '----------------------------------------------------------------------------------------------------- Close #1 End End Sub