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

相关问题

• 字体
• commondialog
• showfont
• 谢谢
• 设置
• 显示
• font
• flags
• text

• 帖主：wendyli
• xxlroad
• foolishtiger

• Visual Basic类图书
• Visual Basic类源码下载