关于commondialog的ShowFont

[iwillgo2]

代码：
Private Sub Cmd_Font_Click()
On Error GoTo L
Dlg_Create.CancelError = True
Dlg_Create.ShowFont
FB_Create.FontName = Dlg_Create.FontName
L:
End Sub
出现提示：
没有安装字体，请从控制面板中单击"字体"打开"Fonts"文件加以便安装字体
请问如何安装字体，我的字体文件夹里是有很多字体文件。

[hycao]

Private Sub Cmd_Font_Click()
On Error GoTo L
Dlg_Create.CancelError = True
Dlg_Create.Flags = cdlCFBoth '加上这一句
Dlg_Create.ShowFont
FB_Create.FontName = Dlg_Create.FontName
L:
End Sub

[griefforyou]

ShowFont 方法


显示 CommonDialog 控件的“字体”对话框。

语法

object.ShowFont

object 所在处代表对象表达式，其值是“应用于”列表中的对象。

说明

在使用 ShowFont 方法前，必须先设置 CommonDialog 控件的 Flags 属性为下列三个常数或值中的一个： cdlCFBoth 或 &H3, cdlCFPrinterFonts 或 &H2, 以及 cdlCFScreenFonts 或 &H1。如果不置 Flags，将会显示一个信息框，提示“没有安装的字体。”并产生一个运行时错误。