如题

Screen.Fonts   

假如我要检测系统中是否有楷体.是这样写吗?
if screen.fonts="楷体" then .... end if

怎么能够这样呢?..
做个循环.去判断..不就行了?.

dim i as long
for i=0 to Screen.FontCount-1
if screen.fonts(i)="楷体" then goto A
next i
A:
.......

这样可以吧

你试了.可以就可以啊..不要用goto

Dim i As Long
For i = 0 To Screen.FontCount - 1
If Screen.Fonts(i) = "楷体_GB2312" Then
MsgBox "楷体_GB2312 字体在系统中存在"
Exit For
End If
Next