原文链接:
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循环语句详解