常用控件及多窗体讲稿.ppt

常用控件及多窗体常用控件及多窗体第一页，讲稿共五十四页哦6.1 图片框图片框 与与 图像框图像框1、功能：、功能：用于用于在窗体的指定位置显示图形信息在窗体的指定位置显示图形信息。2、VB 6.0支持的图形文件格式有：支持的图形文件格式有：.BMP、.ICO、.WMF、.EMF、.JPG、.GIF等等（PictureBoxPictureBox）（）（ImageBoxImageBox）第二页，讲稿共五十四页哦（1 1）PicturePicture属性属性:设置图片框或图像框中要显示的图形文件名设置图片框或图像框中要显示的图形文件名。装入图形文件的两种设置方式：装入图形文件的两种设置方式：1）在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的“Picture 属性属性”装入。装入。2）在运行期间，可以用）在运行期间，可以用“LoadPicture函数函数”装入。装入。LoadPicture函数的一般格式如下：函数的一般格式如下：对象名对象名对象名对象名.Picture=LoadPicture(filename).Picture=LoadPicture(filename)3、图片框、图像框的常用属性、图片框、图像框的常用属性 （参考（参考 P72 6.1.1）filename：字符串表达式，指定一个被显示的图形的文件名，可以包括文件：字符串表达式，指定一个被显示的图形的文件名，可以包括文件的盘符和路径。如果图片框中已有图形，则被新装入的图形覆盖。的盘符和路径。如果图片框中已有图形，则被新装入的图形覆盖。第三页，讲稿共五十四页哦例如：例如：Picture1.picture=LoadPicture(c:windowsbubbles.bmp)Picture1.picture=LoadPicture(c:windowsbubbles.bmp)【注意注意】：图片框中的图形也可以用图片框中的图形也可以用“LoadPictureLoadPicture函数函数”删除。删除。如：如：Picture1.Picture=LoadPicture()Picture1.Picture=LoadPicture()第四页，讲稿共五十四页哦图片框（图片框（图片框（图片框（PictureboxPictureboxPictureboxPicturebox）（2 2）AutoSizeAutoSize属性属性:决定是否自动改变大小以显示图形。决定是否自动改变大小以显示图形。False:False:图片框大小不变。（图形超出区域被剪）图片框大小不变。（图形超出区域被剪）True:True:图片框根据图形大小自动调整。图片框根据图形大小自动调整。（3 3）StretchStretch属性属性:确定图像框如何与图形相适应。确定图像框如何与图形相适应。False:False:图像框适应图形的大小。（图像框拉伸）图像框适应图形的大小。（图像框拉伸）TrueTrue：图形适应图像框的大小。（图形拉伸）：图形适应图像框的大小。（图形拉伸）图像框（图像框（图像框（图像框（ImageboxImageboxImageboxImagebox）第五页，讲稿共五十四页哦 （1）图片框控件可以作为其他控件的容器。（2）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。（3）图像框比图片框占用的内存少，显示速度快。例6.1：图片框、图像框的应用4、图片框、图像框的区别、图片框、图像框的区别第六页，讲稿共五十四页哦6.2 定时器定时器1、功能：、功能：定时器（定时器（Timer）控件）控件每隔一定的时间间隔就产生一次每隔一定的时间间隔就产生一次TimerTimer事件事件（可理解为报时）（可理解为报时）。用户可以根据这个特性设置时间间隔控制某些操作或用于计用户可以根据这个特性设置时间间隔控制某些操作或用于计时。时。（TimerTimer）第七页，讲稿共五十四页哦 (1)Interval(1)Interval属性属性(设置时间间隔设置时间间隔设置时间间隔设置时间间隔)触发触发TimerTimer事件的时间间隔。事件的时间间隔。以以毫秒毫秒毫秒毫秒为单位，取值范围为为单位，取值范围为0 06553565535 缺省值为缺省值为缺省值为缺省值为0 0 0 0（定时器控件不起作用）。（定时器控件不起作用）。若每秒产生若每秒产生n n个事件，则应设置属性个事件，则应设置属性IntervalInterval的值为的值为1000/n1000/n1000/n1000/n。(2)Enable(2)Enable属性属性(开启定时器开启定时器开启定时器开启定时器)确定定时器的工作状况。确定定时器的工作状况。设置为设置为TrueTrueTrueTrue，定时器工作，定时器工作 设置为设置为FalseFalseFalseFalse，定时器暂停工作，定时器暂停工作3、定时器的常用属性、定时器的常用属性 （参考（参考 P74）第八页，讲稿共五十四页哦 定时器只支持定时器只支持TimerTimer事件事件。对于一个。对于一个“含有定时器控件的含有定时器控件的窗体窗体”，每经过一段由属性，每经过一段由属性IntervalInterval指定的时间间隔指定的时间间隔，就产生，就产生一个该定时器的一个该定时器的TimerTimer事件。事件。即：即：TimerTimer事件是周期性事件，它按照由事件是周期性事件，它按照由IntervalInterval属性属性所确定的时间间隔定期地产生。所确定的时间间隔定期地产生。3、定时器的常用的事件、定时器的常用的事件 （参考（参考 P74）第九页，讲稿共五十四页哦 例例6.2 建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。第十页，讲稿共五十四页哦 例例6.3 实现会变颜色的文字，要求每秒钟实现红、实现会变颜色的文字，要求每秒钟实现红、蓝颜色交替变化。蓝颜色交替变化。第十一页，讲稿共五十四页哦 6.3 单选钮与复选框单选钮与复选框6.3.1 6.3.1 单选钮单选钮（OptionButtonOptionButton）1、功能：、功能：供用户必须从且只能从多个可选项中供用户必须从且只能从多个可选项中 选择一项。选择一项。【说明说明】：当某一项被选定后，其左边的圆圈中出现：当某一项被选定后，其左边的圆圈中出现 一个黑点。一个黑点。第十二页，讲稿共五十四页哦 2、属性：、属性：（1）Value属性（单选按钮的选中状态）TrueTrue为选中；为选中；FalseFalse为不被选中。为不被选中。（2）Caption属性（单选钮旁边的文本）（3）Style属性（设置控件的外观）值为值为0 0时，控件显示标准样式；时，控件显示标准样式；值为值为1 1时，控件外观类似命令按钮。时，控件外观类似命令按钮。3、事件：、事件：ClickClick事件事件第十三页，讲稿共五十四页哦例例6.4 程序运行后，单击某个单选钮，在标签中显示相程序运行后，单击某个单选钮，在标签中显示相应的字体。运行结果如下图。应的字体。运行结果如下图。第十四页，讲稿共五十四页哦 （1）设置缺省单选钮：在设计时将其Value属性值设置成True。（2）一个单选钮可以用下面这些方法选中：在运行期间用在运行期间用鼠标单击鼠标单击单选钮。单选钮。用用TabTab键键定位到单选钮组，然后用方向键定位单选钮。定位到单选钮组，然后用方向键定位单选钮。用代码将它的用代码将它的ValueValue属性值属性值设置为设置为TrueTrue；即即:Option1.value=true:Option1.value=true（3）要禁用单选钮：可将其Enabled属性值设置为False。4、说明、说明第十五页，讲稿共五十四页哦 6.3.2 6.3.2 复选框（复选框（CheckBoxCheckBox）也称也称检查框检查框 1、功能：、功能：供用户从多个可选项中选择零到多项。供用户从多个可选项中选择零到多项。【说明说明】：单击复选框一次时被选中，左边出现：单击复选框一次时被选中，左边出现“”，再次，再次单击则取消选中，清除单击则取消选中，清除 “”。可同时使多个复选框处于选中状态。可同时使多个复选框处于选中状态。第十六页，讲稿共五十四页哦 1属性属性（1）Value属性（决定复选框的状态）（决定复选框的状态）0 0 0 0未选中，未选中，1 1 1 1已选中，已选中，2 2 2 2变灰暗。变灰暗。（2）Picture属性 用来指定当复选框被设计成图形按钮时的图像。用来指定当复选框被设计成图形按钮时的图像。用此属性前要用此属性前要先设置先设置先设置先设置StyleStyleStyleStyle属性属性属性属性。2事件事件 ClickClick事件事件复选框的属性及事件复选框的属性及事件第十七页，讲稿共五十四页哦 例例6.5 用复选框控制文本是否加下划线和斜体显示。用复选框控制文本是否加下划线和斜体显示。第十八页，讲稿共五十四页哦6.4 容器与框架容器与框架1、功能：、功能：可以在其上放置其它控件对象可以在其上放置其它控件对象。即：能够把其他的控件组织在一起形成控件组。即：能够把其他的控件组织在一起形成控件组。FrameFrameFrameFrame控件是一个容器控件是一个容器控件是一个容器控件是一个容器:若要在同一窗体上建立几组若要在同一窗体上建立几组相互独立的相互独立的相互独立的相互独立的单选按钮，通常用单选按钮，通常用框架控框架控框架控框架控件件件件（FrameFrame）将每一组单选钮框起来。）将每一组单选钮框起来。【框架使用的注意事项框架使用的注意事项】：（FrameFrame）【说明说明】：窗体、图片框和框架都是容器。：窗体、图片框和框架都是容器。容器内所有控件成为一个组合，随容器一起容器内所有控件成为一个组合，随容器一起 移动、显示、消失和屏蔽。移动、显示、消失和屏蔽。第十九页，讲稿共五十四页哦 2属性属性（1）Caption属性（框架的标题）位于框架的左上角，用于注明框架的用途。位于框架的左上角，用于注明框架的用途。（2）Enabled属性（决定框架中的对象是否可用）值为：值为：TrueTrue，框架内的控件为可操作的。，框架内的控件为可操作的。3事件事件 ClickClick和和DblClickDblClick。【说明说明】：一般不需要编写框架的事件过程。：一般不需要编写框架的事件过程。第二十页，讲稿共五十四页哦 例例6.6 使用两个单选钮组来改变文本框中文字的颜色和使用两个单选钮组来改变文本框中文字的颜色和 大小，运行结果如图所示。大小，运行结果如图所示。第二十一页，讲稿共五十四页哦1、功能、功能:由若干个项目组成的列表，用户可从中选择一个由若干个项目组成的列表，用户可从中选择一个 或多个项目。或多个项目。列表框列表框组合框组合框6.5 列表框和组合框列表框和组合框（ListBoxListBox）(ComboBox)(ComboBox)第二十二页，讲稿共五十四页哦列表框列表框2、特点：、特点：只能选择，不能写入或修改。只能选择，不能写入或修改。列表框各主要属性的值：列表框各主要属性的值：List1.List(3)List1.List(3)的值为的值为“cox”cox”List1.ListCount=5 List1.ListCount=5 List1.ListIndex=3 (List1.ListIndex=3 (下标从下标从0 0开始的开始的)List1.Selected(3)=True List1.Selected(3)=True，其余为，其余为FalseFalse。List1.Sorted=FalseList1.Sorted=False，没有排序。，没有排序。List1.Text List1.Text 为为“cox”cox”，与与List1.List(List1.ListIndex)List1.List(List1.ListIndex)相等相等List1第二十三页，讲稿共五十四页哦组合框组合框2、特点：、特点：不同的模式下，可以进行的操作也有区别。不同的模式下，可以进行的操作也有区别。组合框各主要属性的值：组合框各主要属性的值：Combo3.ListIndex=0Combo3.ListIndex=0 Combo3.ListCount=7 Combo3.ListCount=7 Combo3.Sorted=False Combo3.Sorted=False Combo3.Text Combo3.Text 为为“李强李强”下拉式组合框下拉式组合框简单组合框简单组合框下拉式列表框下拉式列表框第二十四页，讲稿共五十四页哦3 3、共有属性共有属性（1 1）ListCountListCount：P P 项目的数量，项目的数量，ListCountListCount1 1 是最后一项的下标是最后一项的下标（2 2）ListList：P/DP/D 存放列表框或组合框中各个数据项的内容。存放列表框或组合框中各个数据项的内容。下标从下标从0 0开始。开始。如：如：如：如：list1.List(3)=coxlist1.List(3)=coxlist1.List(3)=coxlist1.List(3)=cox（第三项内容为（第三项内容为（第三项内容为（第三项内容为“coxcoxcoxcox”）（3 3）TextText：P P 列表框或组合框中最后被选中的内容列表框或组合框中最后被选中的内容（4 4）ListIndexListIndex：P P 选中的项目的下标（序号）选中的项目的下标（序号）没有项目选中时，取值为没有项目选中时，取值为-1-1（5 5）SortedSorted：D D True True：按字母顺序排列按字母顺序排列 FalseFalse：按加入先后顺序排列：按加入先后顺序排列P P：表示在程序代码中设置；：表示在程序代码中设置；D D：表示在界面设计阶段的：表示在界面设计阶段的“属性窗口属性窗口”设置。设置。List1第二十五页，讲稿共五十四页哦3 3、特有属性特有属性列表框的特有属性：列表框的特有属性：（1 1）SelectedSelected：P P!存放列表框中项目是否选中。存放列表框中项目是否选中。!下标从下标从0 0开始。开始。如：如：如：如：List1.selected(3)=trueList1.selected(3)=trueList1.selected(3)=trueList1.selected(3)=true（第三项被选中）（第三项被选中）（第三项被选中）（第三项被选中）（2 2）MultiSelectMultiSelect：D D 0None 0None：禁止多项选择：禁止多项选择 1Simple1Simple：简单多项选择：简单多项选择 2Extended2Extended：扩展多项选择：扩展多项选择组合框的特有属性：组合框的特有属性：Style：D 0Dropdown Combo 0Dropdown Combo：下拉式组合框，可以输入：下拉式组合框，可以输入 1Simple Combo1Simple Combo：简单组合框，可以输入：简单组合框，可以输入 2Dropdown List2Dropdown List：下拉式列表框，不能输入，只能选择：下拉式列表框，不能输入，只能选择第二十六页，讲稿共五十四页哦4 4、方法和事件方法和事件方法：方法：AddItem!在列表框或组合框对应的索引值处添加项目在列表框或组合框对应的索引值处添加项目!格式：格式：对象对象.AddItem .AddItem 项目项目,索引值索引值 （说明：索引值为（说明：索引值为0 0、1 1）RemoveItem!删除列表框或组合框对应的索引值的项目删除列表框或组合框对应的索引值的项目!格式：格式：对象对象.RemoveItem .RemoveItem 索引值索引值 Clear!删除列表框或组合框内所有的项目删除列表框或组合框内所有的项目!格式：格式：对象对象.Clear.Clear事件：事件：列表框：Click、DblClick 组合框：Click（所有模式）、DblClick（Style=1时）、Change事件（Style=0或1时，文本区输入文本时，用于接收数据）第二十七页，讲稿共五十四页哦 例例6.7 利用列表框和命令按钮编程，要求程序能够实现添利用列表框和命令按钮编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。加项目、删除项目、删除全部项目的功能。List1第二十八页，讲稿共五十四页哦 Private Sub Command1_Click()添加项目按钮添加项目按钮添加项目按钮添加项目按钮Dim entryentry=InputBox(输入添加内容输入添加内容,添加添加)List1.AddItem entry List1.AddItem entry 在末尾添加项目在末尾添加项目在末尾添加项目在末尾添加项目End SubPrivate Sub Command2_Click()删除项目按钮删除项目按钮删除项目按钮删除项目按钮Dim i%For i=List1.ListCount List1.ListCount-1 To 0 Step-1 If List1.Selected(i)List1.Selected(i)=true Then List1.RemoveItem iList1.RemoveItem iNext iEnd SubPrivate Sub Command3_Click()全部删除按钮全部删除按钮全部删除按钮全部删除按钮List1.ClearList1.ClearEnd Sub第二十九页，讲稿共五十四页哦 例例6.8 设计一个简单的报名窗口，要求从文本框中输入学生姓设计一个简单的报名窗口，要求从文本框中输入学生姓名，在名，在“班级班级”旁边的组合框中选择其所属班级（已提供四个旁边的组合框中选择其所属班级（已提供四个默认班级，用户可以输入其他班级名）。然后将学生姓名和班默认班级，用户可以输入其他班级名）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。可以把整个列表框清空。第三十页，讲稿共五十四页哦6.6 滚动条滚动条1、功能：、功能：附在窗体上，协助观察数据，确定位置或作为输入数据附在窗体上，协助观察数据，确定位置或作为输入数据的工具。的工具。水水平平滚滚动动条条垂垂直直滚滚动动条条SmallChange Min Value Max SmallChangeLargeChange LargeChange滚动箭头滚动箭头滚滚动动块块（HScro11BarHScro11Bar）(VScro11Bar)(VScro11Bar)第三十一页，讲稿共五十四页哦2、属性、属性（1 1）MaxMax：最大值属性（最大值属性（-32768-32767-32768-32767）表示当滑块处于最大位置时所代表的值表示当滑块处于最大位置时所代表的值（2 2）MinMin：最小值属性（最小值属性（-32768-32767-32768-32767）表示当滑块处于最小位置时所代表的值表示当滑块处于最小位置时所代表的值（3 3）SmallChangeSmallChange 表示用户单击滚动条两端箭头时，滑块移动的增量值表示用户单击滚动条两端箭头时，滑块移动的增量值（4 4）LargeChangeLargeChange 表示用户单击滚动条的空白处时，滑块移动的增量值表示用户单击滚动条的空白处时，滑块移动的增量值（5 5）ValueValue 表示滑块所处位置所代表的值表示滑块所处位置所代表的值第三十二页，讲稿共五十四页哦3、事件、事件ChangeChange事件：事件：当用户改变滚动块的位置后发生。Scroll Scroll 事件：事件：在用户改变滚动块的位置时发生。第三十三页，讲稿共五十四页哦 例例6.9 利用滚动条改变文本框中所显示文本的字号大小。利用滚动条改变文本框中所显示文本的字号大小。各控件属性设置如下：各控件属性设置如下：文本框：文本框：texttext属性设置为属性设置为“同学们好同学们好”。标签：标签：CaptionCaption属性设置为空。属性设置为空。滚动条：滚动条：MaxMax属性为属性为100100，MinMin属性为属性为5 5。第三十四页，讲稿共五十四页哦程序代码如下：程序代码如下：Private Sub HScroll1_Change()Private Sub HScroll1_Change()Label1.Caption=Label1.Caption=HScroll1.ValueHScroll1.Value Text1.FontSize=Text1.FontSize=HScroll1.ValueHScroll1.Value End SubEnd Sub第三十五页，讲稿共五十四页哦 6.8 6.8 多窗体多窗体 在实际应用中，特别是对于较复杂的应用程序，单一窗体往在实际应用中，特别是对于较复杂的应用程序，单一窗体往往不能满足需要。往不能满足需要。VBVB允许对多个窗体进行处理，允许对多个窗体进行处理，多重窗体多重窗体（Multi FormMulti Form）程序中的每个窗体都可以有自己的界面和程序中的每个窗体都可以有自己的界面和代码，完成各自的功能。代码，完成各自的功能。第三十六页，讲稿共五十四页哦 6.8.1 多窗体有关的操作 1添加窗体 添加窗体是指添加窗体是指在当前工程中添加一个新的窗体在当前工程中添加一个新的窗体或者或者把一个属于其它工程的窗把一个属于其它工程的窗体添加到当前工程中体添加到当前工程中。添加一个新窗体的方法有。添加一个新窗体的方法有“菜单法菜单法”、“工具栏法工具栏法”等。等。2当前窗体的切换 双击双击工程资源管理器窗口中的工程资源管理器窗口中的窗体名窗体名，该窗体便成为当前窗体（被激活）。，该窗体便成为当前窗体（被激活）。3删除窗体 不再需要的窗体可把它删除。方法是：不再需要的窗体可把它删除。方法是：在工程窗口中右键单击想要删除的在工程窗口中右键单击想要删除的窗体名，在弹出上下文菜单中选择窗体名，在弹出上下文菜单中选择“移除移除”。第三十七页，讲稿共五十四页哦 4多窗体程序的保存 将应用程序存盘保存时，多窗体程序中的每个窗体都作为一个文件将应用程序存盘保存时，多窗体程序中的每个窗体都作为一个文件单独保存单独保存，并保存其工程文件。并保存其工程文件。5启动窗体的设置 拥有多个窗体的应用程序，拥有多个窗体的应用程序，默认默认情况下，在设计阶段建立的情况下，在设计阶段建立的第一个窗第一个窗体为启动窗体体为启动窗体。即应用程序开始运行时，先运行这个窗体。如果要改变。即应用程序开始运行时，先运行这个窗体。如果要改变系统默认的启动窗体，需要另外设置。系统默认的启动窗体，需要另外设置。第三十八页，讲稿共五十四页哦6.8.2 多窗体有关的语句和方法 在多窗体程序设计中，经常需要打开、关闭、隐藏或显示指定在多窗体程序设计中，经常需要打开、关闭、隐藏或显示指定的窗体。这可以通过相应的语句和方法来实现。的窗体。这可以通过相应的语句和方法来实现。第三十九页，讲稿共五十四页哦 （1）Load语句 格式：格式：Load Load 窗体名称窗体名称 LoadLoad语句把一个窗体装入内存。执行语句把一个窗体装入内存。执行 LoadLoad语句后，可以语句后，可以引用窗体中的控件及各种属性，但此时窗体没有显示出来。要显引用窗体中的控件及各种属性，但此时窗体没有显示出来。要显示窗体，可以使用示窗体，可以使用ShowShow方法。方法。（2）Show方法 格式：格式：窗体名称窗体名称.Show Show 模式模式 ShowShow方法用来显示一个窗体。方法用来显示一个窗体。如果省略如果省略“窗体名称窗体名称”，则显示当前窗体。，则显示当前窗体。ShowShow方法兼有装入内存和显示窗体两种功能。方法兼有装入内存和显示窗体两种功能。第四十页，讲稿共五十四页哦 参数参数“模式模式”用来确定窗体的状态，可以取值用来确定窗体的状态，可以取值0 0和和1 1。当“模式”值为0（缺省值）时，表示窗体为“非模式型”窗口。不用关闭该窗体就可以对其他窗口进行操作。当“模式”值为1时，表示窗体是“模式型”窗体。鼠标只有在此窗体内起作用，不能移动到其他窗体内进行操作。第四十一页，讲稿共五十四页哦 （3 3）UnloadUnload语句语句 格式：格式：Unload Unload 窗体名称窗体名称 清除内存中指定的窗体（与清除内存中指定的窗体（与LoadLoad语句的功能相反）。语句的功能相反）。（4 4）HideHide方法方法 格式：格式：窗体名称窗体名称.Hide.Hide Hide Hide方法使窗体隐藏起来，但窗体仍在内存中。方法使窗体隐藏起来，但窗体仍在内存中。常用方法：常用方法：ShowShow、HideHide第四十二页，讲稿共五十四页哦 在多窗体程序中，经常要用到在多窗体程序中，经常要用到关键字关键字MeMe，它代表的是程，它代表的是程序代码所在的窗体。例如，假如建立了一个窗体序代码所在的窗体。例如，假如建立了一个窗体FormlForml，则，则可通过下面的代码使该窗体隐藏：可通过下面的代码使该窗体隐藏：Form1.Hide Form1.Hide （与（与 Me.HideMe.Hide等价）等价）【注意注意】：“Me.HideMe.Hide”必须是必须是 Form1Form1窗体或其控件的事件过窗体或其控件的事件过程中的代码。程中的代码。第四十三页，讲稿共五十四页哦 6.8.3 多窗体程序设计举例例例6.10 利用多窗体编程，实现华氏温度利用多窗体编程，实现华氏温度C和摄氏温度和摄氏温度F的互的互相转换。相转换。分析：分析：我们共使用三个窗体，窗体我们共使用三个窗体，窗体Form1Form1作为主窗体，窗体作为主窗体，窗体Form2Form2完成摄氏温完成摄氏温度转为华氏温度，窗体度转为华氏温度，窗体Form3Form3完成华氏温度转为摄氏温度。完成华氏温度转为摄氏温度。第四十四页，讲稿共五十四页哦 对象对象属性属性设置设置Command1Command1CaptionCaption摄转华摄转华Command2Command2CaptionCaption华转摄华转摄Command3Command3CaptionCaption退出退出Form1Form1CaptionCaption主窗体主窗体表表6-8 6-8 属性设置属性设置（1 1）主窗体）主窗体Form1Form1：在其上建立三个命令按钮，并按：在其上建立三个命令按钮，并按表表6-86-8设置对象属性。设置对象属性。第四十五页，讲稿共五十四页哦 Private Sub Command1_Click()Private Sub Command1_Click()Form1.Hide Form1.Hide 隐藏主窗体隐藏主窗体 Form2.Show Form2.Show 显示摄转华窗体显示摄转华窗体End SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Form1.Hide Form1.Hide 隐藏主窗体隐藏主窗体 Form3.ShowForm3.Show 显示华转摄窗体显示华转摄窗体End SubEnd Sub 主窗体的程序代码：主窗体的程序代码：第四十六页，讲稿共五十四页哦 （2 2）Form2Form2窗体是单击了主窗体上的窗体是单击了主窗体上的“摄转华摄转华”命令命令按钮后弹出的窗体，用于输入摄氏温度，求其对按钮后弹出的窗体，用于输入摄氏温度，求其对应的华氏温度。应的华氏温度。Form2Form2的界面设置：的界面设置：在其上建立两个命令按钮，在其上建立两个命令按钮，一个标签、两个文本框控件，并按表一个标签、两个文本框控件，并按表6-96-9设置对象设置对象属性。属性。第四十七页，讲稿共五十四页哦 对象对象属性属性设置设置Command1Command1CaptionCaption求华氏温度求华氏温度Command2Command2CaptionCaption返回返回Label1Label1CaptionCaption请输入一个摄氏温度请输入一个摄氏温度Text1Text1Text Text 空空Text2Text2TextText空空Form2Form2CaptionCaption摄转华摄转华表表6-9 6-9 属性设置属性设置第四十八页，讲稿共五十四页哦 Private Sub Command1_Click()Private Sub Command1_Click()Dim c As Single,f As Single Dim c As Single,f As Single c=Text1.Text c=Text1.Text f=9/5*c+32 f=9/5*c+32 Text2.Text=Text2.Text=华氏温度为华氏温度为&f&fEnd SubEnd SubPrivate Sub Command2_Click()Private Sub Command2_Click()Form2.HideForm2.Hide 隐藏摄转华窗体隐藏摄转华窗体 Form1.ShowForm1.Show 显示主窗体显示主窗体End SubEnd SubForm2Form2窗体的程序代码如下：窗体的程序代码如下：第四十九页，讲稿共五十四页哦 （3 3）Form3Form3窗体是单击了主窗体上的窗体是单击了主窗体上的“华转摄华转摄”命令命令按钮后弹出的窗体，用于输入华氏温度，求其对应的按钮后弹出的窗体，用于输入华氏温度，求其对应的摄氏温度。可以参照摄氏温度。可以参照Form2Form2窗体的设置完成窗体的设置完成Form3Form3窗窗体的界面设置，如图体的界面设置，如图6-236-23所示。所示。第五十页，讲稿共五十四页哦 图图6-23 6-23 华转摄窗体界面华转摄窗体界面第五十一页，讲稿共五十四页哦 Private Sub Command1_Click()Private Sub Command1_Click()Dim c As Single,f As Single Dim c As Single,f As Single f=Text1.Text f=Text1.Text c=5/9*(f-32)c=5/9*(f-32)Text2.Text=Text2.Text=摄氏温度为摄氏温度为&c&cEnd SubEnd Sub Private Sub Command2_Click()Private Sub Command2_Click()Form3.Hide Form3.Hide 隐藏华转摄窗体隐藏华转摄窗体 Form1.Show Form1.Show 显示主窗体显示主窗体End SubEnd SubForm3 Form3 窗体的程序代码如下：窗体的程序代码如下：第五十二页，讲稿共五十四页哦【小结小结】：我们可以利用多窗体的设计，把我们可以利用多窗体的设计，把一个较复杂的问题一个较复杂的问题分解为若干个简单问题分解为若干个简单问题，每个简单问题可以使用一个窗体来实现每个简单问题可以使用一个窗体来实现。这种这种“分而治之分而治之”的方法在编程中经常用到。的方法在编程中经常用到。【注注】：利用窗体可以建立较为复杂的对话框。但是，在某些情利用窗体可以建立较为复杂的对话框。但是，在某些情况下，如果用况下，如果用InputBoxInputBox或或MsgBoxMsgBox函数能满足需要则不必用窗函数能满足需要则不必用窗体作为对话框。体作为对话框。第五十三页，讲稿共五十四页哦The endThe end！第五十四页，讲稿共五十四页哦