Visual Basic程序设计郁春兰电子教案 第7章.ppt

1.1图像浏览器案例说明 利用VB中提供文件系统控件，可以很方便地对文件进行查看。 程序运行时，通过选择磁盘和目录定位图像文件，在文件列表框中选中图像文件后，在图片框中显示。运行效果如图7-1所示。 1.2 程序实现 界面设计： 建立一个新工程，在窗体上添加3个标签控件，1个驱动器列表控件，1个目录列表控件，1个文件列表控件和一个图片框控件，并按表7-1设置各控件的属性： 1.3 相关知识 1.驱动器列表框:是一个下拉式的列表框，提供了一个驱动器的列表。当单击右边的箭头时，则弹出显示计算机中的所有驱动器的下拉列表。 （1）主要属性：Drive属性，用于返回或设置运行时选择的驱动器。默认值为当前驱动器，改变Drive属性会触发Change事件。格式如下： 驱动器列表框名称.Drive[=驱动器名] （2）驱动器列表框的主要事件： 驱动器列表框的主要事件是Change， 1.3 相关知识 2.目录列表框：显示当前驱动器的目录结构，目录列表框从最高层目录开始，显示当前驱动器的目录结构， （1）目录列表框的主要属性：见表7-2 （2）目录列表框的主要事件：Change事件，当选择了一个新目录或通过代码改变了Path属性时触发该事件。 1.3 相关知识 3.文件列表框：显示当前目录中的部分或者全部文件。如果当前目录下的文件数量较多，自动在列表框中加上垂直滚动条。 （1）文件列表框的主要属性：3个重要的常用属性： Path属性：返回或设置运行时选择的路径以显示其下的文件，改变Dir属性会触发PathChange事件。 File1.Path= Dir1.Path Pattern属性：确定程序运行时，列表框中显示哪些类型的文件。它的缺省值为“*.*”，即显示所有文件的名字。在参数中还可以使用分号“；”来分割多种文件类型， File1.Pattern=“*.Txt” 在文件列表框中只显示.Txt文件。 FileName属性：设置所选文件的路径和文件名，如果没有文件被选中，FileName属性将返回0长度的字符串。改变本属性值可能会产生如下事件：PathChange，PatternChange，DblClick （2）文件列表框的主要事件：Click事件，DblClick事件。 1.4拓展知识 文件操作控件驱动器列表框、目录列表框和文件列表框，三种控件一般需要同步操作。 例如，假设驱动器列表框控件名为Drive1，目录列表框控件名为Dir1，文件列表框控件名为Fiel1，在代码窗口输入如下代码： Private Sub Drive1_Change() 驱动器列表框的Change事件 Dir1.Path=Drive1.Drive End Sub Private Sub Dir1_Change() 目录列表框的Change事件 File1.Path=Dir1.Path End Sub Private Sub File1_Click() 文件列表框的单击事件 SelectedFile = File1.Path \ File1.FileName End Sub 2.1文件操作器案例说明 本案例可以实现目录的创建、删除；文件的创建、重命名和删除的操作，每个操作成功后都给出相应的提示信息。程序运行效果如图7-4所示。其中点击创建文件按钮后弹出如图7-5所示的对话框，输入文件名后如图7-6。 2.2 程序实现 1.界面设计：建立一个新工程，在窗体上添加3个标签控件，1个驱动器列表控件，1个目录列表控件，1个文件列表控件、1个图片框控件并按[案例7-1]中的属性值设置它们的属性。另外再添加5个按钮控件。窗体和5个命令按钮控件按表7-3设置相应的属性： 2.代码设计： 2.3 相关知识 1.文件操作相关函数 （1）建立目录（文件夹）命令MkDir：MkDir “C:\temp ” 功能：在C盘下建立一个temp文件夹 （2）删除目录（文件夹）命令RmDir：RmDir “C:\temp ” 功能：删除C盘下的temp文件夹，且temp文件夹必须为空 （3）改变当前目录（文件夹）命令ChDir：ChDir “C:\temp ” 功能：把当前文件夹改为C:\temp （4）复制文件命令FileCopy：FileCopy “C:\temp\1.txt ”，“D:\2.txt” 功能：把C:\temp下的1.txt复制到D:盘并改名为2.txt （5）移动和重命名文件命令 Name…As…： 例如：Name “C:\temp\1.txt ” As “D:\2.txt” 功能：把C:\temp下的1.txt移动到D:盘并改名为2.txt 3.1成绩录入器案例说明 程序运行后，可以把用户输