Microsoft Common Dialog Control 6.0怎么设定只显示8到12大小的字体
发布网友
发布时间：2022-05-03 05:01
共1个回答
热心网友
时间：2023-10-10 06:28
'cdlCFBoth &H3 3 使对话框列举可用的打印机与屏幕字体
'cdlCFLimitSize &H2000 8192 指定对话框只在 Min 与 Max 属性指定的范围内选择字体大小
CommonDialog1.Flags = cdlCFBoth Or cdlCFLimitSize
CommonDialog1.Min = 8 '最小
CommonDialog1.Max = 12 '最大
CommonDialog1.Action = 4 ' 字体对话框
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
End Sub
可参考:
2.在通用对话框的“属性页”中设置“字体”属性，如下图10-15所示
“字体”对话框属性除了与文件对话框相同的属性如CancelError、DialogTitle、HelpCommand、HelpContext、HelpFile、HelpKey等之外，还有以下属性：
（1）常用属性有字体名称（FontName）、字体大小（FontSize）、字体样式（Style）包括：加粗（Bold）、斜体（Italic）、下划线（Underline）、删除线（Strikethru）等。这些属性可以在对话框中选择，也可以在程序代码中通过赋值的方式设置。
（2）标志属性（Flags）
Flags属性的取值见下表10-8
表10-8 字体对话框的Flags属性的取值符号常量 十六进制值 十进制值 功能
cdlCFScreenFonts &H1 1 使对话框只列举系统支持的屏幕字体。
cdlCFPrinterFonts &H2 2 使对话框只列举打印机所支持的字体。
cdlCFBoth &H3 3 使对话框列举可用的打印机与屏幕字体
cdlCFHelpButton &H4 4 使对话框显示帮助按钮
cdlCFEffects &H100 256 指定对话框使删除线、下划线与颜色生效
cdlCFApply &H200 512 启动对话框上的应用按钮
cdlCFANSIOnly &H400 1024 指定对话框只允许选择使用 Windows 字符设置的字体。如果设置该标记，则用户将不能选择只包含符号的字体
cdlCFNoVectorFonts &H800 2048 指定对话框不允许选择矢量字体
cdlCFNoSimulations &H1000 4096 指定对话框不允许图形设备接口(GDI)字体模拟
cdlCFLimitSize &H2000 8192 指定对话框只在 Min 与 Max 属性指定的范围内选择字体大小
cdlCFFixedPitchOnly &H4000 16384 指定对话框只选择固定间距的字体
cdlCFWYSIWYG &H8000 32768 指定对话框只允许选择既可在打印机上又可在屏幕上使用的字体。如果设置该标记设置，则也应设置 cdlCFBoth 与 cdlCFScalableOnly 标记
cdlCFForceFontExist &H10000 65536 指定如果用户要选择不存在的字体或式样，则显示错误消息框
cdlCFScalableOnly &H20000 131072 指定对话框只允许选择可缩放的字体。
cdlCFTTOnly &H40000 262144 指定对话框只允许选择TrueType 字体。
cdlCFNoFaceSel &H80000 524288 未选择字体名称
cdlCFNoSizeSel &H200000 2097152 未选择字体大小
（3 ）Min和Max
返回或设置在“大小”列表框显示的字体的最大和最小尺寸。对于“字体”对话框，使用这些属性前必须先置 cdlCFLimitSize 标志。在设置Max和Min属性前必须设置Flags属性值为8192。
（4）CancelError
此属性与文件对话框相同
运行时，选定设置并关闭“字体”对话框后，所做的设置将包含在下表10-9中
表10-9 “字体”对话框确定的属性属性 确定
Color 能够确定选定的颜色。若要使用这个属性，则必须先设置Flags属性设置为cdlCFEffects或256
FontBold 确定是否选定了粗体
FontItalic 确定是否选定了斜体
FontStrikethru 确定是否选定了删除线，若要使用这个属性，则必须先设置Flags属性设置为cdlCFEffects或256
FontUnderline 确定是否选定了下划线，若要使用这个属性，则必须先设置Flags属性设置为cdlCFEffects或256
FontName 确定选定字体的名称
FontSize 确定选定字体的大小
3.最后使用通用对话框控件的ShowFont方法来显示“字体”对话框。
即 通用对话框名.ShowFont 或 通用对话框名.Action=4
例10-6 利用字体对话框设置文本框中文字的字体
