《第 5 讲多重窗体、鼠标键盘、数据文件讲义》由会员分享，可在线阅读，更多相关《第 5 讲多重窗体、鼠标键盘、数据文件讲义（35页珍藏版）》请在金锄头文库上搜索。
1、多重窗体与环境应用,一个应用程序中有多个窗体，每个窗体有自己的界面和代码，完成不同的功能。 1. 添加窗体 通过工程|添加窗体命令，每个窗体有独立的Frm文件，同一工程不能有相同名称的窗体 。 2. 设置启动对象 通过工程|属性指定启动对象(缺省为第一个创建的窗体)。,建立多重窗体,窗体语句,(1) Load 窗体名称-装入窗体到内存(不显示) (2) Unload 窗体名称 或 Unload Me -从内存删除窗体 (3) 窗体名称.Show 模式 -显示窗体 模式为0：关闭才能对其它窗体进行操作 模式为1：可以同时对其它窗体进行操作 (4) 窗体名称. Hide -隐藏窗体,不同窗体间数据
2、的引用,(1)直接访问另一个窗体上的控件数据 另一个窗体名.控件名.属性 Text1 = Form2.Text1 + Form2.Text2 (2)访问另一个窗体中的全局变量 另一个窗体名.全局变量名,VB工程结构：,1.标准模块 标准模块也称全局模块或总模块，由全局变量声明、模块层声明及通用过程等几部分组成。其中全局声明放在标准模块的首部，因为每个模块都可能要求有它自己的具体唯一名字的全局变量。全局变量声明总是在启动时执行。,2.窗体模块 窗体模块包括3部分内容，即声明部分、通用过程部分和事件过程部分。在声明部分中，用Dim语句声明窗体模块所需要的变量，因而其作用域为整个窗体模块包括该模块内
3、的每个过程。注意，在窗体模块代码中，声明部分一般放在最前面，而通用过程和事件过程的位置没有严格的限制。,3.Sub Main过程 在一个含有多个窗体或多个工程的应用程序中，有时候需要在显示多个窗体之前对一些条件进行初始化，这就需要在启动程序时执行一个特定的过程。在Visual Basic中，这样的过程称为启动过程，并命名为Sub Main。 Sub Main过程在标准模块窗口中建立，其方法是，执行“工程”菜单中的“添加模块”命令，打开标准模块窗口，在该窗口中键入： Sub Main 然后按回车键，将显示该过程的开头和结束语句，然后即可在两个语句之间输入程序代码。,鼠标和键盘,KeyPress事
4、件,Shift),KeyDown与KeyUp事件,鼠标事件,鼠标光标,鼠标拖放,数据文件,文件的结构和分类,1文件结构 为了有效地存取数据，数据必须以某种特定的方式存放，这种特定的方式称为文件结构。 字符：是构成文件的最基本单位。 字段：也称域。字段由若干个字符组成，用来表示一项数据。 记录：由一组相关的字段组成。 文件：文件由记录构成，一个文件含有一个以上的记录。,2文件类型 根据不同的分类标准，文件可以分为不同的类型。 (1)根据数据性质，文件可分为程序文件和数据文件。 (2)根据数据的存取方式和结构，文件可分为顺序文件和随机文件。 (3)根据数据的编码方式，文件可以分为ASCII和二进制
5、数文件。,1. 记录-由若干个相互关联的数据项组成。 例如:由学生的学习成绩信息组成的记录。,2. 文件分类 文件是记录的集合，VB提供了三种访问模式 : 顺序访问模式：顺序文件，记录可长可短 随机访问模式：随机文件，记录的长度相同 二进制访问模式：二进制文件,(1) 顺序文件 按顺序依次把记录写入或读出来的文件。,文本文件：一行一条记录，记录可长可短，以换行符分隔记录。 (2) 随机文件 记录长度相同，根据记录号可直接访问任意一个记录。,(3) 二进制文件 直接把二进制码存放在文件中。,顺序文件,打开文件 Open 文件名 For 模式 As #文件号 模式：Output -进行写操作 In
6、put -进行读操作 Append -在末尾追加记录 文件号 1511 注意：文件名可以为字符串常量，也可以是字符变量。,顺序访问模式-写操作,写入数据使用语句Print和Write (1) Write Write #文件号，输出列表 写入文件的数据项之间有“,”并给字符串加上双引号。 例如： 写入到文件后格式：“One“,“Two“,123,Write #1, “One”, “Two”, 123,(2) Print Print # 文件号，输出列表 Print #语句功能与Write 基本相同，区别是写入文件的数据中，字符串不加双引号，数据之间没有“,”。 例如： 写入到文件后格式： One
7、 Two 123,Print #1，“One“，“Two“，123,关闭文件,输出语句是将数据送到缓冲区，关闭文件时才将缓冲区中数据写入文件。关闭文件形式： Close(#文件号) 例： Close(1) 关闭1号文件 如果省略了文件号，Close语句将关闭所有已经打开的文件 。,读操作,(1) Input #文件号，变量列表 从打开的顺序文件中读出数据并将数据赋给变量。 (2) LineInput #文件号, 字符串变量-读出一行数据 说明：读出的数据中不包含回车换行符 (3) EOF (文件号)-测试文件指针是否到文件末尾 (4) LOF (文件号)-测试文件的长度,随机文件,打开文件 O
8、pen 文件名 For Random As #文件号Len=记录长度 随机文件打开后，可以同时进行写入与读出操作。 记录长度默认值是128个字节。 关闭随机文件 Close(#文件号),随机文件的读写,Put#文件号，记录号，变量名 将一个记录变量的内容，写入所打开的磁盘文件中指定的记录位置处。如果忽略记录号，则在当前记录前插入一条记录。 Get #文件号，记录号，变量名 将指定的记录内容读入记录变量中。如果忽略记录号，则表示读出当前记录后的那一条记录。,文件系统控件,驱动器列表框DriveListBox,提供一个选择有效的磁盘驱动器，用来显示系统中所有有效磁盘驱动器的列表。 Drive属性：
9、该控件最重要的一个属性，用来改变缺省驱动器。其格式为： 驱动器列表框名称.Drive=驱动器名 Private Sub Form_load() Drive1.Drive=“e:“ 设置控件的缺省驱动器为E。 End Sub “驱动器名” 如果省略，则指当前驱动器。如果所选择的驱动器在当前系统中不存在，则产生错误。 每次重新设置驱动器列表框的Drive属性时，都将引发Change事件。,目录列表框 DirListBox,Path属性用于目录列表框和文件列表框，用来设置或返回当前驱动器的路径，属性的值是一个指示路径的字符串，例如“e:user“或c:PWIN95MEDIA“。其格式为： 窗体.目录
10、列表框文件列表框.Path=“路径“ 设置驱动器列表框和目录列表框同步（当改变驱动器时，目录列表框中的内容与之同步）： Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub,文件列表框FileListBox,根据path属性指定的目录，将文件定位并列举出来。 显示的文件的类型由pattern属性来决定，它的缺省值为“*.*”，即显示所有的文件。在代码中设置pattern属性的格式为： 窗体.文件列表框.pattern=属性值 如果省略“窗体”，则指当前窗体。如果省略“=属性值”，则显示当前文件列表框的pattern属性值。设置多种
11、类型文件时，两种类型中间用分号隔开 。 当pattern属性改变时，将产生Pattern_Change事件 Private Sub Form_load() file1.path=“c:windows“ 初始化控件的目录 End Sub,驱动器列表框、目录列表框、文件列表框三者的同步,Private Sub Drive1_Change() Dir1.Path = Drive1.Drive 设置 DirListBox 控件的路径与DriveListBox控件同步 End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path 设置 FileListBox控件的路径与 DirListBox控件同步 End Sub,end,
