54SA.COM|专注于系统运维管理,为中国SA提供动力!
Getting online shouldn't be tough. $7.99 .COMs
系统管理员之家Banner
当前位置: 主页 > 编程开发 > VB开发 >

VB使用“字体”对话框

时间:2012-04-16 00:00来源:网络 编辑:lihui

字体”对话框根据大小、颜色、样式选择字体。用户一旦在“字体”对话框中选定字体后,下列属性就会包含有关用户选项的信息。

属性 决定
Color 选定的颜色。为使用此属性,必须先将 Flags 属性设置为 cdlCFEffects。
FontBold 是否选定“粗体”。
FontItalic 是否选定“斜体”。
FontStrikethru 是否选定删除线。
FontUnderline 是否选定下划线
FontName 选定的字体名称。
FontSize 选定的字体大小。

 

图 7.14 “字体”对话框

要显示“字体”对话框

  1. 将 Flags 属性设置为下述 Visual Basic 常数之一:
    • cdlCFScreenFonts(屏幕字体)
       
    • cdlCFPrinterFonts(打印机字体)
       
    • cdlCFBoth(既可以是屏幕字体又可以是打印机字体)

    小心 在显示“字体”对话框之前必须将 Flags 属性设置为这些数值之一,否则将发生不存在字体错误。

  2. 用 ShowFont 方法显示对话框。

下列代码根据用户在“字体”对话框中的选择来设置文本框的字体属性:

Private Sub Command1_Click ()    ' Cancel 设置成 TrueCommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   '设置 Flags 属性。
   CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
   '显示“字体”对话框。
   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
ErrHandler:
   '用户按了“取消”按钮。
   Exit Sub
End Sub

详细信息 关于 Flag 属性常数的完整列表,请参阅《语言参考》的“CommonDialog 控件常数”。

 

[责任编辑:admin]


------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
用户名:
最新评论 进入详细评论页>>