通用对话框添加到工具箱.doc

通用对话框添加到工具箱 工程/部件-选定部件标签-选定Microsoft CommDialog Control 6.0-确定打开通用对话框：通用对话框的类型Action方法打开(Open)1ShowOpen另存为(Save As)2ShowSave颜色(Color)3ShowColor字体(Font)4ShowFont打印机(Printer)5ShowPrinter帮助(help)6Showhelp属性 Action：打开通用对话框。DialogTiltle：对通用话框标题。CancelErrorTrue：选择“取消”按钮，出现错误警告；Err.Number置为32755(cdCancel)。False(缺省)：选择“取消”按钮，没有错误警告。1. “打开”文件对话框 属性FileName：包含路径FileTitle：不包含路径Filter：例如，Documents(*.DOC)|*.DOC|Text Files(*.TXT)|*.txt|All Files|*.*FilterIndex：决定在文件类型列表框中显示第几组类型的文件。InitDir：初始化路径例8.1 简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按钮，显示有关信息。Open CommonDialog1.filename For Input As #1Do While Not EOF(1)Line Input #1, inputdata txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _Chr(13) + Chr(10)LoopClose #1 2. “另存为”对话框没有提供真正的存储文件操作，仍需要编程完成储存操作。属性DefaultExt：缺省扩展名例8.1中“另存为.”按钮的事件过程3. “颜色”对话框属性Color：返回或设置选定的颜色。例8.1中“颜色.”按钮的事件过程4. “字体”对话框 Flags属性：指示所显示的字体类型，必须设置。cdlCFScreenFonts&H1 屏幕字体cdlCFPrinterFonts&H2 打印机字体cdlCFBoth&H3 打印机字体和屏幕字体。cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框例8.1中“字体.”按钮的事件过程5. “打印”对话框属性FromPage：起始页号ToPage：终止页号Copies：打印份数如果打印驱动程序不支持多份打印，该属性有可能始终返回 1。例8.1中“打印.”按钮的事件过程6. “帮助”对话框帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。 属性 例8.5 HelpCommand：在线Help帮助类型HelpFile：Help文件的路径及其名称HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。例8.1代码：Private Sub cmdOpen_Click()CommonDialog1.CancelError = TrueOn Error GoTo nofileCommonDialog1.Action = 1txtNoteEdit.Text = Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdatatxtNoteEdit.Text = txtNoteEdit.Text + inputdata + Chr(13) + Chr(10)LoopClose #1Exit Subnofile:If Err.Number = 32755 ThenMsgBox 按取消按钮ElseMsgBox 其它错误End IfEnd SubPrivate Sub cmdSaveas_Click()On Error Resume NextCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1For i = 1 To Len(txtNoteEdit.Text)Print #1, Mid$(txtNoteEdit.Text, i, 1);Next iClose #1End SubPrivate Sub cmdColor_Click()On Error Resume NextCommonDialog1.Action = 3txtNoteEdit.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub cmdFont_Click()On Error Resume NextCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4If CommonDialog1.FontName ThentxtNoteEdit.FontName = CommonDialog1.FontNameEnd IftxtNoteEdit.FontSize = CommonDialog1.FontSizetxtNoteEdit.FontBold = CommonDialog1.FontBoldtxtNoteEdit.FontItalic = CommonDialog1.FontItalictxtNoteEdit.FontStrikethru = CommonDialog1.FontStrikethrutxtNoteEdit.FontUnderline = CommonDialog1.FontUnderlineEnd SubPrivate Sub cmdPrint_Click()On Error Resume NextCommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print txtNoteEdit.TextNext iPrinter.EndDocEnd SubPrivate Sub cmdQuit_Click()EndEnd Sub例8.5代码：Private Sub Command1_Click()CommonDialog1.He