《有关文件管理.ppt》由会员分享，可在线阅读，更多相关《有关文件管理.ppt（33页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第9章文件管理 9.1公共对话框9.2数据文件9.3文件系统控件9.4文件系统对象*9.1 公共对话框 对话框技术在软件中应用的非常广泛，第3章中介绍的消息框MsgBox和输入框InputBox是两种最为简单的对话框。像“打开”、“另存为”、“颜色”、“字体”、“打印”、“帮助”等对话框在各类软件中使用频繁。为此，VB中专门提供了一个公用对话框控件，用于实现以上功能。一、添加 一、添加“公共对话框 公共对话框”控件 控件 二、使用 二、使用“公共对话框 公共对话框”三、公用对话框的应用举例 三、公用对话框的应用举例 一、添加“公共对话框”控件公用对话框是一个外部控件，不在标准工具箱中，使用时需
2、要设计者自己从部件中添加。具体方法为：1.1.打开 打开“部件 部件”对话框 对话框 右击“工具箱”，选择“部件”“工程”主菜单选项中选择“部件”2.2.选择 选择“MicroSoft MicroSoft Common Dialog Control 6.0”Common Dialog Control 6.0”二、使用“公共对话框”“公用对话框”控件在程序运行时是一个不可见的控件。在程序代码中要用该控件的有关方法让其显示出指定格式的对话框。其方法有6种：方法 所显示的对话框ShowOpen 显示“打开”对话框ShowSave 显示“另存为”对话框ShowColor 显示“颜色”对话框ShowFo
3、nt 显示“字体”对话框ShowPrinter 显示“打印”对话框ShowHelp 激活Windows帮助引擎1使用“打开”对话框主要属性：FileName属性：设置默认文件名或返回所选文件的路径及名称。Name=CommonDialog1.FileNameDialogTitle属性：设置或返回对话框的标题。CommonDialog1.DialogTitle”请选择文件”InitDir属性：设置或返回对话框访问的初始文件目录。CommonDialog1.InitDir”D:ABC”Filter属性：设置文件的过滤条件。CommonDialog1.Filter=(*.*)|*.*|(*.txt)
4、|*.txtCommonDialog1.ShowOpen1使用“打开”对话框该控件除了具有文本框控件的所有功能以外，还具有一些高级功能，如：同一文本框中的内容可以具有不同的颜色、字体、字号等属性，并且可以将文本中的内容直接与文件的读写相联系。补充补充:Microsoft RichTextBox Control 6.0控件2使用“另存为”对话框 CommonDialog1.ShowSave CommonDialog1.ShowSavePrivate Sub Command1_Click()Private Sub Command1_Click()CD1.ShowSave CD1.ShowSave
5、RTB1.SaveFile CD1.FileName,1 RTB1.SaveFile CD1.FileName,1EndSub EndSub3使用“颜色”对话框CommonDialog1.ShowColor Color属性：设置初始颜色或返回用户所选定的颜色。Form1.BackColor=CommonDialog1.ColorFlags属性：设置对话框的外观等。值 值 含义 含义&H2&H2 显示全部的对话框，包括定义自定义颜色部分。显示全部的对话框，包括定义自定义颜色部分。&H8&H8 使对话框显示帮助按钮。使对话框显示帮助按钮。4使用“字体”对话框CommonDialog1.ShowFo
6、ntColor属性：记录使用者所选择的字体颜色。FontBold属性：记录使用者是否选择了粗体字。FontItalic属性：记录使用者是否选择了斜体字。FontStrikethru属性：记录使用者是否选择了加删除线。FontUnderline属性：记录使用者是否选择了加下画线。FontSize属性：记录使用者所选择的字体大小。Flags属性：值 值 含义 含义&H1使对话框只列出系统支持的屏幕字体。使对话框只列出系统支持的屏幕字体。&H4使对话框显示帮助按钮。使对话框显示帮助按钮。&H100它指定对话框允许删除线，下划线，以及颜色效果。它指定对话框允许删除线，下划线，以及颜色效果。5“打印”对
7、话框CommonDialog1.ShowPrinterCopies属性：使用者所设定的打印份数。FromPage属性：使用者所设定的开始页码。ToPage属性：使用者所设定的结束页码。三、公共对话框的应用举例 用输入框输入一些文字，在标签中显示，用颜色对话框设置文字的前景色和背景色，用字体对话框设置文字的字号及字体。要求：不能有Bug！9.1 公共对话框回顾一、添加“公共对话框”控件“MicroSoftCommonDialogControl6.0”二、使用“公共对话框”方法 所显示的对话框ShowOpen 显示“打开”对话框ShowSave 显示“另存为”对话框ShowColor 显示“颜色”
8、对话框ShowFont 显示“字体”对话框ShowPrinter 显示“打印”对话框ShowHelp 激活Windows帮助引擎92数据文件 数 数据 据文 文件 件在 在各 各种 种程 程序 序设 设计 计领 领域 域中 中，都 都占 占有 有极 极其 其重 重要 要的 的地 地位 位。一 一般 般而 而言 言，程 程序 序执 执行 行时 时用 用户 户所 所输 输入 入的 的数 数据 据都 都是 是存 存储 储在 在RAM RAM中 中，一 一旦 旦程 程序 序运 运行 行结 结束 束或 或电 电源 源中 中断 断，存 存储 储器 器中 中的 的数 数据 据也 也随 随之 之消 消失 失！
9、若 若想 想永 永久 久储 储存 存，在 在程 程序 序中 中必 必须 须将 将RAM RAM中 中的 的数 数据 据以 以文 文件 件的 的形 形式 式存 存储 储到 到外 外存 存储 储器 器中 中。当 当然 然，需 需要 要时 时程 程序 序也 也可 可以 以从 从文 文件 件中 中将数据读出。将数据读出。VB VB中的文件有三种：中的文件有三种：一、顺序文件一、顺序文件 二、随机文件二、随机文件 三、二进制文件三、二进制文件 一、访问顺序文件 顺序文件也就是普通的文本文件，它是将字符的编码按先后顺序一个接一个地存放在文件中，因此占用的磁盘空间很小。但是，当用户查找一个数据时，必须从文件
10、的开头一个一个地按顺序找，直到找到为止。因此，这种文件的缺点是数据访问的灵活性差。一、访问顺序文件 1 1顺序打开的打开与关闭 顺序打开的打开与关闭 打开 打开：Open Open For As For As 如：如：Open“Open“d:abctest.txt d:abctest.txt”for Output As#1”for Output As#1 关闭 关闭：Close Close 文件号列表 文件号列表 说明 说明：Input用来从文件中读取数据，若文件不存在，则产生一个错误。Output用来创建一个待写的文件；若文件已存在，则将覆盖。Append用追加的方式打开文件，若文件不存在，
11、则创建该文件。文件号：1至511。可用FreeFile函数检测可以使用的文件号。文件使用完后必须用Close语句关闭，否则将可能丢失数据！关闭文件时，若没有指明文件号，则关闭所有已打开的文件。一、访问顺序文件2 2顺序文件的读取操作 顺序文件的读取操作 文件必须是以Input方式打开的。Line Line Input#Input#语句 语句 格式：LineInput#FileNumber，VarName 功能：从指定的顺序文件中读出一行数据给一个字符串变量。Input#Input#语 语 句 句 格式：Input#FileNumber，VarList 功能：从指定的顺序文件中读取数据给变量序列
12、。Input Input 函数 函数 格式：Input（Length，FileNumber）功能：从指定文件中读取指定长度的字符串作为函数值返回。实 实 例 例：读文件的内容读至文本框。一、访问顺序文件3顺序文件的写入操作 文件必须是以Output或Append方式打开的。Print Print语句 语句 格式：Print#，,|;功能：将数据写入指定的文件当中。数值有前后空格。Write Write 语 语 句 句 格式：Write#，功能：将数据写入指定的文件当中。字符串有双引号。实 实 例 例：将文本框中所写的内容以文件的形式保存。例9-2：简易文本编辑器 缺陷：退出时或打开别的文件时，
13、对已修改的文件没有任何保护措施！案例程序1：通用电话号码本 案例程序2：限时（限制软件使用的时间）案例程序3：电子打铃器二、访问随机文件随机文件是可以按任意次序读写的文件，它是以记录为单位进行存储的，每个记录的长度相同，但具有不同的记录号。当写数据时，只要告诉记录号就可以将数据写入文件中的指定位置；而当读取数据时，只要知道记录号就可以立即找到所要的数据，因此这种方法访问数据速度快，但它占用的磁盘空间大。二、访问随机文件1.定义记录类型Type personinfo personinfo 姓名、电话、备注等信息的记录类型 Name as String*40 Phone as String*40
14、Comments as String*100End TypeDim X As personinfo personinfo2打开随机文件 Open 文件名 For random As 文件号 Len=记录长度 检测记录长度用Len函数：reclen=Len(Who)二、访问随机文件3读取随机文件 Get Get#文件号 文件号，变量名 变量名 记录号 记录号=2147483647，即Long类型数据的最大值。变量名 变量名必须为与文件中数据类型相同的记录类型。若省去记录号 记录号，则从当前位置读取；但要注意“，”不能省。4写入随机文件 Put Put#文件号 文件号，变量名 变量名 给文件写数据
15、之前，必须先将要写入的内容存入记录类型变量中。5.例93,Page 191三、访问二进制文件1 1 打开二进制文件 打开二进制文件 格式：格式：Open Open file file For For binary binary As#As#filenumber filenumber 例如：例如：Filenumber Filenumber=FreeFile FreeFile Open“Open“d:vbsin.exe d:vbsin.exe”For Binary As#”For Binary As#Filenumber Filenumber2 2 写入二进制文件 写入二进制文件 格式：格式：Pu
16、t Put#文件号 文件号，字节数 字节数，变量名 变量名 功能：将变量中的内容写入指定文件中的指定位置。功能：将变量中的内容写入指定文件中的指定位置。3 3从二进制文件中读取数据 从二进制文件中读取数据 格式：格式：Get Get#文件号 文件号，字节数 字节数，变量名 变量名 功能：从指定文件中的指定位置读取数据给指定的变量。功能：从指定文件中的指定位置读取数据给指定的变量。二进制文件是以字节为单位进行访问的，文件打开后可以在任 二进制文件是以字节为单位进行访问的，文件打开后可以在任何字节位置进行读写操作，所以二进制文件是最灵活的。何字节位置进行读写操作，所以二进制文件是最灵活的。三、访问
17、二进制文件4.4.举例：举例：窗 窗 体 体Click Click 之 之 后 后，将 将15 15 这 这 五 五 个 个 数 数 据 据 以 以 二 二 进 进 制 制 形 形 式 式 写 写 入 入Btest.dat Btest.dat 文 文 件 件 中 中，随 随 后 后 以 以 同 同 样 样 方 方 式 式 读 读 出 出。并 并 在 在 消 消 息 息框中将其 框中将其 显 显 示出来。最后将 示出来。最后将 该 该 文件 文件 删 删 除。除。案例程序 案例程序4 4：限次（限制软件使用的次数）限次（限制软件使用的次数）92数据文件 回顾一、顺序文件一、顺序文件 二、随机文件
18、二、随机文件 三、二进制文件三、二进制文件 9.3 文件系统控件 VB提 供 了 三 个 与 文 件 有 关 的 控 件，这 些 控 件 是 制 作 文 件 对 话框时必不可少的工具。二、目录列表框：DirectoryListBox三、文件列表框：FileListBox一、驱动器列表框：DriveListBox 一、驱动器列表框:DriveListBox11重要属性重要属性 Drive Drive属性：设定或读取当前驱动器的名称。属性：设定或读取当前驱动器的名称。代码中设定方法：代码中设定方法：驱动器列表框名 驱动器列表框名.Drive=.Drive=盘符 盘符 Drive1.Drive=E:
19、Drive1.Drive=E:22重要事件重要事件 Change Change 事件：当前 事件：当前 驱动 驱动 器 器 变 变 更 更 时发 时发 生。生。二、目录列表框DirectoryListBox 1重要属性 Path Path属性：设定或读取当前目录的完整路径。代码中设定方法：目录列表框.Path=路径 Dir1.Path=E:vb 2 重要事件 Click Click事件和Change Change事件。三、文件列表框FileListBox1重要属性Path Path属性：设定当前目录。代码中设定方法：文件列表框.Path=路径FileName FileName属性：传回所选定的
20、文件名称。Pattern Pattern属性：设定文件名的过滤方式，即文件通配符。代码中设定方法：文件列表框.Pattern=通配符2案例程序案例程序5：简易音乐播放器 案例程序6：我的点歌台 案例程序7：图片自动连续显示 案例程序8：成批更改文件名案例程序9：打印保存目录名称补充：文件操作类语句及函数1.FreeFile函数得到一个在程序中没有使用的文件号。2.Eof函数格式：Eof(filenumber)功能：检测文件是否结束，结束时返回True。3.ChDir语句格式：ChDir path功能：改变当前目录。4.ChDrive语句格式：ChDrive Drive功能：改变当前盘。5.Mk
21、Dir语句格式：MkDir path功能：建立子目录。6.RmDir语句格式：RmDir path功能：删除子目录。7.FileCopy语句格式：FileCopy 源文件名，目标文件名功能：复制文件。8.Name语句格式：Name 旧名称 As 新名称功能：对文件或目录进行更名。9.Kill语句格式：Kill Pathname功能：删除文件。10.SetAttr语句格式：SetAttr 文件名，Attributes功能：设置文件属性。vbNormal、VbReadOnly、vbHidden、vbSystem补充：文件操作类语句及函数11.CurDir 11.CurDir函数 函数 格式：格式：
22、CurDir CurDir Drive Drive 功能：返回指定盘的当前路径。功能：返回指定盘的当前路径。12.FileLen 12.FileLen 函数 函数 格式：格式：FileLen(pathname FileLen(pathname)功能：返回指定文件的长度。功能：返回指定文件的长度。13.Shell 13.Shell 函数 函数 格式：格式：Shell(pathname Shell(pathname，windowstyle windowstyle)功能：调用指定的应用程序。功能：调用指定的应用程序。举例：调用写字板并打开指定的文件 举例：调用写字板并打开指定的文件 Private
23、Sub Command1_Click()Private Sub Command1_Click()Shell“Shell“wordpad wordpad e:1.txt”,1 e:1.txt”,1 End Sub End Sub补充：文件操作类语句及函数9.3 文件系统控件 回顾 一、驱动器列表框DriveListBox 二、目录列表框DirectoryListBox 三、文件列表框FileListBox 四、文件操作类语句及函数第9章文件管理回顾 9.1公共对话框9.2数据文件9.3文件系统控件9.4文件系统对象*作业：1Page208：42Page208：53Page208：64Page208：75Page208：8