第9章界面设计案例.ppt

1、界面设计,1、菜单编辑器“工具”-“菜单编辑器”（1）下拉式菜单（2）菜单的可用与不可用Enabled属性决定可用与不可用（3）弹出式菜单PrivateSubForm_MouseUp()PopupMenueditEndSub,通用对话框,属于控ActiveX件，MicrosoftCommonDialogControl6.06种：打开、另存为、颜色、字体、打印、帮助（不能真正实现上述功能，只提供信息，需编程实现）一、共有属性及方法1.显示通用对话框,（1）Show方法（2）Action属性Action属性方法显示的对话框1ShowOpen打开2ShowSave另存为3ShowColor颜色4Sh

2、owFont字体,二、“文件”对话框打开、保存。仅能获取文件名，并非真正打开、保存。1.调用通用对话框名.ShowOpen通用对话框名.ShowSave2.相关属性（1）FileName获取选定（或输入）的文件名（含路径），语法：控件名.FileName,（2）Filter文件过滤器（预定类型）指定在“文件类型”列表框中显示的内容,语法：文件说明|文件类型例：“可执行文件（*.exe）|*.exe|所有文件（*.*）|*.*”（3）FilterIndex文件类型的默认设置，与Filter配合。0、1均为第1项，其他按位次。,（4）InitDir对话框初始目录，缺省为当前目录（5）FileTit

3、le文件名，不含路径（6）DefaultExt默认扩展名三、颜色对话框1.调用通用对话框名.ShowColor2.相关属性Color：颜色值前两个属性较常用,四、字体对话框1.调用通用对话框名.ShowFont2.相关属性（1）Flags此属性必须设置，否则程序出错。（2）Font属性组字体名、大小、样式（下划线、删除线、粗体、斜体）（3）Color属性字体颜色。Flags属性中必须包含cdlCFEffect,9.2菜单设计一、菜单编辑器1.打开菜单编辑器方法1：工具菜单编辑器方法2：右击窗体菜单编辑器方法3：单击工具栏“菜单编辑器”按钮（左边第3个）（菜单项重要属性：名称、标题）,2.创建菜

4、单项（1）输入标题、名称输入标题输入名称“下一个”或“插入”（2）设置其他属性有效、可见、复选（3）调整顺序、级别3.分隔菜单项在“标题”框数入“”名称自定,三、弹出式菜单（即右键菜单）菜单下至少有一个子菜单项。（事先在菜单编辑器中设计，可隐藏）1.调用格式对象.PopupMenu菜单名，标志，x，y（标志：弹出菜单的位置、性能；x、y位置坐标。2.相关事件MouseUp或MouseDown,第10章文件,本章要点：掌握文件系统控件。掌握VB中文件的概念、种类及其结构；掌握顺序文件的操作：打开、读/写、关闭；,了解随机文件的操作：打开、读/写、关闭；了解文件操作的常用的语句和函数。,101文件

5、系统控件,VB提供了3种可直接浏览系统目录结构和文件的控件：驱动器列表框、目录列表框、文件列表框。,10.1.1驱动器列表（DriveListBox）驱动器列表框（DriveListBox）控件是一种下拉式列表框，通常只显示当前驱动器名称，单击其右边向下箭头，就会下拉出计算机拥有的所有磁盘驱动器，供用户选择。如图所示。,1重要属性Drive属性是驱动器列表框控件最重要和常用的属性，在运行时返回或设置所选定的驱动器。该属性在设计时不可用,只能在程序中被引用或设置。使用格式：object.Drive=其中：Object：对象表达式，其值是驱动器列表框的对象名。：用来表示驱动器名的字符串表达式。,例

6、如：Drive1.drive=“D:”表示在驱动器列表框中选中D盘。可以付给Drive属性一个字符串，但只有第一个字符有效。如果当前计算机上没有指定的驱动器，则会出错。2重要事件Change事件在程序运行时，当选择一个新的驱动器或通过代码改变Drive属性的设置时都会触发驱动器列表框的change事件发生。PrivatesubDrive1_change()Dir1.path=Drive1.DriveEndsub,10.1.2目录列表框（DirListBox）目录列表框（DirListBox）控件用来显示当前驱动器目录结构及当前目录下的所有子文件夹（子目录），供用户选择其中一个目录作为当前目录，

7、如图10-3所示。在目录列表框中，如果用鼠标双击某个目录，就会显示出该目录下的所有子目录。,图10-3目录列表框,图10-4WINDOWS子目录结构,1常用属性Path属性是目录列表框控件的最常用的属性，用于返回或设置当前路径。该属性在设计时是不可用的。使用格式：Object.Path=其中：Object：对象表达式，其值是目录列表框的对象名。：用来表示路径名的字符串表达式。例如，Dir1.Path=C:Mydir。缺省值是当前路径。,2重要事件Change事件与驱动器列表框一样，在程序运行时，每当改变当前目录，即目录列表框的Path属性发生变化时，都要触发其Change事件发生。Privat

8、esubDir1_change()File1.path=Dir1.pathEndsub,10.1.3文件列表框（FilelistBox）文件列表框（FileListBox）控件用来显示Path属性指定的目录中的文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。1.常用属性Pattern属性用于返回或设置文件列表框所显示的文件类型。可在设计状态设置或在程序运行时设置。缺省时表示所有文件。设置形式为：Object.Pattern=valueObject：指文件列表框名称。Value：是一个用来指定文件类型的字符串表达式，并可使用包含通配符（“*”和“？”）。,例如：File1.Patte

9、rn=*.txtFile1.Pattern=*.txt;*.DocFile1.Pattern=?.txt注意：要指定显示多个文件类型，使用“；”为分隔符重新设置Pattern属性引发“PatternChange”事件。,例10-1：使用三种文件系统控件组合起来，同步显示计算机中的文件系统。具体步骤如下：（1）新建一个窗体。（2）在窗体上添加驱动器列表框Drive1,目录列表框Dir1，文件列表框File1和组合框Combo1,如图10-6所示。,（3）在驱动器列表框、目录列表框的Change事件中添加代码。当驱动器列表框中的选择发生变化时，目录列表框和文件列表框也应同步变化，显示相应的内容。所

10、以，要在运行时改变目录列表框和文件列表框的Path属性。编写代码如下：PrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSub,（4）编写组合框的相关代码。组合框决定文件列表框中显示的文件类型。即当用户在组合框中选定一个文件类型后，文件列表框中就只显示该类型的文件。组合框的项目在窗体的Load事件过程中装入，相关代码过程如下：PrivateSubForm_Load()Item=所有文件(*.*)Combo1.AddItemItem+Space(20

11、-Len(Item)+*.*,Item=文件窗体(*.frm)Combo1.AddItemItem+Space(20-Len(Item)+*.frmItem=位图文件(*.bmp)Combo1.AddItemItem+Space(20-Len(Item)+“*.bmpItem=文本文件(*.txt)Combo1.AddItemItem+Space(20-Len(Item)+*.txtEndSubPrivateSubCombo1_Click()File1.Pattern=Mid(Combo1.Text,21)EndSub,112文件及其结构,10.2.1文件及其结构文件是存储在外部介质上数据的集

12、合，它是按名进行存取的。磁盘文件是由数据记录组成。记录是计算机处理数据的基本单位，它由一组具有共同属性相互关联的数据项组成。在数据处理中，表示一件事或一个人的某些属性就可构成一个记录。,例如,学生的成绩统计表，每个学生的学生成绩等信息组成一个记录，可以由学号、姓名、各课的成绩、总分等数据项组成、如下所示。,数据项,10.2.2文件分类根据文件的存取方式及其组成结构，将文件分成3种类型：（1）顺序文件（2）随机文件（3）二进制文件,对于不同类型的文件，访问的方式也不同。1顺序文件顺序文件（SequentialFile）是普通的文本文件。顺序文件中的记录按顺序一个接一个地排列。读写文件存取记录时，

13、都必须按记录顺序逐个进行。一行一条记录（一项数据），记录可长可短，以“换行”字符为分隔符号。,2随机文件随机文件（RandomAccessFile）是可以按任意次序读写的文件，其中每个记录的长度必须相同。在这种文件结构中，每个记录都有其唯一的一个记录号，所以在读取数据时，只要知道记录号，便可以直接读取记录。,3二进制文件二进制文件（Binaryfile）是字节的集合、它直接把二进制码存放在文件中。除了没有数据类型或者记录长度的含义以外，它与随机访问很相似，如果把二进制文件中的每一个字节看作是一条记录的话，则二进制模式就成了随机模式。二进制访问模式是以字节数来定位数据，在程序中可以按任何方式组织

14、和访问数据，对文件中各字节数据直接进行存取。任何文件都可以用二进制模式访问。,113顺序文件的打开、读写,在VB中，对于顺序文件、随机文件、二进制文件的操作通常都有3个步骤：（1）打开文件（2）访问文件（3）关闭文件,11.3.1顺序文件的打开与关闭1打开顺序文件打开文件是任何类型文件进行读写的第一步。打开文件实质上就是将文件读入内存。其使用格式如下：Open“文件名”For模式As#文件号Len=记录长度,（1）文件名：是指要访问文件的路径及名称，如果文件处于当前驱动器的当前文件夹下，也可以只写文件名。（2）模式：指定文件的打开方式。有Input,Append,Output,Random,B

15、inary五种方式。（3）文件号：是一个介于1511之间的整数，文件名前面的“”号可有可无。打开文件时指定文件号，文件关闭后释放文件号。,2、关闭文件Close语句对打开的文件进行各种操作后，必须将其关闭，否则将造成数据的丢失。文件被关闭以后，它所占用的文件号会被释放，可供以后的Open语句使用。使用格式如下：Close#文件号列表其中：文件号：可选项，为文件号列表，如：#1,#2,#3，如果省略，则将关闭Open语句打开的所有活动文件。例如：Close#1,#2,#3关闭1号、2号、3号文件Close关闭所有打开的文件,10.3.2创建新的顺序文件Open文件名ForOutputAs#文件号

16、write#文件号，数据列表close#文件号,说明：forOutput打开方式。如果该文件存在，则原来已有的数据被抹去，即新写上的数据将原有的数据覆盖。如果该文件不存在，则创建一个新的顺序文件。write#文件号“数据列表”是准备写入到文件中的数据，可以是变量名也可以是常数，数据之间用“，”或“；”隔开。Close#文件号关闭已打开的文件。,例1：创建一个新的顺序文为c:cj.txtPrivateSubCommand1_Click()Openc:cj.datForOutputAs#1Write#1,xh,vb,vc,vfpWrite#1,1,80,70,90Close#1Endsub,10.

17、3.3向顺序文件添加数据Open文件名ForAppendAs#文件号write#文件号，数据列表close#文件号说明：ForAppend对文件执行写操作时写入的数据将追加到文件尾部.,例如：将数据追加到c:cj.txt文件的尾部。PrivateSubCommand1_Click()Openc:cj.txtForAppendAs#1Write#1,2,60,70,80Close#1Endsub,10.3.4从已存在的顺序文件中读取数据Open文件名ForInputAs#文件号Input#文件号，变量名列表close#文件号说明：ForInput以读取方式打开文件。Input#文件号，该语句将从

18、文件中读出数据，并将读出的数据分别赋给指定的变量。,例2：从文件c:cj.txt中读出数据。PrivateSubCommand1_Click()Openc:cj.txtForInputAs#1Fori=1To3Input#1,a,b,cPrinta,b,cNextiClose#1EndSub,例10-3Print与Write语句输出数据结果比较。PrivateSubForm_Click()DimStrAsString,NumAsIntegerOpenD:Myfile.datForOutputAs1Str=ABCDEFGNum=11345Print#1,Str,NumWrite#1,Str,Nu

19、mClose#1EndSub,运行结果如图所示,例10-4编程把一个文本框中的内容，以文件形式存入磁盘。假定文本框的名称为Mytxt，文件名为Myfile.dat。方法1：把整个文本框的内容一次性地写入文件。OpenMyfile.datForOutputAs#1Print#1,Mytxt.TextClose#1,方法2：把整个文本框的内容一个字符一个字符地写入文件。OpenMyfile.datForOutputAs#1Fori=1Tolen(Mytxt.Text)Print#1,Mid(Mytxt.Text,i,1);NextiClose#1,例10-5编程将一文本文件的内容读到文本框.从现存

20、文件中读入数据，应以顺序Input方式打开该文件。然后使用Input#语句、LineInput#语句和Input()函数读入到程序变量中。,Input#语句使用格式如下：INPUT#文件号,变量列表LineInput#语句使用格式如下：LINEINPUT#文件号,字符串变量Input()函数使用格式如下：变量=INPUT$(读取字符数,#文件号),与读文件操作有关的几个函数:（1）Lof函数Lof函数将返回某文件的字节数。例如，LOF(1)返回#1文件的长度，如果返回0值，则表示该文件是一个空文件。（2）Eof函数Eof函数将返回一个表示文件指针是否到达文件末尾的标志。如果到了文件末尾，Eof

21、函数返回TRUE(-1)，否则返回FALSE(0)。,假定文本框名称为txtTest，文件名为MYFILE.TXT。可以通过下面三种方法来实现。方法1：一行一行读txtTest.TextOpenMYFILE.TXTForInputAs#1DoWhileNotEOF(1)LineInput#1,InputDatatxtTest.TexttxtTest.Text+InputData+vbCrLfLoopClose#1,方法2：一次性读txtTest.TextOpenMYFILE.TXTForInputAs#1txtTest.Text=Input(LOF(1),1)Close#1,方法3：一个个字符读DimInputDataasString*1txtTest.TextOpenMYFILE.TXTForInputAs#1Close#1,DoWhileNotEOF