编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 界面设计 > VB6 界面设计 字体对话框

VB6 界面设计 字体对话框

“字体“对话框形式如下:

字体对话框_界面设计_VB6


属性

(1)Flags

必须设置,它通知通用对话框控件是否显示屏幕字体、打印机字体或两者都有。如果没有设置则VB显示错误提示。

字体对话框Flags属性设置值一览表

常数 值(16进制) 说明
cdlCFScreenFonts &H1 屏幕字体
cdlCFPrinterFonts &H2 打印机字体
cdlCFBoth &H3 打印机字体和屏幕字体
cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框


(2)Font

包括FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性。


(3)Color

该属性值表示字体的颜色,要使用这个属性,必须使用Flag值为cdlCFEffects。


[例8.3]用字体对话框设置文本框的字体,要求在字体对话框内出现删除线、下划线、颜色元素控制。


字体对话框_界面设计_VB6

Private Sub Command1_Click()
    CommonDialog1.Flags = cdlCFBoth Or &H100   'cdlCFEffects或 &H100等效,这里只能用or
    'CommonDialog1.Action = 4和CommonDialog1.ShowFont等效
    CommonDialog1.ShowFont()
    With CommonDialog1
        .Flags = cdlCFEffects
        Text1.Font = .FontName
        Text1.FontSize = .FontSize
        Text1.FontBold = .FontBold
        Text1.FontItalic = .FontItalic
        Text1.FontStrikethru = .FontStrikethru
        If Option1.Value Then Text1.ForeColor = .Color
        If Option2.Value Then Text1.BackColor = .Color
    End With
End Sub

Private Sub Form_Load()
    Form2.Caption = "字体对话框示例"
    Form2.Caption = "字体对话框示例"
    Text1.Text = "  滕王高阁临江渚," & vbCrLf & "  佩玉鸣鸾罢歌舞。" & vbCrLf _
    & "  画栋朝飞南浦云," & vbCrLf & "  珠帘暮卷西山雨。" & vbCrLf _
    & "  闲云潭影日悠悠," & vbCrLf & "  物换星移几度秋。 " & vbCrLf _
    & "  阁中帝子今何在?" & vbCrLf & "  槛外长江空自流。"
    Command1.Caption = "打开字体对话框"
    Option1.Caption = "前景色"
    Option2.Caption = "背景色"
    Option1.TabIndex = 0
    Text1.Locked = True
End Sub



编程学习 VB6 界面设计 字体对话框 转载请保留此行.谢谢.

VB6