菜单和控件 Cdl. Flags= cdICCRGBInit Cd. Action =3 Text1. Font. Italic= Cd1. Fontitalic text1. Fore Color= Cd1. Color Text1. Font Underline ErrHandler 3 Cd1. FontUnderline Text 1. Font strikethru Case 4 Cd1. CancelError= True Cd1. Font Strikethru On Error goto errhandler4 Text1. Fore Color= Cd1. Color Cdl. Flags= cdICFEffects Or ErrHandler4 dICFBoth C Cdl. cancelerror True Cdl. ShowFont On error goto errhandler s Textl. font name= Cdl fontName Textl. font. size= Cdl fontsize Cd1 Show Printer Text1. Font Bold= Cd1. Font Bold BeginPage =Cd1 FromPage
菜单和控件 Cd1.Flags = cdlCCRGBInit Cd1.Action = 3 text1.ForeColor = Cd1.Color ErrHandler3: Case 4 Cd1.CancelError = True On Error GoTo ErrHandler4 Cd1.Flags = cdlCFEffects Or cdlCFBoth Cd1.ShowFont Text1.Font.Name = Cd1.FontName Text1.Font.Size = Cd1.FontSize Text1.Font.Bold = Cd1.FontBold Text1.Font.Italic = Cd1.FontItalic Text1.Font.Underline = Cd1.FontUnderline Text1.FontStrikethru = Cd1.FontStrikethru Text1.ForeColor = Cd1.Color ErrHandler4: Case 5 Cd1.CancelError = True On Error GoTo ErrHandler5 Cd1.ShowPrinter BeginPage = Cd1.FromPage
菜单和控件 EndPage= Cdl.ToPage HelpCommand- HelpCNT Or NumCopies= Cd1. Copies cdlHelpSetContents For i=I To NumCopies ShowHelp Next i End with ErrHandler5 Case o Case 6 End With cd1 End select HelpFile="vocus. hlp End Sub
菜单和控件 EndPage = Cd1.ToPage NumCopies = Cd1.Copies For i = 1 To NumCopies Next i ErrHandler5: Case 6 With Cd1 .HelpFile = "vocus.hlp" .HelpCommand = HelpCNT Or cdlHelpSetContents .ShowHelp End With Case 0 End End Select End Sub
菜单和控件 通用对话框设计 打开文件对话框 文件另存对话框 显示字体对话框 显示颜色对话框 用通用对 打印机管理对话框 帮助对话框 话框设置 退出 后Text1的 D\新建文件夹\成教毕业设计陈春雷\cl 字体和内
菜单和控件 用通用对 话框设置 后Text1的 字体和内 容