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


没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试

关闭