mfc checkedit设置字体颜色没有效果_“字体”对话框的使用

原文链接：

No.19 “字体”对话框的使用​mp.weixin.qq.com

字体对话框

我们在Word文档里编辑文字经常会设置文字的字体，颜色，粗体等效果，VB也提供了这个功能，需要添加CommonDialog控件，这个控件需要在工具箱右键，选择“部件”：

然后选择“Microsoft Common Dialog Control 6.0”确定：

这样CommonDialog控件就添加上了，然后拖动这个控件放到窗体上，这个控件在运行时候不可见，所以放在任意位置都可以。

字体对话框的属性

Color属性：选定字体的颜色。如果要使用这个属性，必须先将Flags属性设置为cdlCFEffects。

FontBold属性：是否选定粗体。

FontItalic属性：是否斜体。

FontStrikethru：如果要使用这个属性，必须先将Flags属性设置为cdlCFEffects。

FontUnderline：是否下划线。同样需要将Flags属性设置为cdlCFEffects。

FontName属性：字体的名称。

FontSize属性：字体的大小。

在使用ShowFont方法前，必须先设置CommonDialog控件的Flags属性为下面几个其中之一。

cdlCFScreenFonts或者1：使用屏幕字体。

cdlCFPrinterFonts或者2：使用打印机字体。

cdlCFBoth或者3：同时可以使用上面两种

257：在字体对话框中会有颜色，删除线，下划线等效果。

示例

我们将这些属性用一个示例来实际运用一下：

在这之前还要说一点，调用对话框后，如果点击“取消”按钮，会出现一个错误，所以我们用On Error GoTo 来处理一下，遇到用户点击取消按钮就结束Sub过程。

运行效果:

下载地址：

http://51vb.ys168.com/

我尽量把内容讲的通俗易懂，如果觉得还可以的话恳求大家右下角点个“在看”多帮忙转发，谢谢了~~

我若是有说错的地方，请各位指正，感激不尽！

▼往期精彩回顾▼

No.13 Excel表格中如何快速比较两列单元格的内容

No.6 Do WhileUntil…….Loop循环语句

No.5 For Next循环语句详解