commondialog.showfont,为何提示“没有安装字体,请从控制面板中打开字体.....”,不太明白!请哪位赐教!谢谢
commondialog.showfont,为何提示“没有安装字体,请从控制面板中打开字体.....”,不太明白!请哪位赐教!谢谢
我的代码:
commonDialog1.showfont
问题点数:20、回复次数:3Top
1 楼xxlroad(土八路)回复于 2002-06-12 18:26:50 得分 10
Private Sub Command1_Click()
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置 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
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End SubTop
2 楼foolishtiger(冬蛩)回复于 2002-06-12 18:39:15 得分 10
以下资料摘自MSDN。
注意 在显示“字体”对话框前,必须先将 Flags 属性设置为 cdlCFScreenFonts,cdlCFPrinterFonts,或 cdlCFBoth。否则,会发生字体不存在的错误。Top
3 楼wendyli(wendy)回复于 2002-06-13 13:51:59 得分 0
谢谢,我用的是richtextbox,为何变了字体、颜色、大小。中文会倒过来显示呢?Top




