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

字体对话框
图片

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

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:深蓝海洋 设计师:CSDN官方博客 返回首页

打赏作者

记得你的模样

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值