vb 为什么showfont的时候提示没有安装字体？

来源：百度知道编辑：UC知道时间：2024/05/21 12:45:08

commondialog.showfont
提示没有安装字体，请打开控制面板-字体文件夹以安装字体。
可我的字体文件夹里有N多种字体啊……
如何解决？

cmd.Flags = cdlCFBoth + cdlCFPrinterFonts
' 在使用ShowFont 方法之前,必须给 cdlCFBoth,cdlCFPrinterFonts,或 cdlCFScreenFonts置标识属性。
cmd.ShowFont

Private Sub Command1_Click()

CommonDialog1.CancelError = True '加上这两行
CommonDialog1.Flags = cdlCFBoth'加上这两行

CommonDialog1.ShowFont

End Sub