Visual Basic应用任务教程课件vb-6

【任务1】选择图片效果描述

建立一个窗体如图，窗体上有驱动器列框、文件夹列表框、文件列表框，而且这三个控件是保持同步的，窗体上还有一个标签控件和一个图像框控件，当选中一个图形文件时，把该文件的图片显示在图像框中，同时把文件名显示在标签上。【任务1】选择图片设计分析

要实现三个文件系统控件保持同步。即选择驱动器列表框中的驱动器时，在目录列表框中显示当前驱动器下的文件夹，在目录列表框中打开某个文件夹时，文件列表框中显示目录列表框中打开的文件夹中的文件。要想使目录列表框中显示的是驱动器列表框中选中的驱动器中的目录，则要在驱动器列表框的Change事件过程中，进行对目录列表框的Path属性进行设置，而要在文件列表框中要显示目录列表框中选定目录中的文件时，则要在目录列表框的Change事件中对文件列表框的Path属性进行设置。【任务1】选择图片1．创建界面按题目要求创建界面2．过程代码编写并输入过程代码完成步骤【任务1】选择图片知识链接文件系统控件包括驱动器列表框(DriverListBox)、目录列表框(DirListBox)和文件列表框(FileListBox)。文件系统控件可以组合使用，也可以单独使用。一、驱动器列表框(DriveListBox)驱动器列表框是一个下拉式列表框，用于显示驱动器列表。默认状态下显示当前驱动器名，程序运行时用户可从列表中选择一个有效的驱动器标识符或输入任何有效的驱动器标识符。【任务1】选择图片(1)Drive属性：用于返回或设置驱动器列表框中所显示的驱动器盘符。只能在程序代码中设置。例如：Drive1.Drive="C:“(2)Change事件：当驱动器列表框控件中盘符改变时触发该事件。利用Change事件可将该控件与文件夹列表框控件一起使用，驱动器盘符改变时，文件夹列表框控件中所显示的文件夹也作相应改变。【任务1】选择图片二、目录列表框(DirListBox)目录列表框用于显示当前驱动器的目录结构。(1)Path属性：用于返回或设置目录列表框控件的当前目录。该属性设计时不可用，只能在代码中设置。例如：Dir1.Path="C:\windows"(2)Change事件：用户改变目录列表框中的当前目录时触发该事件。利用Change事件可将该控件与文件列表控件一起使用，选定目录列表控件中的某一目录，文件列表控件则显示此目录中的文件。【任务1】选择图片三、文件列表框(FileListBox)文件列表框用于显示当前目录下的文件。(1)FileName属性：返回或设置选定文件的文件名(不包括驱动器和和路径)。(2)ListCount属性：返回文件列表中的文件总数。(3)ListIndex属性：返回或设置选定文件在列表中索引值(0～ListCount-1)。【任务1】选择图片(4)List属性：一个字符串数组，其成员为控件中显示的文件，List属性通常与ListCount属性、ListIndex属性结合使用以访问列表中的文件。

(5)Path属性：返回或设置文件列表框控件所对应的文件夹，在该控件上显示的文件就是由Path属性所指定的文件夹下的文件。如果不设置，Path属性的默认值为工程所在的路径。(6)Pattern属性：返回或设置控件中显示的文件类型，默认为*.*。【任务1】选择图片四、保持各文件系统控件的同步若要使驱动器列表控件、目录列表控件、文件列表控件保持同步，需要如下两个事件过程：PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub【任务1】选择图片五、选择文件名在文件列表框中选定的文件，若要取得所选文件的完整文件名，即包含路径的文件名，需要下面的事件过程。PrivateSubFile1_Click()IfRight(Dir1.Path,1)="\"ThenchoiceFile=Dir1.Path+File1.filenameElsechoiceFile=Dir1.Path+"\"+File1.filenameEndIfEndSub。【任务2】文件操作设计程序如图，窗体上有三个同步的文件系统控件，三个命令按钮。在文件列表框中选择一个文件后，单击“删除”按钮能删除文件，单击“移动”按钮在弹出的对话框中输入目标位置路径后能移动文件，单击“重命名“按钮时能对文件进行重命名。效果描述

【任务2】文件操作三个文件系统控件保持同步我们已经能够完成，对选定文件的进行删除、移动和重命名操作，需要用到VB的文件操作语句Kill、FileCopy、Name等。这样文件操作语句中用到的文件名都是包含完整路径的文件名，而文件列表框的FileName属性值指定的是不含路径的文件名，这就要用到前面学习的选择文件名的方法。设计分析

【任务2】文件操作1．创建界面按题目要求创建界面2．过程代码编写并输入过程代码完成步骤【任务2】文件操作VB提供了文件的删除、拷贝、移动和重命名等执行这些操作的相应语句。1．文件的删除(KILL语句)格式：Kill<文件名>例如：Kill“D:\temp\*.*”2．文件的拷贝(FileCopy语句)格式：FileCopy<源文件名>，<目标文件名>例如：FileCopy"e:\pmt\xjda.txt","d:\tmp\xjda.txt"知识链接【任务2】文件操作3．文件的重命名(Name语句)格式：Name<原文件名>AS<新文件名>例如：Name"e:\asd\xjda.txt"As"e:\asd\tech.txt"4．改变当前目录(ChDir语句)格式：ChDir<路径>5．创建新目录(MkDir语句)格式：MkDir<路径>6．删除目录(RmDir语句)格式：RmDir<路径>【任务3】读出学生信息效果描述

假设当前目录中有一个名为“student.txt”的文本文件，内容左图所示，单击窗体时读出student.txt文件中的数据，并将读出数据输出到窗体上。如右图所示。【任务3】读出学生信息设计分析

计算机处理的数据都是以文件形式存放的，VB处理的文件主要有顺序文件和随机文件。不管是什么类型的文件，对文件操作之前必须先用Open语句打开文件。顺序文件可以用Input语句、LineInput语句和Input函数按顺序从文件中读取数据，一般用循环控制读取过程，用EOF()函数判断记录指针是否到文件尾。【任务3】读出学生信息完成步骤1．创建界面按题目要求创建界面2．过程代码编写并输入过程代码【任务3】读出学生信息知识链接一、文件的基本概念1．文件说明操作系统都是以文件为单位管理数据的。2．文件结构VB文件由记录组成，记录由字段组成，字段由字符组成，其含义分别如下：字符(Character)：是构成文件的最基本单位。字段(Field)：也称域。它由若干个字符组成，用来表示一项数据。记录(Record)：是一组相关字段组成。文件(File)：文件由记录构成。【任务3】读出学生信息3．文件分类文件分为顺序文件、随机文件和二进制文件。(1)顺序文件：是普通的正文文件。(2)随机文件：随机文件中的所有记录是等长的，每一个记录都有一个记录号，只要指出记录号，就可以直接对该记录进行读写。(3)二进制文件：二进制文件是最原始的文件类型，它直接把二进制码存放在文件中。【任务3】读出学生信息二、顺序文件的打开与关闭打开顺序文件格式：Open<文件名>For打开模式As[#]<文件号>例如：Open"student.txt"ForOutputAs#1关闭顺序文件格式：Close[[#]<文件号列表>]例如：Close

#2关闭文件号为2的文件。【任务3】读出学生信息三、读顺序文件1．LineInput语句格式：LineInput#<文件号>,<变量名>例如：LineInput#3,s1读出一行送入变量s1中。2．Input语句格式：Input#<文件号>,<变量列表>例如：Input#3,s1,s2,s3读出3个数据，送入变量s1，s2，s3中。3．Input函数格式：Input（整数,[#]<文件号>）例如：mystr$=Input(10,#3)读出10个字符，赋给变量

【任务3】读出学生信息四、文件操作常用函数1．LOF函数格式：LOF(<文件号>)功能：返回文件的字节数。2．EOF函数格式：EOF(<文件号>)功能：返回一个表示文件指针是否到达文件尾的逻辑值。【任务4】保存学生信息效果描述

设计一个程序，如图所示，单击“录入数据”命令按钮能把学生信息存入磁盘文件，单击“显示数据”命令按钮能把磁盘中的学生信息读出并输出到窗体上。学生信息包括学号、姓名、性别、年龄、电话等。【任务4】保存学生信息设计分析

把学生的信息写入磁盘文件，首先要以Output模式打开或新建顺序文件，然后通过InputBox函数输入学生的信息，再用Write语句或Print语句将输入的学生信息写入磁盘文件。从磁盘上读出学生信息的方法前面已经学过。【任务4】保存学生信息完成步骤1．创建界面按题目要求创建界面2．过程代码编写并输入过程代码【任务4】保存学生信息知识链接写顺序文件1．Print语句格式：Print#<文件号>,[输出项列表]例如：PrivateSubForm_Click()Open"e:\student.txt"ForOutputAs#1Print#1,"001","李萍","女"Print#1,"002","张明明","男"Print#1,"003","王义民","男"Close#1EndSub【任务4】保存学生信息2．Write语句格式：Write#<文件名>,[输出项列表]例如：PrivateSubForm_Click()Open"e:\student.txt"ForAppendAs#1Write#1,"004","李萍","女"Write#1,"005","张大明","男"Write#1,"006","王可民","男"Close#1EndSub【任务5】读取学生成绩效果描述

假设当前目录下有一个随机文件“学生成绩表.dat”，它的记录结构是：姓名、性别、民族、成绩1、成绩2、成绩3。现编写一个应用程序要读取这个文件中的记录，并将记录内容显示到如图所示的窗体中。【任务5】读取学生成绩设计分析

随机文件以定长为记录单位，因而本程序在打开随机文件进行读取操作之前，应先定义一个记录类型，用于对文件进行读取。记录类型定义一般放在标准模块文件中，记录类型定义之后，还需要定义用来读取随机文件记录的变量。随机文件的读操作通过GET语句实现。本程序读取一个指定记录并显示在文本框中通过一个过程完成。【任务5】读取学生成绩完成步骤1．创建界面按题目要求创建界面2．过程代码编写并输入过程代码【任务5】读取学生成绩知识链接一、定义数据类型从随机文件中读取的是记录中的数据信息，所以用户必须定义一个记录类型

格式如下：Type<自定义数据类型名><数据元素名1>AS类型

<数据元素名2>AS类型

……EndType【任务5】读取学生成绩二、随机文件的打开与关闭1．打开随机文件格式：Open<文件名>[ForRandom]As[#]<文件号>Len=<记录长度>例如：Open"e:\employee.txt"ForRandomAs#2Len=202．关闭随机文件与顺序文件相同，Close语句也用于关闭随机文件。【任务5】读取学生成绩三、读随机文件随机文件的读操作通过