可视化程序设计实验指导、大纲.doc

可视化程序设计实验指导书 武汉理工大学信息工程学院目 录实验1 VB6.0 的基本编程方法和工具的使用.1.1 实验目的.1.2 相关知识.1.2.1 Visual Basic 6.0的特点 Visual Basic 6.0对环境的要求.1.2.2 Visual Basic 6.0的项目类别 1.2.3Visual Basic 6.0的开发环境1.3 实验项目1.3.1 编写显示“欢迎使用Visual Basic 6.0”的窗体程序.1.3.2 按照VB编程的基本步骤建立一个用于“商品销售计价”的窗体程序.实验2 数组与过程.2.1 实验目的2.2 相关知识2.3 实验项目2.3.1 设计一个简易计算器2.3.2 使用Timer函数设计用来暂停指定时间（秒）的Sub过程.2.3.3 可间隙计时器.实验3 文件管理.3.1 实验目的.3.2 相关知识3.2.1 随机文件与顺序文件读写过程的区别.3.2.2 使用Output选项打开一个已存在的文件会发生的情况3.2.3 使用Append选项写文件会发生的情况.3.3 实验项目.3.3.1 创建简单的文本编辑器.3.3.2 设计图片搜索器实验4 菜单与工具栏4.1 实验目的.4.2 相关知识4.2.1 M DI主窗体4.2.2 菜单4.2.3 工具栏.4.2.4 其他控件.4.3 实验项目实验5 图形与图像.5.1实验目的.5.2相关知识.5.2.1 坐标系统.5.2.2 绘图方法.5.3 实验项目.实验6 综合实验数据处理与报表打印.6.1实验目的.6.2相关知识.6.2.1 数据库知识.6.2.2 数据环境设计器.6.2.3 数据报表设计器.6.2.4 TreeView控件.6.3实验项目.可视化程序设计实验教学大纲实验1 BV6.0 的基本编程方法和工具的使用1.1 实验目的了解VB可视化编程的基本概念(对象的属性、事件和方法)；VB可视化编程的环境(集成开发环境、控件工具箱、工程窗口、属性窗口、窗体设计器、代码窗口、立即窗口、窗体布局窗口)；VB可视化编程的步骤(新建一个工程、添加控件、设置属性、编写代码、运行工程、修改工程、保存丁程的编译)：控件的画法(在窗体上画一个控件、控件的缩放和移动、控件的复制与删除、控件的布局)。1.2相关知识1.2.1 Visual Basic 6.0的特点l可视化：Visual Basic是可视化编程的先驱与典范，它所展现出来的可视性风格已经成为诸多可视化集成开发工具的参照标准，可视化环境下创作前端界面就如同做拼图游戏那样简单。2面向对象：面向对象编程是建立在类模块基础上的，通过类而构造应用系统是Visual Basic 6.0最有效的手段，这个特点尤其体现在它所具有的基于部件的编程方法上。3部件编程。基于部件的编程方法是分布式构架思想体系的具体化。在Visual Basic中进行部件编程是通过微软的部件对象模型（COM，Component Object Model）实现的。4事件驱动。基于事件编程是通过Visual Basic创建软件系统时最主要的手段之一。基于事件驱动的编程方法体现在：程序的执行是依靠系统能够识别的触发事件启动的。用户操作、系统消息以及程序等各种因素都可能触发事件。1.2.2 Visual Basic 6.0对环境的要求为运行Visual Basic 6.0,必须在计算机上配置相应的硬件和软件系统。1操作系统：Microsoft Windows NT Server 4.0或更高版本，或Microsoft WindowsNT Workstation 4.0或更高版本，或Microsoft Windows 95或更高版本。2CPU：486DX/66 MHz或更高的处理器。3内存：Windows 95/98下要求24MB以上，Windows NT下要求32MB以上。4 磁盘：标准版典型安装48MB、完全安装80MB，专业版典型安装48MB、完全安装128MB，企业版典型安装128MB，完全安装147MB。 1.2.3 Visual Basic 6.0的项目类别1标准EXE项目用来创建Windows环境下的标准可执行程序。2ActiveX DLL项目用来创建能够与应用程序运行在同一进程内的动态对象函数库（ActiveX DLL部件）。3ActiveX EXE项目用来创建在应用程序进程外工作的服务器程序(ActiveX EXE部件）。4ActiveX控件项目用来创建可视开发环境下的前端界面元素。5ActiveX文档项目用来创建可通过IE浏览器工作，但并不依赖于HTML脚本的Internet客户端应用程序。6DHTML应用程序项目用来创建通过IE浏览器工作的基于HTML脚本，但已被编译的Internet客户端应用程序。7IIS应用程序项目用来创建基于ASP和HTML脚本，但已被编泽的Internet服务器应用程序。1.2.4 Visual Basic 6.0的开发环境图1-1Visual Basic 6.0集成开发环境Visual Basic 6.0集成升发环境由各种可操作的成分组成，包括：菜单、工具栏、工具箱、窗体设计器、属性窗口、工程管理器、代码编辑器、对象浏览器、窗体布局窗口、编程环境设置窗口等，它们是用户实施可视化开发所必须的成分，如图1-1所示。1窗体设计器：用于设计程序中的用户界面。2工具箱：用于提供设计界面时所需要的诸多对象化元素。3工程资源管理器：用于管理工程中的文件，包括：窗体文件、标准模块文件、类模块文件等。4属性窗口：用于设置当前工程中可视对象的属性值。1.2.5 Visual Basic 6.0的菜单Visual Basic 6.0主要有：文件、编辑、视图、工程、格式、运行、查询、图表、工具、外接程序、窗口、帮助等菜单。1文件菜单文件菜单涉及新建、打开、添加、移去、保存文件和编译程序等一系列操作。包含：新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存文件、文件另存为、编译工程等菜单项。2编辑菜单编辑菜单用于编辑操作，以方便对工程进行修改。包含：撤消、重复、剪切、复制、粘贴、删除、全选、查找、缩进、凸出、属性方法列表、快速信息、参数信息等菜单项。3视图菜单视图菜单用于显示各种窗口。包含：代码窗口、对象窗口、定义、最后位置、对象浏览器、立即窗口、本地窗口、监视窗口、工程资源管理器、属性窗口、窗体布局窗口、工具箱、工具栏等菜单项。4工程菜单工程菜单用于为当前工程创建模块、引用对象或提供各种设计器。包含：添加窗体、添加MDI窗体、添加模块或添加类模块、添加用户控件、添加属性页、添加用户文档、添加Microsoft UserConnection，添加Data Report,添加文件、移除、引用、部件、工程属性等菜单项。5格式菜单格式菜单用于界面设计，可以使得界面中的控件按照一定的规则有序排列。包含：对齐、统一尺寸一、按网格调整大小、水平间距、垂直间距、居中对齐、顺序、锁定控件等菜单项。6调式菜单调试菜单用于调试、监视程序。包含：逐语句、逐过程、跳出、运行到光标处、添加监视、编辑监视、快速监视、切换断点、清除所有断点、设置下一条语句、显示下一语句等菜单项。7运行菜单运行菜单用于执行程序。包含：启动、全编译执行、中断、结束、重新启动等菜单项。8工具菜单工具菜单提供了诸多工具，用于编辑程序或设置编程环境。包含：添加过程、过程属性、菜单编辑器、选项、发表等菜单项。9.外接程序菜单外接程序菜单用于连接外部管理器。包含：可视化数据管理和外接程序管理器菜单项。1.3 实验项目1.3.1 编写显示“欢迎使用Visual Basic 6.0”的窗体程序 1实验要求（1）启动Visual Basic 6.0。（2）建立一个简单的窗体程序，窗体上显示有“欢迎使用Visual Basic 6.0”的文字，通过用鼠标单击窗体，可以将运行中的窗体关闭。 2实验步骤（1）启动Visual Basic 6.0，选择“标准EXE”项目类型建立一个新的工程，如图1-2。（2）在工程资源窗口中选择“工程1”图标，然后通过工程属性窗口将该工程名称由默认名“工程1”改为Welcome。（3）通过窗体属性窗口将窗体名称由默认名Form l改为frmWelcome 。（4）用鼠标从工具箱内选择类名为Label的标签控件，将其拖入设计窗体内。图l-2启动Visual Basic 6.0（5）通过工程属性窗口将标签控件的名称由默认名Label l改为1blWelcome,并设置其Coption属性值为“欢迎使用Visual Basic 6.0”。图1-3所示为该窗体程序的开发环境。图1-3 Welcome程序的开发环境（6）通过在工程资源窗口中单击“查看代码”图标，或在设计窗体Form1上单击鼠标右键打开移动菜单并选择“查看代码”菜单项，或用鼠标双击设计窗体，由此进入该窗体的源程序代码编辑环境。图1-4 frm Welcome窗体代码（7）通过在代码编辑窗口中的对象框内选择Form，在事件框内选择Click,可以自动建立起窗体的Click事件框架。 Private Sub Form_Click( ) End Sub（8）通过在Form_Click事件过程中添加代码：Unload Me,即可实现用鼠标单击窗体而将窗体关闭的要求。该窗体程序的代码编辑窗如图1-4所示。 图1-5 Welcome程序的运行效果（9）选择“运行启动”菜单，在开发环境下运行该程序，运行效果如图1-5所示。（10）选择“文件保存工程”菜单，或单击工具栏上的“保存工程”按钮，保存窗体文件Form l .frm和工程文件Welcome.vbp。 （11）选择“文件生存”菜单，创建该程序的可执行文件。1.3.2 按照V B编程的基本步骤建立一个用于“商品销售计价”的窗体程序1实验要求 按照Visual Basic编程的基本步骤建立一个用于“商品销售计价”的窗体程序。该程序能够按商品顺序号输入商品单价、数量，计算商品价值和累计商品总价。窗体设计如图1-6所示。其中，商品单价、数量通过文本框控件输入，商品顺序号、商品价值和累计商品总价通过标签控件显示。命令按钮“一计一价”用来启动对商品价值和累计商品总价的计算；“清零”按钮用来启动清零过程，为下一轮计价做准备；“退出”按钮用来关闭窗口、退出程序。图1-6“商品销售计一价”程序的设计窗体2建立Visual Basic应用程序的基本步骤。 Visual Basic编程往往涉及到以下步骤： （1）分析程序问题。程序问题无论大小，在编程之前都应该对它做一些分析，这是一种良好的习惯，而且有利于程序问题的解决。 （2）建立程序工程。Visual Basic程序以工程为单位创建，其工程信息以扩展名为.vbp的文件保存。 （3）创建用户界面。Visual Basic程序的用户界面一般通过窗体与放置在窗体上的控件来表示，其窗体信息以扩展名为. frm的文件保存。 （4）添加程序代码。在Visual Basic的代码窗体上可以编写程序，用来控制窗体的工作运行情况。通过Visual Basic窗体或控件的事件过程可以编写事件程序，用来响应在窗体上发生的动作。 （5）调试程序。通过集成在Visual Basic 6.0中的诸多程序调试器，如：设置程序断点、程序逐行执行、“立即”窗口、“监视”窗口等，可以有效地调试程序。 （6）保存文件。编写的程序需要保存到磁盘文件中，主要包括：工程文件（.vbp）、窗体文件（. frm）、标准模块文件（.bas）、类模块文件（.cls）。 （7）生存可执行文件。对编写完的程序需要进行工程编译，由此可以产生出可执行程序文件（.exe）。3实验步骤（1）新建一个“标准EXE工程。表1-1窗体中控件属性值的设置对象类型属性设置值作用frmSpxsjj窗体Caption商品销售计价lblxh标签BorderStyle1显示商品顺序号txtDj文本框输入单价txtSl文本框输入数量lblJz标签BorderStyle1显示商品价值lblLjYsk标签BorderStyle1显示累计价值Label1标签CaptionAutoSize商品序号：TrueLabel2标签CaptionAutoSize单价（元）：TrueLabel3标签CaptionAutoSize数量：TrueLabel4标签CaptionAutoSize价值（元）：TrueLabel5标签CaptionAutoSize累计总价（元）：TruecomdJj命令按钮Caption计价启动计价计算comdQl命令按钮Caption清零下一轮计价准备comdExit命令按钮Caption退出退出程序（2）用鼠标从工具箱中拖入TextBox（文本框，、Label（标签）、Command（命令按钮）等控件到窗体内，并将控件按照如图1-6所示的样式排列。（3）按照表1-1所示的要求设置控件属性。（4）在代码中窗体内编写源代码。（5）运行、调试源代码。通过“运行、启动”菜单命令可运行源程序。若有语法错误，Visual Basic将查出错误，停止运行。常用的源程序调试方法有以下四种：l）在源程序中设置断点。用鼠标单击源程序编辑器的左侧边框可以在程序中设置调试断点，当程序运行到断点处时将中断，如图1-7所示，将鼠标移到变量处可以显示对象属性或变量的当前值。图1-7 当程序运行到断点处时将中断2）逐语句执行程序。通过“调试逐语句”菜单命令可以逐条语句地运行源程序。3）使用立即窗口。通过“视图立即窗口”菜单命令可以打开“立即”窗口，通过“立即窗口”可以查看或设置对象属性以及变量的当前值，如图1-8所示。图1-8通过“立即”窗口可以查看或设置变量值4）使用监视窗口。通过“调试、添加监视”菜单命令可以打开“添加监视”对话框，如图1-9所示，由此可以向“监视”窗口中添加需要监视的表达式、对象属性或变量。然后可以打开“监视”窗口查看或设置表达式、对象属性或变量的值，如图1-10所示。图1-9“添加监视”对话框图1-10 “监视”窗口（6）保存文件。通过“文件保存工程”菜单命令，将窗体文件、工程文件保存到磁盘。（7）编译生存的可执行程序。通过“文件、生成*.exe”菜单命令对工程进行编译，生成可执行程序（*.exe）。（8）运行编译程序图1-11所示是程序的运行结果。图1-11程序的运行界面（9）实验参考源代码Private Sub comdJj_Click() lblXh = lblXh + 1 累计商品顺序号 lblJz = Val(txtDj) * Val(txtSl) 计算商品价值 lblLjYsk = Val(lblLjYsk) + Val(lblJz) 累计商品总价值 txtDj = 0 单价清零 txtSl = 0 数量清零 txtDj.SetFocus 单价框获得焦点End SubPrivate Sub comdQl_Click() Ql 调用清零过程End SubPrivate Sub comdExit_Click() Unload Me 关闭窗体End SubPrivate Sub Form_Load() Ql 调用清零过程End Sub清零过程Private Sub Ql() txtDj = 0 txtSl = 0 lblJz = 0 lblXh = 1 lblLjYsk = 0End Sub实验2 数组与过程2.1 实验目的掌握数组和Sub过程/ Function函数的概念，熟练运用数组和Sub过程/ Function函数。2.2 相关知识数组：数组的概念(数组与数组元素、数组的类型、数组的维数、数组的形式)：固定大小的数组(数组的声明、数组的使用)：动态数组(创建动态数组、保留动态数组的内容)；控件数组(件数组的概念、控件数组的建立、控件数组的使用)。过程：Sub过程(事件过程与通用过程、通用过程的创建、通用过程的调用)：Function 过程(Function 过程的定义、Function 过程的调用、查看过程)；向过程传递参数(形式参数与实际参数、按值传递与按地址传递、使用参数、传递数组)；过程的嵌套与递归调用(过程的嵌套、过程的递归)。2.3 实验项目2.3.1 设计一个简易计算器，如图2-1所示。 分析：程序中的按钮分为两类：数字类和运算符类，可以分别使用命令按钮控件数组。设计步骤如下：（1）建立应用程序用户界面与设置对象属性。 选择新建工程，进入窗体设计器，首先增加一个框架控件Frame1，选中Frame1后，在其中增加一个文本框控件Text1、两个命令按钮控件数组Command1 (0)Command1(10) 和Command2(0)Command2(4）。并设置属性如表2-1所示。图2-1简易计算器表2-1属性设置对象属性属性值TextlCaptionAlignment1Rigth JustifyLockedTrueCommand l(0)-Commandl(10)Caption依次为0,1,2,3,4,5,6,7,8,9和小数点Command2(0)-Command2(4)Caption依次为 +, - , * , /, =（2） 实验参考源代码 首先在模块的“通用”段声明变量： Dim v As Boolean 是否第1次按运算符 Dim s As Integer 存放上次按的运算符 Dim x As Double 存放第1个操作数 Dim y As Double 存放第2个操作数 编写数字类命令按钮组Command1 ( )的Click事件代码： Private Sub Command1 Click(Index As Integer) If Form1.Tag =T Then 向显示中的数追加新数 If Index 10 Then Text1 .Text”0” Else Textl.Text = Command1 (Index).Caption End If Form1.Tag” ” Else Textl.TextTextl.Text Command 1 (Index).Caption End If End Sub编写运算符类命令按钮组Command2( )的Click事件代码： Private Sub Command2 Click(Index As Integer) Form1.TagT If v Then 第1次按运算符 x =Val(Text1.Text） 将键入的数存入、 vNot v Else yVal(Text1.Text) Select Case s Case 0 Textl.Textxy Case 1 Text1.Textx一y Case 2 Textl.Textx * y Case 3 If y0 Then Textl.Text =xy Else MsgBox (不能以0为除数”：） Textl.Textx vFalse End If Case 4 Y0 vFalse End Select x=Val(Text1.Text) End If sIndex End Sub2.3.2 使用Timer函数设计用来暂停指定时间（秒）的Sub过程提示：简单的不精确延时，可以用For . Next循环来实现，如果要实现比较精确的时间延时，可以采用计时器控件，但要增加额外的“开支”，较为理想的方法是使用Timer函数。Timer函数返回一个Single数，表示从午夜开始到现在经过的秒数。把开始暂停的时刻加上需要延时的时间（StartPauseTime)作为循环结束的条件，当现在的时刻Timer超过这个时间时，结束循环。程序设计步骤如下：（1）设计程序界面和设置对象属性参见图2-2.图2-2使用“暂停”Sub过程（2）实验参考源代码 首先编写自定义的Sub过程代码： Private Sub Delay（PauseTime） PauseTime为暂停时间 Dim Start StartTimer 设置开始暂停的时刻 Do While TimerStartPauseTime Loop End Sub 编写命令按钮Commandl的Click事件代码： Private Sub Commandl,ClickU Cls Form1. FontSize16 设置字体大小 Print Forml.ForeColor=QBColor(9) 设置对象中文本或图形的前景色 Print Tab(4）；“暂停3秒钟” Print Delay (3) 暂停3秒 Form1.ForeColorQBColor(10) Print Tab(4）；“暂停5秒钟” Print Delay 5 暂停5秒 Forml.ForeColor=QBColor(12)Print Tab(4);“结束!” Print Delay (1） 暂停1秒 End Sub 为了在程序暂停时不致于使用户误认为“死机”了，可以在窗体的标题栏中显示剩余时间。只需修改“延时”Sub过程代码： Private Sub Delay(PauseTime) StartTimer Do While Timer StartPauseTime m=StartPauseTime-Timer 计算剩余时间 m0=(m*10) Mod 10 剩余时间的1位小数 m=Int(m) 剩余秒数 Me.CaptionFormat(m, 0:” Format(m0, 0” ) Loop End Sub说明：一般情况下，结束时间大于开始时间，因此可以用TimerStartPauseTime作为循环结束的条件。但是，如果时间延时从午夜前开始（如23:59:58），延时（如5秒）到午夜后结束（如0:0:3），这时上面设计的延时程序将无法正常延时，请同学们完善该延时程序，使之适合各种情况。2.3.3 可间隙计时器本实验目的是掌握定时器控件的使用。相关知识：1事件驱动在Visual Basic中，事件是一种可以被程序响应的变动，例如，用户单击了某个按钮；某个窗体的外观发生了变化；经过了一段指定的时间等，这些都可称为事件。事件驱动也就是基于事件编程，建立如：Form Load、Command_ Click, Textl_ GotFocus等事件过程。Visual Basic中可能发生的事件有两种类型： l）用户触发事件。用户触发事件的触发器由用户控制。 例如：Click, KeyPress, MouseDown等事件。 2）系统环境事件。系统环境事件的触发器由Visual Basic系统或程序所控制。 例如：窗体的Load, Unload, QueryUnload事件，时钟控件的Timer事件。2定时器控件定时器控件能够用来处理一些与时间有关的操作。定时器的功能是通过它的Timer事件实现的。Timer事件是周期性事件，它按照由Interval属性所确定的时间间隔定期地触发。定时器的工作状况由Enable属性确定。设置Enable属性为True定时器工作，而设置Enable属性为False,则定时器暂停工作。实验要求：建立一个用来累积计时的“可间隙计时器”窗体程序，它能够把“计时器”工作时的各个时间片段累加起来。该程序窗体设计如图2-3所示，其中，标签控件用于显示累积时间，定时器控件用于计时。计时操作通过命令按钮完成，“启动”按钮用于启动计时，“暂停”按钮用于暂时停止计时，“继续”按钮用于在暂停计时后恢复计时，“停止”按钮用于停止计时。图2-3设计窗体另外，为了使各项计时操作相互协调，各命令按钮需要遵守表2-2所列的规则。表2-2各命令按钮需要遵守的规则工作状态启动暂停继续停止启动计时前有效无效无效无效正在计时的时候无效有效无效有效暂停计时的时候无效无效有效有效停止计时后有效无效无效无效实验步骤：（1）新建一个“标准EXE工程。通过工程属性窗口将该工程名称设置为Jsq 。（2）通过窗体属性窗口将窗体名称由默认名Forml改为frmJsq 。（3）用鼠标从工具箱内拖入Timer（定时器）、Label（标签）、Command（命令按钮）等控件到frmJsq窗体内，并将控件按照图4-1所示的样式排列。（4）按照表2-3的要求设置控件属性。表2-3 frmJsq窗体中控件属性值设置对象类型属性设置值作用frmJsq窗体Caption计时器Timer1定时器EnabledIntervalFalse100计时lblTimeSlice标签BorderStyle1显示时间comdStart命令按钮CaptionEnabled启动true启动计时comdPause命令按钮CaptionEnabled暂停False暂停计时comdContinue命令按钮CaptionEnabled 继续False继续计时comdStop命令按钮CaptionEnabled停止False停止计时（5）编写源代码。（6）运行、调试源代码。（7）保存窗体文件frmJsq.frm、工程文件Jsq.vbp 。（8）编译生成可执行程序Jsq.exe a 。（9）运行程序，图2-4所示是程序的运行结果。图2-4运行中的“计时器”（10）实验参考源代码：Option ExplicitDim TimeStart, TimeSlice1 As Date, TimeSlice2 As DatePrivate Sub comdContinue_Click() StartTime comdContinue.Enabled = False comdPause.Enabled = TrueEnd SubPrivate Sub comdStop_Click() Timer1.Enabled = False lblTimeSlice = Format(0, Long Time) comdStop.Enabled = False comdPause.Enabled = False comdContinue.Enabled = False comdStart.Enabled = TrueEnd SubPrivate Sub comdStart_Click() TimeSlice1 = 0 StartTime comdStart.Enabled = False comdPause.Enabled = True comdStop.Enabled = TrueEnd SubPrivate Sub comdPause_Click() TimeSlice1 = TimeSlice2 Timer1.Enabled = False comdContinue.Enabled = True comdPause.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() TimeSlice2 = Time - TimeStart + TimeSlice1 lblTimeSlice = Format(TimeSlice2, Long Time)End SubPrivate Sub StartTime() TimeStart = Time Timer1.Enabled = TrueEnd Sub实验3 文件管理3.1 实验目的掌握数据文件的概念与使用(访问顺序文件、访问随机文件、访问二进制文件)：熟悉并运用文件系统控件(驱动器列表框、目录列表框、文件列表框)。 3.2 相关知识3.2.1 随机文件与顺序文件读写过程的区别：1打开时的区别：顺序文件在打开时必须指定对文件的操作方式（Input, Output,Append），打开后只能对文件按指定的方式进行操作。每打开一次文件，只能进行单一的一种操作。随机文件在打开时不必指定操作方式，打开后既可以进行读操作，又可以进行写操作。2读文件的区别：顺序文件在以Input方式打开后，总是从文件的开头读文件，即使需要的是最后一行内容也必须如此。随机文件只需指定记录号，即可直接读取该记录的内容。3写文件的区别：顺序文件在以Output方式打开后，总是从文件的开头写。所以若是个已经存在的文件，其中的原有内容将被覆盖而丢失。顺序文件在以Append方式打开后，则总是从文件的末尾开始写，无论前面的内容是否需要修改。随机文件在写文件时，只对指定的某个记录进行操作，由此只是重写某个记录而不破坏其他内容。3.2.2 使用Output选项打开一个已存在的文件会发生的情况使用Output选项打开一个己存在的文件，将会创建一个新的顺序文件。磁盘上的原有同名文件将被覆盖，其中数据将会丢失。3.2.3 使用Append选项写文件会发生的情况使用Append选项写文件则是向文件的尾部追加式写入数据，原有的同名文件中的数据仍然保留，若磁盘上没有该文件，则创建一个新文件。3.3 实验项目3.3.1 创建简单的文本编辑器1功能要求： 1）可以通过“文件系统控件”选择文件的路径，也可以输入文件的路径。2）可以读取所选择的文件，也可以将文本框中编辑的文件保存到磁盘上。如图3-1示。 图3-12设计步骤：建立程序界面与设置对象属性。首先在窗体上增加4个框架Frame1Frame4、一个文本框Textl和一个命令按钮数组Commandl (0)- Command1 (1)。然4个框架中分别增加控件：Framel中增加一个文本框Text2。Frame2中增加一个文件列表框Filel 。Frame3中增加一个组合框Combol。 Frame4中增加一个驱动器列表框Drive1和一个目录列表框Dirl。设置对象属性见表3-1。其他属性的设置参见图3-1.表3-1属性设置对象属性属性值说明Text1MultilineTrue多行文本ScrollBars2 - Vertical垂直滚动条CombolList*.Txt *.Dat3实验参考源代码： 编写窗体的Load事件代码： Private Sub Form_ Load( ) Filet.Pattern =”*.Txt” End Sub 编写驱动器列表框Drive1的Change事件代码： Private Sub Drivel_ Change( ) Dirt.Path=Drivel.Drive End Sub 编写目录列表框Dirl的Change事件代码： Private Sub Dirl _Change( ) File1.Path = Dirt.Path Text2.Text = Dir1.Path End Sub 编写文件列表框Filel的Click事件代码： Private Sub Filel_ Ciick( ) Text2.TextFile1.Path & ” & File1.FileName End Sub 编写组合框Combo1的Click事件代码： Private Sub Combo1_ Click( ) aa = Combo1.List(Combo1.ListIndex) File1.Patternaa End Sub 编写命令按钮控件数组Command 1的Click事件代码： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 If Text2.Text ” Then Open Text2.Text For Output As #1 Print # 1，Text1.Text Close #1 End If Case1 If Text2.Text ” Then Text l.Text =”Open Text2.Text For Input As #1 b =” Do Until EOF(1) Line Input #1，nextline b=b & nextline & Chr(13) & Chr(10) Loop Close #1 Textl.Text = b End If End SelectEnd Sub3.3.2 设计图片搜索器1功能要求：建立一个通过文件系统控件搜索图片的窗体程序，窗体设计如图3-2所不。其中，组合框控件（Combo1）用于选择图片文件类型，驱动器列表框控件（Drive 1）用于选择驱动器，文件夹列表框控件（Dirl）用于从所选驱动器中选择文件夹，文件列表枢控件（File1）用于从所选文件夹中选择图片文件，并且所选文件通过图像控件（Image1）显示。另外，通过框架控件（Frame1）将组合框、驱动器列表框、文件夹列表框和文件列表框等控件组合在一起。图3-2设计窗体 2提示：文件系统控件驱动器列表框（DriveListBox ）,目录列表框（DirListBox）和文件列表框（FileListBox ）三个控件被看作为文件系统控件，能够用来搜索文件。1）DriveListBox控件 DriveListBox控件通过它的Drive属性来选定驱动器，例如： Drive1.Drive”c:”但以上操作只能显示驱动器，并