VB教学课件第6章.pptVIP

第6章 文件的基本操作 6.1 文件系统控件 6.2 通用对话框 6.3 文件的读写操作 6.4 小结 6.1 文件系统控件 6.1.1 驱动器列表框 6.1.2 目录列表框 6.1.3 文件列表框 6.1.1 驱动器列表框 【实例6.1】窗体中有2个标签和1个驱动器列表框。程序运行时，将用户在驱动器列表框中所选驱动器名称显示在窗体下部的标签中。 操作步骤 （1）在工具箱中选取驱动器列表框图标 添加1个驱动器列表框，再添加其他所 需控件。 6.1.2 目录列表框 【实例6.2】窗体中有1个驱动器列表框、1个目录列表框和4个标签。程序运行时，将用户在驱动器列表框中所选驱动器的所有目录显示在目录列表框中，并将用户双击时所选中的目录显示在窗体下部的标签中。 操作步骤 目录列表框控件在工具箱中的图标是 。 6.1.3 文件列表框 【实例6.3】窗体中有3个标签、1个驱动器框、1个目录框和1个文件列表框。程序运行时，在文件列表框中显示用户所选驱动器及目录中的所有文件。 操作步骤 文件列表框控件在工具箱中的图标是 。 【实例6.4】制作图片浏览器。程序运行时，在组合框中选择显示图片的文件类型后，在文件列表框中自动列出当前所选驱动器及目录中的该类型文件名，用户双击某文件名后，立即在图像框中显示该图形文件。 操作步骤 （3）编写驱动器列表框的Change事件过程。 Private Sub drvList_Change() dirList.Path = drvList.Drive End Sub （4）编写目录列表框的Change事件过程。 Private Sub dirList_Change() filList.Path = dirList.Path End Sub （5）编写文件列表框的DblClick事件过程。 （6）编写窗体装载事件过程。 6.2 通用对话框 【实例6.5】修改实例6.4，使用通用对话框控件实现图形文件的选择。窗体中有1个图像框、1个命令按钮和1个通用对话框。单击“浏览”按钮，并在随后打开的“选择图形文件”对话框中选择某一图形文件，在图像框中显示该文件图形。 操作步骤 通用对话框控件的图标是 。 设置通用对话框的属性 【实例6.6】程序运行时，单击“字体”或“前景色”、“背景色”按钮可分别打开字体对话框和设置颜色对话框，并按对话框中的选项设置标签中文本。 操作步骤 Private Sub cmdFore_Click() dlgCtrl.ShowColor lblMsg.ForeColor = dlgCtrl.Color End Sub 【实例6.7】单击新建按钮时清空文本框，等待用户输入，同时新建按钮变成保存，且打开按钮不可用。单击保存按钮后文本框处于不可编辑状态，同时打开保存文件对话框，将文本框内容保存到指定文件中，此时保存按钮恢复成新建，且打开按钮可用。单击打开按钮时弹出打开文件对话框，并将用户所选txt文件内容显示在文本框中。 操作步骤 Private Sub cmdOpen_Click() txtFile.Text = dlgFile.DialogTitle = 打开文件 dlgFile.Filter = TXT文件|*.txt dlgFile.FilterIndex = 1 dlgFile.ShowOpen End Sub Private Sub cmdExit_Click() End End Sub 6.3 文件的读写操作 6.3.1 文件的概念 6.3.2 顺序文件的读写操作 6.3.1 文件的概念 文件 存储在外部介质（如磁盘）上的数据的集合。 按照数据在文件中的不同存储形式，将文件 分为文本文件和二进制文件。 文本文件 6.3.2 顺序文件的读写操作 顺序文件是指采用顺序存储方式存储的文本文件。 顺序文件中，数据按照其写入的顺序一个挨着一个地顺次排列。 为了读取文件中的第n个数据，必须先将排在前面的n-1个数据依次读出。 文件的读、写操作 读操作 将数据从文件中顺序读出，输入到计算机内存中 顺序文件的操作步骤 打开文件 读/写文件内容 关闭文件 使用Open语句打开文件 Open 文件名 For 文件打开方式 As #文件号 使用Open语句打开文件 Open 文件名 For 文件打开方式 As #文件号 使用Open语句打开文件 Open 文件名 For 文件打开方式 As #文件号 文件的写操作 Print