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

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