检查字体是否存在的方法

        这里贴一段vb的代码，c#参照也是类似的，读取c盘字体库中的字体，判断字体是否存在，不存在即可使用特殊方法对字体进行安装

这对部分b/s搭建的软件还是能起到作用的，毕竟有些软件设置的字体在系统库中并不存在，如果不安得话，会出现各种乱码的情况，所以

才需要这么做

 private sub checkpmingliufont() implements ihealthcheck.checkpmingliufont
        try
            dim path as string = "c:\windows\fonts\mingliu.ttc"
            dim pfc as new privatefontcollection()
            if path = "c:\windows\fonts\mingliu.ttc" then
                sberrorlog.appendline()
            end if
        catch ex as exception
            sberrorlog.appendline("can't find pmingliu font")
        finally
            print("")
        end try
    end sub