1、第五章 高级界面 通用对话框及文件控件,5.1 通用对话框(CommonDialog),属性 Action：打开通用对话框。DialogTiltle：对通用话框标题。CancelErrorTrue：选择“取消”按钮，出现错误警告；Err.Number置为32755(cdCancel)。False(缺省)：选择“取消”按钮，没有错误警告。,工程/部件,选定 部件标签,选定Microsoft CommDialog Control 6.0,通用对话框添加到工具箱,确定,打开通用对话框：,属性FileName：包含路径FileTitle：不包含路径Filter：例如，Documents(*.DOC)|
2、*.DOC|Text Files(*.TXT)|*.txt|All Files|*.*FilterIndex：决定在文件类型列表框中显示第几组类型的文件。InitDir：初始化路径,1. “打开”文件对话框,DialogTiltle,FileName,InitDir,Filter,FilterIndex,DefaultExt,例5.1 简单的文本编辑程序,当按“打开”按钮，在“打开”对话框按“取消”按钮，显示有关信息。,Open CommonDialog1.filename For Input As #1 Do While Not EOF(1) Line Input #1, inputdata
3、 txtNoteEdit.Text = txtNoteEdit.Text + inputdata + _Chr(13) + Chr(10) Loop Close #1,2. “另存为”对话框没有提供真正的存储文件操作，仍需要编程完成储存操作。属性DefaultExt：缺省扩展名例8.1中“另存为.”按钮的事件过程3. “颜色”对话框属性Color：返回或设置选定的颜色。,4. “字体”对话框,Flags属性：指示所显示的字体类型，必须先设置。cdlCFScreenFonts &H1 屏幕字体cdlCFPrinterFonts &H2 打印机字体cdlCFBoth &H3 打印机字体和屏幕字体。
4、cdlCFEffects &H100 显示删除线和下划线检查框以及颜色组合框,FontName,FontBold、FontItalic,FontSize,FontStrikethru,FontUnderline,Color,Min、Max,5. “打印”对话框属性FromPage：起始页号ToPage：终止页号Copies：打印份数如果打印驱动程序不支持多份打印，该属性有可能始终返回 1。6. “帮助”对话框帮助文件需要用其它的工具制作，如Microsoft Windows Help Compiler。 属性 HelpCommand：在线Help帮助类型HelpFile：Help文件的路径及其
5、名称HelpKey：在帮助窗口显示由该帮助关键字指定的帮助信息。,5.2 文件操作控件 驱动器、目录和文件列表框,Sub drvDrive_Change()dirDirectory.Path = drvDrive.Drive End Sub,Sub dirDirectory_Change()filFile.Path = dirDirectory.Path End Sub,Sub Form_Load()Item = “所有文件(*.*)”cboType.AddItem Item + Space(20 - Len(Item) + “*.*“Item = “窗体文件(*.FRM)“cboType.A
6、ddItem Item + Space(20 - Len(Item) + “*.FRM“Item = “位图文件(*.BMP)“cboType.AddItem Item + Space(20 - Len(Item) + “*.BMP“cboType.ListIndex = 2 End Sub Sub cboType_Click()filFile.Pattern = Mid(cboType.Text, 21) End Sub,Sub filFile_Click( ) End SubSub filFile_DblClick( ) End Sub,例5.2示例程序,1. 驱动器列表框Drive属性：
7、对象.Drive = driveChange事件：重新设置Drive属性引发Change事件2. 目录列表框Path属性 ：对象.Path = pathnameChange事件：重新设置Path 属性引发Change事件,3. 文件列表框Path属性：显示该路径下的文件。重新设置Path属性引发PathChange事件。Pattern属性：显示的文件类型。对象.Pattern = value重新设置Pattern属性引发PatternChange事件。例如：filFile.Pattern = “*.frm”，显示*.frm文件。FileName属性：对象.FileName = pathname引用时只返回文件名，相当于filFile.List(filFile .ListIndex)，需用Path属性得到其路径；设置时可带路径。,Click、DblClick事件：例如，单击输出文件名。Sub filFile_Click( )MsgBox filFile.FileNameEnd Sub例如，双击执行可执行程序Sub filFile_DblClick( )ChDir (dirDirectory.Path) 改变当前目录 RetVal = Shell(filFile.FileName, 1) 执行程序End Sub,
