VB字体对话框ShowFont

“ 本节课程学习ShowFont字体对话框”

上节课程一起学习了ShowColor颜色对话框，本节课程将学习的是字体对话框。

字体对话框，为用户提供一个字体选择器，用于字体、大小、颜色、样式等字体属性选择。

首先，将对话框控件CommonDialog添加到窗体上。

然后，设置对话框属性。比如：

' 设置“取消”为 True
CommonDialog1.CancelError = True
' 设置 Flags 属性
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth

其中Flags属性具有以下值：

接着，使用ShowFont方法弹出字体对话框。

CommonDialog1.ShowFont

最后，获取用户的字体属性设置
'字体

CommonDialog1.FontName
'字号
CommonDialog1.FontSize
'粗体
CommonDialog1.FontBold
'斜体
CommonDialog1.FontItalic
'下划线
CommonDialog1.FontUnderline
'删除线
CommonDialog1.FontStrikethru
'颜色
CommonDialog1.Color