Question

请问我编写了个vb程序要应用字体对话框，但打开字体对话框时，系统提示我没安装字体，但是我的系统文件

夹font是有字体的啊，为什么会这样呢？怎么办呢？

Answer 1

渔：
设置一下Flags属性。
鱼：试试以下代码。
CommonDialog1.Flags = cdlCFBoth + cdlCFPrinterFonts
CommonDialog1.ShowFont
Command1.Font.Size = CommonDialog1.FontSize

追问

你太牛了，真是一试就成功啦，那么你写的代码是什么意思呢？

追答

下面是几个VB常数和意义使用CommonDialog时需要设置Flag属性为以下任意个：
cdlCFScreenFonts（屏幕字体）
cdlCFPrinterFonts（打印机字体）
cdlCFBoth（既可以是屏幕字体又可以是打印机字体）
，其他代码是测试用。