轻松掌握VB6字体选择的艺术：字体对话框全面解析与实战应用
字体对话框
我们在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过程。
运行效果:
请先 后发表评论～