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

完整的举例，如下:

Private Sub Command1_Click()    
    ' 设置“取消”为 True    
    CommonDialog1.CancelError = True    
    On Error GoTo Err    
    ' 设置 Flags 属性    
    CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth    
    ' 显示“字体”对话框    
    CommonDialog1.ShowFont    
    '字体    
    Text1.Font.Name = CommonDialog1.FontName    
    '字号    
    Text1.Font.Size = CommonDialog1.FontSize    
    '粗体    
    Text1.Font.Bold = CommonDialog1.FontBold    
    '斜体    
    Text1.Font.Italic = CommonDialog1.FontItalic    
    '下划线    
    Text1.Font.Underline = CommonDialog1.FontUnderline    
    '删除线    
    Text1.FontStrikethru = CommonDialog1.FontStrikethru    
    '颜色    
    Text1.ForeColor = CommonDialog1.Color    
    Exit Sub    
Err    
' 用户按了“取消”按钮    
    Exit Sub
End Sub

字体对话框

获取字体设置并改变文本框字体