有关文件管理(ppt 33页).ppt

第9章文件管理 9 1公共对话框 9 2数据文件 9 3文件系统控件 9 4文件系统对象 9 1公共对话框 对话框技术在软件中应用的非常广泛 第3章中介绍的消息框MsgBox和输入框InputBox是两种最为简单的对话框 像 打开 另存为 颜色 字体 打印 帮助 等对话框在各类软件中使用频繁 为此 VB中专门提供了一个公用对话框控件 用于实现以上功能 一 添加 公共对话框 控件二 使用 公共对话框 三 公用对话框的应用举例 一 添加 公共对话框 控件 公用对话框是一个外部控件 不在标准工具箱中 使用时需要设计者自己从部件中添加 具体方法为 打开 部件 对话框右击 工具箱 选择 部件 工程 主菜单选项中选择 部件 2 选择 MicroSoftCommonDialogControl6 0 二 使用 公共对话框 公用对话框 控件在程序运行时是一个不可见的控件 在程序代码中要用该控件的有关方法让其显示出指定格式的对话框 其方法有6种 1 使用 打开 对话框 主要属性 FileName属性 设置默认文件名或返回所选文件的路径及名称 Name CommonDialog1 FileName DialogTitle属性 设置或返回对话框的标题 CommonDialog1 DialogTitle 请选择文件 InitDir属性 设置或返回对话框访问的初始文件目录 CommonDialog1 InitDir D ABC Filter属性 设置文件的过滤条件 CommonDialog1 Filter txt txt CommonDialog1 ShowOpen 1 使用 打开 对话框 该控件除了具有文本框控件的所有功能以外 还具有一些高级功能 如 同一文本框中的内容可以具有不同的颜色 字体 字号等属性 并且可以将文本中的内容直接与文件的读写相联系 补充 MicrosoftRichTextBoxControl6 0控件 2 使用 另存为 对话框 CommonDialog1 ShowSavePrivateSubCommand1 Click CD1 ShowSaveRTB1 SaveFileCD1 FileName 1EndSub 3 使用 颜色 对话框 CommonDialog1 ShowColorColor属性 设置初始颜色或返回用户所选定的颜色 Form1 BackColor CommonDialog1 ColorFlags属性 设置对话框的外观等 4 使用 字体 对话框 CommonDialog1 ShowFontColor属性 记录使用者所选择的字体颜色 FontBold属性 记录使用者是否选择了粗体字 FontItalic属性 记录使用者是否选择了斜体字 FontStrikethru属性 记录使用者是否选择了加删除线 FontUnderline属性 记录使用者是否选择了加下画线 FontSize属性 记录使用者所选择的字体大小 Flags属性 5 打印 对话框 CommonDialog1 ShowPrinterCopies属性 使用者所设定的打印份数 FromPage属性 使用者所设定的开始页码 ToPage属性 使用者所设定的结束页码 三 公共对话框的应用举例 用输入框输入一些文字 在标签中显示 用颜色对话框设置文字的前景色和背景色 用字体对话框设置文字的字号及字体 要求 不能有Bug 9 1公共对话框回顾 一 添加 公共对话框 控件 MicroSoftCommonDialogControl6 0 二 使用 公共对话框 9 2数据文件 数据文件在各种程序设计领域中 都占有极其重要的地位 一般而言 程序执行时用户所输入的数据都是存储在RAM中 一旦程序运行结束或电源中断 存储器中的数据也随之消失 若想永久储存 在程序中必须将RAM中的数据以文件的形式存储到外存储器中 当然 需要时程序也可以从文件中将数据读出 VB中的文件有三种 一 顺序文件二 随机文件三 二进制文件 一 访问顺序文件 顺序文件也就是普通的文本文件 它是将字符的编码按先后顺序一个接一个地存放在文件中 因此占用的磁盘空间很小 但是 当用户查找一个数据时 必须从文件的开头一个一个地按顺序找 直到找到为止 因此 这种文件的缺点是数据访问的灵活性差 一 访问顺序文件 1 顺序打开的打开与关闭 打开 OpenForAs如 Open d abc test txt forOutputAs 1 关闭 Close 文件号列表 说明 Input用来从文件中读取数据 若文件不存在 则产生一个错误 Output用来创建一个待写的文件 若文件已存在 则将覆盖 Append用追加的方式打开文件 若文件不存在 则创建该文件 文件号 1至511 可用FreeFile函数检测可以使用的文件号 文件使用完后必须用Close语句关闭 否则将可能丢失数据 关闭文件时 若没有指明文件号 则关闭所有已打开的文件 一 访问顺序文件 2 顺序文件的读取操作文件必须是以Input方式打开的 LineInput 语句格式 LineInput FileNumber VarName功能 从指定的顺序文件中读出一行数据给一个字符串变量 Input 语句格式 Input FileNumber VarList功能 从指定的顺序文件中读取数据给变量序列 Input函数格式 Input Length FileNumber 功能 从指定文件中读取指定长度的字符串作为函数值返回 实例 读文件的内容读至文本框 一 访问顺序文件 3 顺序文件的写入操作文件必须是以Output或Append方式打开的 Print语句格式 Print 功能 将数据写入指定的文件当中 数值有前后空格 Write语句格式 Write 功能 将数据写入指定的文件当中 字符串有双引号 实例 将文本框中所写的内容以文件的形式保存 例9 2 简易文本编辑器缺陷 退出时或打开别的文件时 对已修改的文件没有任何保护措施 案例程序1 通用电话号码本 案例程序2 限时 限制软件使用的时间 案例程序3 电子打铃器 二 访问随机文件 随机文件是可以按任意次序读写的文件 它是以记录为单位进行存储的 每个记录的长度相同 但具有不同的记录号 当写数据时 只要告诉记录号就可以将数据写入文件中的指定位置 而当读取数据时 只要知道记录号就可以立即找到所要的数据 因此这种方法访问数据速度快 但它占用的磁盘空间大 二 访问随机文件 1 定义记录类型Typepersoninfo 姓名 电话 备注等信息的记录类型NameasString 40PhoneasString 40CommentsasString 100EndTypeDimXAspersoninfo2 打开随机文件Open 文件名 ForrandomAs 文件号 Len 记录长度 检测记录长度用Len函数 reclen Len Who 二 访问随机文件 3 读取随机文件Get 文件号 变量名 记录号 变量名 给文件写数据之前 必须先将要写入的内容存入记录类型变量中 5 例9 3 Page191 三 访问二进制文件 1 打开二进制文件格式 OpenfileForbinaryAs filenumber例如 Filenumber FreeFileOpen d vb sin exe ForBinaryAs Filenumber2 写入二进制文件格式 Put 文件号 字节数 变量名 功能 将变量中的内容写入指定文件中的指定位置 3 从二进制文件中读取数据格式 Get 文件号 字节数 变量名 功能 从指定文件中的指定位置读取数据给指定的变量 二进制文件是以字节为单位进行访问的 文件打开后可以在任何字节位置进行读写操作 所以二进制文件是最灵活的 三 访问二进制文件 4 举例 窗体Click之后 将1 5这五个数据以二进制形式写入Btest dat文件中 随后以同样方式读出 并在消息框中将其显示出来 最后将该文件删除 案例程序4 限次 限制软件使用的次数 9 2数据文件回顾 一 顺序文件二 随机文件三 二进制文件 9 3文件系统控件 VB提供了三个与文件有关的控件 这些控件是制作文件对话框时必不可少的工具 二 目录列表框 DirectoryListBox 三 文件列表框 FileListBox 一 驱动器列表框 DriveListBox 一 驱动器列表框 DriveListBox 1 重要属性Drive属性 设定或读取当前驱动器的名称 代码中设定方法 驱动器列表框名 Drive 盘符Drive1 Drive E 2 重要事件Change事件 当前驱动器变更时发生 二 目录列表框DirectoryListBox 1 重要属性Path属性 设定或读取当前目录的完整路径 代码中设定方法 目录列表框 Path 路径Dir1 Path E vb 2 重要事件Click事件和Change事件 三 文件列表框FileListBox 1 重要属性 Path属性 设定当前目录 代码中设定方法 文件列表框 Path 路径 FileName属性 传回所选定的文件名称 Pattern属性 设定文件名的过滤方式 即文件通配符 代码中设定方法 文件列表框 Pattern 通配符2 案例程序案例程序5 简易音乐播放器案例程序6 我的点歌台案例程序7 图片自动连续显示案例程序8 成批更改文件名案例程序9 打印保存目录名称 补充 文件操作类语句及函数 1 FreeFile函数得到一个在程序中没有使用的文件号 2 Eof函数格式 Eof filenumber 功能 检测文件是否结束 结束时返回True 3 ChDir语句格式 ChDirpath功能 改变当前目录 4 ChDrive语句格式 ChDriveDrive功能 改变当前盘 5 MkDir语句格式 MkDirpath功能 建立子目录 6 RmDir语句格式 RmDirpath功能 删除子目录 7 FileCopy语句格式 FileCopy源文件名 目标文件名功能 复制文件 8 Name语句格式 Name旧名称As新名称功能 对文件或目录进行更名 9 Kill语句格式 KillPathname功能 删除文件 10 SetAttr语句格式 SetAttr文件名 Attributes功能 设置文件属性 vbNormal VbReadOnly vbHidden vbSystem 补充 文件操作类语句及函数 11 CurDir函数格式 CurDir Drive 功能 返回指定盘的当前路径 12 FileLen函数格式 FileLen pathname 功能 返回指定文件的长度 13 Shell函数格式 Shell pathname windowstyle 功能 调用指定的应用程序 举例 调用写字板并打开指定的文件PrivateSubCommand1 Clic