[原创]生成几种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