VB6教程第6章常用控件与多窗体.ppt

浙江蜗牛网络-VB论坛： 常用控件与多窗体常用控件与多窗体第第第第3 3章章章章介介介介绍绍绍绍了了了了窗窗窗窗体体体体的的的的使使使使用用用用及及及及最最最最基基基基本本本本控控控控件件件件的的的的属属属属性性性性、、、、事事事事件件件件和和和和方方方方法法法法本本本本章章章章介介介介绍绍绍绍另另另另外外外外的的的的几几几几个个个个常常常常用用用用控控控控件件件件以以以以及及及及多多多多窗窗窗窗体体体体主主主主要要要要内内内内容容容容有有有有：：：：图图图图片片片片框框框框与与与与图图图图像像像像框框框框、、、、定定定定时时时时器器器器、、、、单单单单选选选选钮钮钮钮与与与与复复复复选选选选框框框框、、、、框框框框架架架架、、、、列列列列表表表表框框框框与与与与组组组组合合合合框框框框滚滚滚滚动动动动条条条条、、、、焦焦焦焦点点点点与与与与TabTab顺顺顺顺序序序序、、、、多窗体退出退出浙江蜗牛网络-VB论坛： 图片框与图像框图片框与图像框6.2 定时器定时器6.3 单选钮与复选框单选钮与复选框6.4 容器与框架容器与框架6.5 列表框与组合框列表框与组合框6.6 滚动条滚动条6.7 焦点与焦点与Tab顺序顺序6.8 多窗体多窗体浙江蜗牛网络-VB论坛： 图片框与图像框图片框与图像框图图图图 片片片片 框框框框 控控控控 件件件件 （（（（ PictureBoxPictureBox）））） 和和和和 图图图图 像像像像 框框框框 控控控控 件件件件（（（（ImageBoxImageBox））））主主主主要要要要用用用用于于于于在在在在窗窗窗窗体体体体的的的的指指指指定定定定位位位位置置置置显显显显示示示示图图图图形形形形信信信信息息息息 。

VB VB 6.06.0支支支支 持持持持 . .bmpbmp、、、、 . .icoico、、、、 . .wmfwmf、、、、 . .emfemf、、、、 . .jpgjpg、、、、. .gifgif等格式的图形文件等格式的图形文件等格式的图形文件等格式的图形文件6.1.1￿￿6.1.1￿￿6.1.1￿￿6.1.1￿￿图片框、图像框的常用属性图片框、图像框的常用属性图片框、图像框的常用属性图片框、图像框的常用属性1 1．．．．PicturePicture属性属性属性属性图图图图片片片片框框框框和和和和图图图图像像像像框框框框中中中中显显显显示示示示的的的的图图图图片片片片由由由由PicturePicture属属属属性性性性决决决决定定定定图图图图形形形形文文文文件件件件可可可可以以以以在在在在设设设设计计计计阶阶阶阶段段段段装装装装入入入入，，，，也也也也可可可可以以以以在在在在运运运运行行行行期期期期间间间间装装装装入浙江蜗牛网络-VB论坛： 1）在设计阶段装入）在设计阶段装入）在设计阶段装入）在设计阶段装入在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的Picture Picture 属性装属性装属性装属性装入图形文件。

入图形文件入图形文件入图形文件2 2）在运行期间装入）在运行期间装入）在运行期间装入）在运行期间装入在运行期间，可以用在运行期间，可以用在运行期间，可以用在运行期间，可以用LoadPictureLoadPicture函数把图形文件函数把图形文件函数把图形文件函数把图形文件装入图片框或图像框中语句格式如下：装入图片框或图像框中语句格式如下：装入图片框或图像框中语句格式如下：装入图片框或图像框中语句格式如下：对象名对象名对象名对象名. .Picture=Picture=LoadPictureLoadPicture（（（（[filename][filename]））））浙江蜗牛网络-VB论坛： 2．．．．AutoSizeAutoSize属性属性属性属性该属性用于图片框决定控件是否自动改变大小该属性用于图片框决定控件是否自动改变大小该属性用于图片框决定控件是否自动改变大小该属性用于图片框决定控件是否自动改变大小以显示图像全部内容缺省值为以显示图像全部内容缺省值为以显示图像全部内容缺省值为以显示图像全部内容缺省值为FalseFalse，，，，此时保持控件此时保持控件此时保持控件此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为大小不变，超出控件区域的内容被裁减掉；若值为大小不变，超出控件区域的内容被裁减掉；若值为大小不变，超出控件区域的内容被裁减掉；若值为TrueTrue时，自动改变控件大小以显示图片全部内容（注时，自动改变控件大小以显示图片全部内容（注时，自动改变控件大小以显示图片全部内容（注时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。

意：不是图形改变大小）意：不是图形改变大小）意：不是图形改变大小）3 3．．．．stretch stretch 属性属性属性属性用于图像框当该属性的取值为用于图像框当该属性的取值为用于图像框当该属性的取值为用于图像框当该属性的取值为FalseFalse时，图像控时，图像控时，图像控时，图像控件将自动改变大小以与图形的大小相适应；当其值为件将自动改变大小以与图形的大小相适应；当其值为件将自动改变大小以与图形的大小相适应；当其值为件将自动改变大小以与图形的大小相适应；当其值为TrueTrue时，显示在控件中的图像的大小将完全适合于控时，显示在控件中的图像的大小将完全适合于控时，显示在控件中的图像的大小将完全适合于控时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形件的大小，这时，图片可能会变形件的大小，这时，图片可能会变形件的大小，这时，图片可能会变形浙江蜗牛网络-VB论坛： 1）图片框控件可以作为其它控件的容器图片框控件可以作为其它控件的容器图片框控件可以作为其它控件的容器图片框控件可以作为其它控件的容器2 2））））图图图图片片片片框框框框可可可可以以以以通通通通过过过过PrintPrint方方方方法法法法接接接接收收收收文文文文本本本本，，，，而而而而图图图图像像像像框则不能接收用框则不能接收用框则不能接收用框则不能接收用PrintPrint方法输入的信息。

方法输入的信息方法输入的信息方法输入的信息3 3）图像框比图片框占用的内存少，显示速度快图像框比图片框占用的内存少，显示速度快图像框比图片框占用的内存少，显示速度快图像框比图片框占用的内存少，显示速度快浙江蜗牛网络-VB论坛： 定时器定时器VBVB提提提提供供供供了了了了一一一一种种种种叫叫叫叫定定定定时时时时器器器器（（（（TimerTimer））））的的的的控控控控件件件件定定定定时时时时器器器器每每每每隔隔隔隔一一一一定定定定的的的的时时时时间间间间间间间间隔隔隔隔就就就就产产产产生生生生一一一一次次次次TimerTimer事事事事件件件件（（（（可可可可理理理理解解解解为为为为报报报报时时时时）））），，，，用用用用户户户户可可可可以以以以根根根根据据据据这这这这个个个个特特特特性性性性设设设设置置置置时时时时间间间间间间间间隔隔隔隔控控控控制制制制某些操作或用于计时某些操作或用于计时某些操作或用于计时某些操作或用于计时1 1．属性．属性．属性．属性定定定定时时时时器器器器控控控控件件件件的的的的属属属属性性性性不不不不是是是是很很很很多多多多，，，，最最最最常常常常用用用用的的的的是是是是IntervalInterval属属属属性性性性，，，，该该该该属属属属性性性性用用用用来来来来决决决决定定定定两两两两次次次次调调调调用用用用定定定定时时时时器器器器的的的的间间间间隔隔隔隔，，，，以以以以msms为为为为单单单单位位位位，，，，取取取取值值值值范范范范围围围围为为为为0 0～～～～6553565535，，，，所所所所以以以以最最最最大大大大时时时时间间间间间间间间隔隔隔隔不不不不能能能能超超超超过过过过6666s s，，，，该该该该属属属属性性性性的的的的缺缺缺缺省省省省值值值值为为为为0 0，，，，即即即即定定定定时时时时器器器器控控控控件件件件不不不不起起起起作作作作用用用用。

如如如如果果果果希希希希望望望望每每每每秒秒秒秒产产产产生生生生n n个个个个事事事事件件件件，，，，则则则则应应应应设设设设置置置置属属属属性性性性IntervalInterval的值为的值为的值为的值为1000/1000/n n浙江蜗牛网络-VB论坛： 2．．．．事件事件事件事件定时器只支持定时器只支持定时器只支持定时器只支持TimerTimer事件对于一个含有定时器控事件对于一个含有定时器控事件对于一个含有定时器控事件对于一个含有定时器控件的窗体，每经过一段由属性件的窗体，每经过一段由属性件的窗体，每经过一段由属性件的窗体，每经过一段由属性IntervalInterval指定的时间间隔，指定的时间间隔，指定的时间间隔，指定的时间间隔，就产生一个就产生一个就产生一个就产生一个TimerTimer事件例例例例6.26.2】】】】建建建建立立立立数数数数字字字字计计计计时时时时器器器器，，，，要要要要求求求求每每每每秒秒秒秒钟钟钟钟时时时时间间间间变变变变化化化化一次设计界面：设计界面：设计界面：设计界面：在在在在窗窗窗窗体体体体上上上上添添添添加加加加一一一一个个个个定定定定时时时时器器器器控控控控件件件件、、、、一一一一个个个个标标标标签签签签，，，，并并并并按按按按表表表表6-16-1设置属性。

设置属性设置属性设置属性浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： Private Sub Timer1_TimerPrivate Sub Timer1_Timer（）（）（）（） Label1.Label1.FontSizeFontSize = 48 = 48 Label1.Caption Label1.Caption = = Time Time ' '将将将将TimeTime函函函函数数数数返返返返回回回回的的的的系系系系统统统统时时时时间显示在标签中间显示在标签中间显示在标签中间显示在标签中 End SubEnd Sub执行结果如下图执行结果如下图执行结果如下图执行结果如下图6-36-3所示，每隔所示，每隔所示，每隔所示，每隔1 1s s钟显示一次时间钟显示一次时间钟显示一次时间钟显示一次时间浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 单选钮与复选框单选钮与复选框有有有有时时时时希希希希望望望望在在在在应应应应用用用用程程程程序序序序的的的的界界界界面面面面上上上上提提提提供供供供一一一一些些些些项项项项目目目目，，，，让让让让用用用用户户户户从从从从几几几几个个个个选选选选项项项项中中中中选选选选择择择择其其其其中中中中之之之之一一一一，，，，这这这这就就就就要要要要用用用用“ “单单单单选选选选钮钮钮钮” ”控控控控件件件件。

如如如如果果果果有有有有多多多多个个个个选选选选择择择择框框框框，，，，每每每每个个个个选选选选择择择择框框框框都都都都是是是是独独独独立立立立的的的的、、、、互互互互不不不不影影影影响响响响的的的的，，，，用用用用户户户户可可可可以以以以任任任任意意意意选选选选择择择择它它它它们们们们的的的的状状状状态态态态组组组组合合合合，，，，则则则则可以用可以用可以用可以用“ “复选框复选框复选框复选框” ”控件6.3.1￿￿6.3.1￿￿6.3.1￿￿6.3.1￿￿单选钮单选钮单选钮单选钮单单单单选选选选钮钮钮钮（（（（OptionButtonOptionButton））））通通通通常常常常成成成成组组组组出出出出现现现现，，，，主主主主要要要要用用用用于于于于处处处处理理理理“ “多多多多选选选选一一一一” ”的的的的问问问问题题题题用用用用户户户户在在在在一一一一组组组组单单单单选选选选钮钮钮钮中中中中必必必必须须须须选选选选择择择择一一一一项项项项，，，，并并并并且且且且最最最最多多多多只只只只能能能能选选选选择择择择一一一一项项项项当当当当某某某某一一一一项项项项被被被被选选选选定定定定后后后后，，，，其其其其左左左左边边边边的的的的圆圆圆圆圈圈圈圈中中中中出出出出现现现现一一一一个个个个黑黑黑黑点点点点。

例例例例如如如如，，，，图图图图6-46-4所所所所示示示示就就就就是是是是一一一一组组组组单单单单选选选选钮钮钮钮，，，，用用用用户户户户只只只只能能能能在在在在这这这这3 3个个个个单单单单选选选选钮钮钮钮选选选选项项项项中中中中选选选选择择择择一个浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 1．属性．属性．属性．属性（（（（1 1））））ValueValue属性属性属性属性该该该该属属属属性性性性表表表表示示示示单单单单选选选选按按按按钮钮钮钮选选选选中中中中或或或或不不不不被被被被选选选选中中中中的的的的状状状状态态态态TrueTrue为选中；为选中；为选中；为选中；FalseFalse为不被选中为不被选中为不被选中为不被选中2 2））））CaptionCaption属性属性属性属性该属性显示出现在单选钮旁边的文本该属性显示出现在单选钮旁边的文本该属性显示出现在单选钮旁边的文本该属性显示出现在单选钮旁边的文本3 3））））StyleStyle属性属性属性属性该该该该属属属属性性性性用用用用来来来来设设设设置置置置控控控控件件件件的的的的外外外外观观观观值值值值为为为为0 0时时时时，，，，控控控控件件件件显显显显示示示示如如如如图图图图6-46-4所所所所示示示示标标标标准准准准样样样样式式式式；；；；值值值值为为为为1 1时时时时，，，，控控控控件件件件外外外外观观观观类类类类似似似似命命命命令令令令按钮。

按钮一一一一般般般般说说说说来来来来，，，，单单单单选选选选钮钮钮钮总总总总是是是是作作作作为为为为一一一一个个个个组组组组（（（（单单单单选选选选钮钮钮钮组组组组））））发挥作用的图发挥作用的图发挥作用的图发挥作用的图6-46-4关于颜色的单选钮就是一个按钮组关于颜色的单选钮就是一个按钮组关于颜色的单选钮就是一个按钮组关于颜色的单选钮就是一个按钮组浙江蜗牛网络-VB论坛： 2．事件．事件．事件．事件单选钮常用事件是单选钮常用事件是单选钮常用事件是单选钮常用事件是ClickClick事件例例例例6.46.4】】】】程序运行后，单击某个单选钮，在标签程序运行后，单击某个单选钮，在标签程序运行后，单击某个单选钮，在标签程序运行后，单击某个单选钮，在标签中显示相应的字体运行结果如图中显示相应的字体运行结果如图中显示相应的字体运行结果如图中显示相应的字体运行结果如图6-56-5所示分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和3 3个单选钮，个单选钮，个单选钮，个单选钮，其主要属性设置如表其主要属性设置如表其主要属性设置如表其主要属性设置如表6-26-2所示。

所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： Private SubPrivate Sub kai kai_Click_Click（）（）（）（） Label1.Label1.FontNameFontName = " = "楷体楷体楷体楷体_ _gb2312"gb2312" End Sub End Sub Private Sub Private Sub li li_Click_Click（）（）（）（） Label1.Label1.FontNameFontName = " = "隶书隶书隶书隶书" " End SubEnd Sub Private Sub song_Click Private Sub song_Click（）（）（）（） Label1.Label1.FontNameFontName = " = "宋体宋体宋体宋体" " End SubEnd Sub浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 1．属性．属性．属性．属性（（（（1 1））））ValueValue属性属性属性属性决定复选框的状态：决定复选框的状态：决定复选框的状态：决定复选框的状态：0—0—未选中，未选中，未选中，未选中，1—1—已选中，已选中，已选中，已选中，2—2—变灰暗。

变灰暗2 2））））PicturePicture属性属性属性属性用来指定当复选框被设计成图形按钮时的图像用来指定当复选框被设计成图形按钮时的图像用来指定当复选框被设计成图形按钮时的图像用来指定当复选框被设计成图形按钮时的图像2 2．事件．事件．事件．事件复选框常用事件为复选框常用事件为复选框常用事件为复选框常用事件为ClickClick事件浙江蜗牛网络-VB论坛： “加下划线加下划线加下划线加下划线” ”复选复选复选复选框，则文本框中的内容就加上了下划线，如果清除框，则文本框中的内容就加上了下划线，如果清除框，则文本框中的内容就加上了下划线，如果清除框，则文本框中的内容就加上了下划线，如果清除“ “加下划线加下划线加下划线加下划线” ”复选框，则文本框中的内容就没有下划线；复选框，则文本框中的内容就没有下划线；复选框，则文本框中的内容就没有下划线；复选框，则文本框中的内容就没有下划线；如果选定如果选定如果选定如果选定“ “斜体斜体斜体斜体” ”复选框，则文本框中的文字字形就复选框，则文本框中的文字字形就复选框，则文本框中的文字字形就复选框，则文本框中的文字字形就变成斜体，如果清除变成斜体，如果清除变成斜体，如果清除变成斜体，如果清除“ “斜体斜体斜体斜体” ”复选框，则文本框中的复选框，则文本框中的复选框，则文本框中的复选框，则文本框中的文字字形就不是斜体。

运行界面如图文字字形就不是斜体运行界面如图文字字形就不是斜体运行界面如图文字字形就不是斜体运行界面如图6-76-7所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 3个个个个控控控控件件件件的属性如表的属性如表的属性如表的属性如表6-36-3所示浙江蜗牛网络-VB论坛： Private Sub Check1_ClickPrivate Sub Check1_Click（）（）（）（） If Check1.Value = 1 ThenIf Check1.Value = 1 Then Text1. Text1.FontUnderlineFontUnderline = True = True Else Else Text1. Text1.FontUnderlineFontUnderline = False = False End If End If End Sub End Sub浙江蜗牛网络-VB论坛： Private Sub Check2_Click（）（） If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub Private Sub Form_Load（）（） Text1.FontSize = 20 End Sub浙江蜗牛网络-VB论坛： 容器与框架容器与框架所所所所谓谓谓谓容容容容器器器器，，，，就就就就是是是是可可可可以以以以在在在在其其其其上上上上放放放放置置置置其其其其它它它它控控控控件件件件对对对对象象象象的的的的一一一一种种种种对对对对象象象象。

窗窗窗窗体体体体、、、、图图图图片片片片框框框框和和和和框框框框架架架架都都都都是是是是容容容容器器器器容容容容器器器器内内内内所所所所有有有有控控控控件件件件成成成成为为为为一一一一个个个个组组组组合合合合，，，，随随随随容容容容器器器器一一一一起起起起移移移移动动动动、、、、显显显显示示示示、、、、消消消消失失失失和屏蔽在在在在前前前前一一一一节节节节例例例例6.36.3中中中中，，，，是是是是在在在在一一一一个个个个窗窗窗窗体体体体上上上上建建建建立立立立一一一一组组组组单单单单选选选选按按按按钮钮钮钮，，，，若若若若要要要要在在在在同同同同一一一一窗窗窗窗体体体体上上上上建建建建立立立立几几几几组组组组相相相相互互互互独独独独立立立立的的的的单单单单选选选选按按按按钮钮钮钮，，，，通通通通常常常常用用用用框框框框架架架架控控控控件件件件（（（（FrameFrame））））将将将将每每每每一一一一组组组组单单单单选选选选钮钮钮钮框框框框起起起起来来来来，，，，这这这这样样样样在在在在一一一一个个个个框框框框架架架架内内内内的的的的单单单单选选选选钮钮钮钮成成成成为为为为一一一一组组组组，，，，对对对对一一一一组组组组单单单单选钮的操作不会影响其它组的单选钮。

选钮的操作不会影响其它组的单选钮选钮的操作不会影响其它组的单选钮选钮的操作不会影响其它组的单选钮浙江蜗牛网络-VB论坛： “+”+”指针在框指针在框指针在框指针在框架中以拖拽的方式添加控件，框架内的控件不能被拖架中以拖拽的方式添加控件，框架内的控件不能被拖架中以拖拽的方式添加控件，框架内的控件不能被拖架中以拖拽的方式添加控件，框架内的控件不能被拖出框架外不能用双击的方式向框架中添加控件，也出框架外不能用双击的方式向框架中添加控件，也出框架外不能用双击的方式向框架中添加控件，也出框架外不能用双击的方式向框架中添加控件，也不能先画出控件再添加框架如果要用框架将窗体上不能先画出控件再添加框架如果要用框架将窗体上不能先画出控件再添加框架如果要用框架将窗体上不能先画出控件再添加框架如果要用框架将窗体上现有的控件进行分组，可先选定控件，将它们剪切后现有的控件进行分组，可先选定控件，将它们剪切后现有的控件进行分组，可先选定控件，将它们剪切后现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架中粘贴到框架中粘贴到框架中粘贴到框架中浙江蜗牛网络-VB论坛： 1．属性．属性．属性．属性（（（（1 1））））CaptionCaption属性属性属性属性框架的标题，位于框架的左上角，用于注明框架框架的标题，位于框架的左上角，用于注明框架框架的标题，位于框架的左上角，用于注明框架框架的标题，位于框架的左上角，用于注明框架的用途。

的用途2 2））））EnabledEnabled属性属性属性属性决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把EnabledEnabled属性属性属性属性设置为设置为设置为设置为TrueTrue，，，，以使框架内的控件成为可以操作的以使框架内的控件成为可以操作的以使框架内的控件成为可以操作的以使框架内的控件成为可以操作的2 2．事件．事件．事件．事件ClickClick和和和和DblClickDblClick在大多数情况下，我们用框架在大多数情况下，我们用框架在大多数情况下，我们用框架在大多数情况下，我们用框架控件对控件进行分组，没有必要响应它的事件控件对控件进行分组，没有必要响应它的事件控件对控件进行分组，没有必要响应它的事件控件对控件进行分组，没有必要响应它的事件浙江蜗牛网络-VB论坛： 3个单选钮控件个单选钮控件个单选钮控件个单选钮控件（颜色按钮组）；再添加一个框架控件，在框架控件（颜色按钮组）；再添加一个框架控件，在框架控件（颜色按钮组）；再添加一个框架控件，在框架控件（颜色按钮组）；再添加一个框架控件，在框架控件上画上两个单选钮控件（字体大小按钮组）。

两个框上画上两个单选钮控件（字体大小按钮组）两个框上画上两个单选钮控件（字体大小按钮组）两个框上画上两个单选钮控件（字体大小按钮组）两个框架的架的架的架的Caption Caption 属性分别设置为属性分别设置为属性分别设置为属性分别设置为“ “颜色颜色颜色颜色” ”和和和和“ “字体大小字体大小字体大小字体大小” ”，其它控件属性的设置可以按照图，其它控件属性的设置可以按照图，其它控件属性的设置可以按照图，其它控件属性的设置可以按照图6-86-8所示自己进行所示自己进行所示自己进行所示自己进行浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： Private Sub Command1_ClickPrivate Sub Command1_Click（）（）（）（） endend End Sub End Sub Private Sub Option1_Click Private Sub Option1_Click（）（）（）（） ' '蓝色单选钮蓝色单选钮蓝色单选钮蓝色单选钮 Label1.Label1.ForeColorForeColor = &HFF0000 = &HFF0000 End Sub End Sub Private Sub Option2_Click Private Sub Option2_Click（）（）（）（） ' '红色单选钮红色单选钮红色单选钮红色单选钮 Label1.Label1.ForeColorForeColor = &HFF& = &HFF& End Sub End Sub浙江蜗牛网络-VB论坛： Private Sub Option3_ClickPrivate Sub Option3_Click（）（）（）（） ' '绿色单选钮绿色单选钮绿色单选钮绿色单选钮 Label1.Label1.ForeColorForeColor = &HFF00& = &HFF00& End Sub End Sub Private Sub Option4_Click Private Sub Option4_Click（）（）（）（） ' ' 文字大小文字大小文字大小文字大小1010单选钮单选钮单选钮单选钮 Label1.Label1.FontSizeFontSize = 10 = 10 End Sub End Sub Private Sub Option5_Click Private Sub Option5_Click（）（）（）（） ' '文字大小文字大小文字大小文字大小2020单选钮单选钮单选钮单选钮 Label1.Label1.FontSizeFontSize = 20 = 20 End Sub End Sub浙江蜗牛网络-VB论坛： 列表框与组合框列表框与组合框列列列列表表表表框框框框（（（（ListBoxListBox））））控控控控件件件件将将将将一一一一系系系系列列列列的的的的选选选选项项项项组组组组合合合合成成成成一一一一个个个个列列列列表表表表，，，，用用用用户户户户可可可可以以以以选选选选择择择择其其其其中中中中的的的的一一一一个个个个或或或或几几几几个个个个选选选选项项项项，，，，但但但但不不不不能能能能向向向向列列列列表表表表清清清清单单单单中中中中输输输输入入入入项项项项目目目目；；；；组组组组合合合合框框框框（（（（ComboBoxComboBox））））控控控控件件件件是是是是综综综综合合合合文文文文本本本本框框框框和和和和列列列列表表表表框框框框特特特特性性性性而而而而形形形形成成成成的的的的一一一一种种种种控控控控件件件件，，，，用用用用户户户户可可可可通通通通过过过过在在在在组组组组合合合合框框框框中中中中输输输输入入入入文文文文本本本本来来来来选选选选定定定定项项项项目目目目，，，，也也也也可可可可从从从从列列列列表表表表中选定项目。

中选定项目中选定项目中选定项目浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 1．属性．属性．属性．属性（（（（1 1））））ListList属性属性属性属性该属性是一个字符串数组，用来保存列表框中的该属性是一个字符串数组，用来保存列表框中的该属性是一个字符串数组，用来保存列表框中的该属性是一个字符串数组，用来保存列表框中的各个数据项内容各个数据项内容各个数据项内容各个数据项内容 ListList数组的下标从数组的下标从数组的下标从数组的下标从0 0开始，即开始，即开始，即开始，即ListList（（（（0 0））））保存表中的第一个数据项的内容保存表中的第一个数据项的内容保存表中的第一个数据项的内容保存表中的第一个数据项的内容ListList（（（（1 1））））保存第二个数据项的内容，依次类推，保存第二个数据项的内容，依次类推，保存第二个数据项的内容，依次类推，保存第二个数据项的内容，依次类推，ListList（（（（ListCountListCount-1-1））））保存表中的最后一个数据项的内保存表中的最后一个数据项的内保存表中的最后一个数据项的内保存表中的最后一个数据项的内容。

容在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图6-96-9所示，所示，所示，所示，图上所显示的图上所显示的图上所显示的图上所显示的“ “List1”List1”是控件的名称，而不是列表项是控件的名称，而不是列表项是控件的名称，而不是列表项是控件的名称，而不是列表项中的数据项中的数据项中的数据项中的数据项浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 2））））ListCountListCount属性属性属性属性该该该该属属属属性性性性记记记记录录录录了了了了列列列列表表表表框框框框中中中中的的的的数数数数据据据据项项项项数数数数，，，，该该该该属属属属性性性性只只只只能能能能在程序中引用它在程序中引用它在程序中引用它在程序中引用它3 3））））TextText属性属性属性属性用用用用于于于于存存存存放放放放被被被被选选选选中中中中列列列列表表表表项项项项的的的的文文文文本本本本内内内内容容容容该该该该属属属属性性性性是是是是只只只只读读读读的的的的，，，，不不不不能能能能在在在在属属属属性性性性窗窗窗窗口口口口中中中中设设设设置置置置，，，，也也也也不不不不能能能能在在在在程程程程序序序序中中中中设设设设置置置置，，，，只只只只用用用用于于于于获获获获取取取取当当当当前前前前选选选选定定定定的的的的列列列列表表表表项项项项的的的的内内内内容容容容。

可可可可在在在在程程程程序序序序中中中中引引引引用用用用TextText属性值浙江蜗牛网络-VB论坛： 4））））ListIndexListIndex属性属性属性属性该属性是该属性是该属性是该属性是ListList数组中，被选中的列表项的下标值数组中，被选中的列表项的下标值数组中，被选中的列表项的下标值数组中，被选中的列表项的下标值（即索引号）如果用户选择了多个列表项，则（即索引号）如果用户选择了多个列表项，则（即索引号）如果用户选择了多个列表项，则（即索引号）如果用户选择了多个列表项，则ListIndexListIndex是最近所选列表项的索引号；如果用户没有是最近所选列表项的索引号；如果用户没有是最近所选列表项的索引号；如果用户没有是最近所选列表项的索引号；如果用户没有从列表框中选择任何一项，则从列表框中选择任何一项，则从列表框中选择任何一项，则从列表框中选择任何一项，则ListIndexListIndex为－为－为－为－1 1程序运行时，可以使用行时，可以使用行时，可以使用行时，可以使用ListIndexListIndex属性判断列表框中哪一项被属性判断列表框中哪一项被属性判断列表框中哪一项被属性判断列表框中哪一项被选中。

选中例如，在列表框例如，在列表框例如，在列表框例如，在列表框List1List1中选中第中选中第中选中第中选中第2 2项，即项，即项，即项，即List1.ListList1.List数数数数组的第组的第组的第组的第2 2项，则项，则项，则项，则ListIndexListIndex＝＝＝＝1 1（（（（ListIndexListIndex从从从从0 0开始）ListIndexListIndex属性不能在设计时设置，只有程序运行属性不能在设计时设置，只有程序运行属性不能在设计时设置，只有程序运行属性不能在设计时设置，只有程序运行时才起作用时才起作用时才起作用时才起作用浙江蜗牛网络-VB论坛： 5））））SelectedSelected属性属性属性属性该属性是一个逻辑数组，其元素对应列表框中相该属性是一个逻辑数组，其元素对应列表框中相该属性是一个逻辑数组，其元素对应列表框中相该属性是一个逻辑数组，其元素对应列表框中相应的项表示相应的项在程序运行期间是否被选中表示相应的项在程序运行期间是否被选中表示相应的项在程序运行期间是否被选中表示相应的项在程序运行期间是否被选中例如，例如，例如，例如，SelectedSelected（（（（0 0））））的值为的值为的值为的值为TrueTrue，，，，表示第一项被选中，表示第一项被选中，表示第一项被选中，表示第一项被选中，如为如为如为如为FalseFalse，，，，表示未被选中。

表示未被选中表示未被选中表示未被选中6 6））））MultiSelectMultiSelect（（（（多选择列表项）属性多选择列表项）属性多选择列表项）属性多选择列表项）属性该属性值表明是否能够在列表框控件中进行复选该属性值表明是否能够在列表框控件中进行复选该属性值表明是否能够在列表框控件中进行复选该属性值表明是否能够在列表框控件中进行复选以及如何进行复选它决定用户是否可以在控件中做以及如何进行复选它决定用户是否可以在控件中做以及如何进行复选它决定用户是否可以在控件中做以及如何进行复选它决定用户是否可以在控件中做多重选择，它必须在设计时设置，运行时只能读取该多重选择，它必须在设计时设置，运行时只能读取该多重选择，它必须在设计时设置，运行时只能读取该多重选择，它必须在设计时设置，运行时只能读取该属性MultiselectMultiselect属性值的说明如表属性值的说明如表属性值的说明如表属性值的说明如表6-46-4所示浙江蜗牛网络-VB论坛： 7））））SelCountSelCount属性属性属性属性其其其其值值值值表表表表示示示示在在在在列列列列表表表表框框框框控控控控件件件件中中中中所所所所选选选选列列列列表表表表项项项项的的的的数数数数目目目目，，，，只只只只有有有有 在在在在 MultiSelectMultiSelect属属属属 性性性性 值值值值 设设设设 置置置置 为为为为 1 1（（（（ SimpleSimple）））） 或或或或2 2（（（（ExtendedExtended））））时时时时起起起起作作作作用用用用，，，，通通通通常常常常与与与与SelectedSelected数数数数组组组组一一一一起起起起使使使使用，以处理控件中的所选项目。

用，以处理控件中的所选项目用，以处理控件中的所选项目用，以处理控件中的所选项目浙江蜗牛网络-VB论坛： 2．方法．方法．方法．方法ListBoxListBox对对对对应应应应的的的的控控控控件件件件方方方方法法法法有有有有：：：：AddItemAddItem，，，，ClearClear和和和和RemoveItemRemoveItem（（（（1 1））））AddItemAddItem方法方法方法方法该方法向一个列表框中加入列表项，其语法是：该方法向一个列表框中加入列表项，其语法是：该方法向一个列表框中加入列表项，其语法是：该方法向一个列表框中加入列表项，其语法是： ListnameListname. .AddItemAddItem item item［，［，［，［，indexindex］］］］（（（（2 2））））RemoveItemRemoveItem方法方法方法方法该方法用于删除列表框中的列表项，其语法是：该方法用于删除列表框中的列表项，其语法是：该方法用于删除列表框中的列表项，其语法是：该方法用于删除列表框中的列表项，其语法是： ListnameListname. .RemoveItemRemoveItem index index浙江蜗牛网络-VB论坛： 3））））ClearClear方法方法方法方法该该该该方方方方法法法法删删删删除除除除列列列列表表表表框框框框控控控控件件件件中中中中的的的的所所所所有有有有列列列列表表表表项项项项。

其其其其语语语语法法法法是：是：是：是： ListnameListname.Clear.Clear【【【【例例例例6.76.7】】】】利利利利用用用用列列列列表表表表框框框框和和和和命命命命令令令令按按按按钮钮钮钮编编编编程程程程，，，，要要要要求求求求程程程程序序序序能够实现添加项目、删除项目、删除全部项目的功能能够实现添加项目、删除项目、删除全部项目的功能能够实现添加项目、删除项目、删除全部项目的功能能够实现添加项目、删除项目、删除全部项目的功能设计界面：设计界面：设计界面：设计界面：在在在在窗窗窗窗体体体体上上上上添添添添加加加加一一一一个个个个列列列列表表表表框框框框（（（（ListBoxListBox））））控控控控件件件件，，，，3 3个个个个命命命命令按钮属性设置如表令按钮属性设置如表令按钮属性设置如表令按钮属性设置如表6-56-5所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： Private Sub Command1_ClickPrivate Sub Command1_Click（）（）（）（） Dim entryDim entry entry = entry = InputBox InputBox（（（（" "输入添加内容输入添加内容输入添加内容输入添加内容" "，，，，" "添加添加添加添加" "）））） List1.List1.AddItemAddItem entry ' entry ' 添加项目添加项目添加项目添加项目 End SubEnd Sub 浙江蜗牛网络-VB论坛： Private Sub Command2_ClickPrivate Sub Command2_Click（）（）（）（） Dim i As IntegerDim i As Integer For i = List1. For i = List1.ListCountListCount - 1 To 0 Step -1 - 1 To 0 Step -1 If List1.Selected If List1.Selected（（（（i i））））Then List1.Then List1.RemoveItemRemoveItem i i ' '删除选中项目删除选中项目删除选中项目删除选中项目 Next iNext i End Sub End Sub Private Sub Command3_Click Private Sub Command3_Click（）（）（）（） List1.Clear 'List1.Clear '全部删除全部删除全部删除全部删除 End SubEnd Sub运行结果如图运行结果如图运行结果如图运行结果如图6-126-12所示。

所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 1．属性．属性．属性．属性（（（（l l））））StyleStyle属性属性属性属性这这这这是是是是组组组组合合合合框框框框的的的的一一一一个个个个重重重重要要要要属属属属性性性性，，，，其其其其取取取取值值值值为为为为0 0，，，，1 1，，，，2 2，，，，它它它它决决决决定定定定了了了了组组组组合合合合框框框框3 3种种种种不不不不同同同同的的的的类类类类型型型型，，，，分分分分别别别别为为为为下下下下拉拉拉拉式式式式组组组组合合合合框框框框、、、、简单组合框和下拉式列表框如图简单组合框和下拉式列表框如图简单组合框和下拉式列表框如图简单组合框和下拉式列表框如图6-136-13所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 2））））TextText属性属性属性属性该该该该属属属属性性性性值值值值是是是是用用用用户户户户所所所所选选选选择择择择的的的的项项项项目目目目的的的的文文文文本本本本或或或或直直直直接接接接从从从从编编编编辑区输入的文本辑区输入的文本辑区输入的文本辑区输入的文本2 2．事件．事件．事件．事件组合框所响应的事件依赖于其组合框所响应的事件依赖于其组合框所响应的事件依赖于其组合框所响应的事件依赖于其StyleStyle属性。

属性例例例例6.86.8】】】】设设设设计计计计一一一一个个个个简简简简单单单单的的的的报报报报名名名名窗窗窗窗口口口口，，，，要要要要求求求求界界界界面面面面如如如如图图图图6-146-14所所所所示示示示，，，，从从从从文文文文本本本本框框框框中中中中输输输输入入入入学学学学生生生生姓姓姓姓名名名名，，，，在在在在“ “班班班班级级级级” ”旁旁旁旁边边边边的的的的组组组组合合合合框框框框中中中中选选选选择择择择其其其其所所所所属属属属班班班班级级级级（（（（提提提提供供供供4 4种种种种默默默默认认认认班班班班级级级级：：：：电电电电气气气气991991、、、、微微微微机机机机991991、、、、网网网网络络络络991991、、、、电电电电子子子子991991，，，，用用用用户户户户可可可可以以以以输输输输入入入入其其其其它它它它的的的的班班班班级级级级名名名名））））然然然然后后后后将将将将学学学学生生生生姓姓姓姓名名名名和和和和班班班班级级级级添添添添加加加加到到到到列列列列表表表表框框框框中中中中用用用用户户户户可可可可以以以以删删删删除除除除列列列列表表表表框框框框中中中中所所所所选选选选择择择择的的的的项项项项目目目目，，，，也也也也可可可可以把整个列表框清空。

以把整个列表框清空以把整个列表框清空以把整个列表框清空浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 3个个个个标标标标签签签签，，，，一一一一个个个个文文文文本本本本框框框框，，，，一一一一个个个个组组组组合合合合框框框框，，，，一一一一个个个个列列列列表表表表框框框框，，，，以以以以及及及及3 3个个个个命命命命令令令令按按按按钮钮钮钮各各各各控控控控件件件件属属属属性性性性设设设设置置置置如如如如表表表表6-66-6所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： Private Sub Command1_ClickPrivate Sub Command1_Click（）（）（）（） If If（（（（ （（（（ Text1.Text Text1.Text <> <> """"）））） AndAnd（（（（ Combo1.Text Combo1.Text <> <> """"））））））））ThenThen List1. List1.AddItemAddItem Text1.Text + " " + Combo1.Text Text1.Text + " " + Combo1.Text Else Else MsgBox MsgBox（（（（" "请输入添加内容！请输入添加内容！请输入添加内容！请输入添加内容！" "）））） End IfEnd If End Sub End Sub 浙江蜗牛网络-VB论坛： Private Sub Command2_ClickPrivate Sub Command2_Click（）（）（）（） Dim i As IntegerDim i As Integer If List1. If List1.ListIndexListIndex >= 0 Then >= 0 Then For i = List1. For i = List1.ListCountListCount - 1 To 0 Step -1 - 1 To 0 Step -1 If List1.Selected If List1.Selected（（（（i i））））Then List1.Then List1.RemoveItemRemoveItem i i ' '删除被选中的项目删除被选中的项目删除被选中的项目删除被选中的项目 Next iNext i End If End If End Sub End Sub 浙江蜗牛网络-VB论坛： Private Sub Command3_ClickPrivate Sub Command3_Click（）（）（）（） List1.Clear 'List1.Clear '清空列表清空列表清空列表清空列表 End Sub End Sub Private Sub Form_Load Private Sub Form_Load（）（）（）（） Combo1.Combo1.AddItemAddItem " "电气电气电气电气991"991" Combo1.Combo1.AddItemAddItem " "微机微机微机微机991"991" Combo1.Combo1.AddItemAddItem " "网络网络网络网络991"991" Combo1.Combo1.AddItemAddItem " "电子电子电子电子991"991" Combo1.Text = Combo1.ListCombo1.Text = Combo1.List（（（（0 0）））） End SubEnd Sub程序运行界面如图程序运行界面如图程序运行界面如图程序运行界面如图6-156-15所示。

所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 滚动条滚动条滚滚滚滚动动动动条条条条通通通通常常常常用用用用来来来来附附附附在在在在窗窗窗窗体体体体边边边边上上上上帮帮帮帮助助助助观观观观察察察察数数数数据据据据或或或或确确确确定定定定位位位位置置置置，，，，作作作作为为为为速速速速度度度度、、、、数数数数量量量量的的的的指指指指示示示示器器器器来来来来使使使使用用用用，，，，也也也也可可可可用用用用来来来来作为数据输入的工具作为数据输入的工具作为数据输入的工具作为数据输入的工具滚滚滚滚动动动动条条条条分分分分为为为为水水水水平平平平滚滚滚滚动动动动条条条条（（（（HscrollBarHscrollBar））））和和和和垂垂垂垂直直直直滚滚滚滚动动动动条条条条（（（（VscrollBarVscrollBar）））），，，，如如如如图图图图6-166-16 所所所所示示示示除除除除方方方方向向向向不不不不一一一一样样样样外外外外，，，，水平滚动条和垂直滚动条的结构与操作是完全相同的水平滚动条和垂直滚动条的结构与操作是完全相同的水平滚动条和垂直滚动条的结构与操作是完全相同的水平滚动条和垂直滚动条的结构与操作是完全相同的。

浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： 1．属性．属性．属性．属性 （（（（1 1））））MaxMax属性属性属性属性滚动条所能表示的最大值滚动条所能表示的最大值滚动条所能表示的最大值滚动条所能表示的最大值2 2））））MinMin属性属性属性属性滚动条所能表示的最小值滚动条所能表示的最小值滚动条所能表示的最小值滚动条所能表示的最小值浙江蜗牛网络-VB论坛： 3））））ValueValue属性属性属性属性表表表表示示示示当当当当前前前前滚滚滚滚动动动动条条条条所所所所代代代代表表表表的的的的值值值值，，，，范范范范围围围围在在在在MaxMax与与与与MinMin之之之之间4 4））））LargeChangLargeChang属性属性属性属性当当当当用用用用户户户户单单单单击击击击滚滚滚滚动动动动块块块块和和和和滚滚滚滚动动动动箭箭箭箭头头头头之之之之间间间间的的的的区区区区域域域域时时时时，，，，滚滚滚滚动动动动条条条条控控控控件件件件（（（（HScrollBar HScrollBar 或或或或 VScrollBarVScrollBar））））的的的的 Value Value 属属属属性性性性值的改变量，默认值为值的改变量，默认值为值的改变量，默认值为值的改变量，默认值为1 1。

5 5））））SmallChangeSmallChange属性属性属性属性表表表表示示示示当当当当用用用用户户户户单单单单击击击击滚滚滚滚动动动动条条条条两两两两端端端端的的的的箭箭箭箭头头头头时时时时，，，，ValueValue属属属属性性性性值的增加或减小的量，默认值为值的增加或减小的量，默认值为值的增加或减小的量，默认值为值的增加或减小的量，默认值为1 1浙江蜗牛网络-VB论坛： 2．事件．事件．事件．事件 滚动条的最常用的是滚动条的最常用的是滚动条的最常用的是滚动条的最常用的是ChangeChange事件和事件和事件和事件和ScrollScroll事件例例例例6.96.9】】】】利利利利用用用用滚滚滚滚动动动动条条条条改改改改变变变变文文文文本本本本框框框框中中中中所所所所显显显显示示示示文文文文本本本本的的的的字号大小要求程序运行效果如图字号大小要求程序运行效果如图字号大小要求程序运行效果如图字号大小要求程序运行效果如图6-176-17所示浙江蜗牛网络-VB论坛：浙江蜗牛网络-VB论坛： Private Sub HScroll1_ChangePrivate Sub HScroll1_Change（）（）（）（） Label1.Caption = HScroll1.ValueLabel1.Caption = HScroll1.Value Text1. Text1.FontSizeFontSize = HScroll1.Value = HScroll1.Value End Sub End Sub浙江蜗牛网络-VB论坛： 焦点与焦点与Tab顺序顺序焦焦焦焦点点点点与与与与TabTab顺顺顺顺序序序序是是是是和和和和控控控控件件件件接接接接受受受受用用用用户户户户输输输输入入入入有有有有关关关关的的的的两两两两个个个个概念。

概念6.7.1￿￿6.7.1￿￿6.7.1￿￿6.7.1￿￿焦点焦点焦点焦点焦焦焦焦点点点点是是是是对对对对象象象象鼠鼠鼠鼠标标标标或或或或键键键键盘盘盘盘输输输输入入入入的的的的能能能能力力力力当当当当对对对对象象象象具具具具有有有有焦点时，就可以接受用户的输入焦点时，就可以接受用户的输入焦点时，就可以接受用户的输入焦点时，就可以接受用户的输入当当当当对对对对象象象象得得得得到到到到焦焦焦焦点点点点时时时时发发发发生生生生GetFocusGetFocus事事事事件件件件，，，，当当当当对对对对象象象象失失失失去焦点时发生去焦点时发生去焦点时发生去焦点时发生LostFocusLostFocus事件浙江蜗牛网络-VB论坛： 1）用鼠标选择对象，用）用鼠标选择对象，用）用鼠标选择对象，用）用鼠标选择对象，用[ [Tab]Tab]键移动，或用快键移动，或用快键移动，或用快键移动，或用快捷键；捷键；捷键；捷键；（（（（2 2）程序代码中用）程序代码中用）程序代码中用）程序代码中用SetFocusSetFocus方法可以设置焦点方法可以设置焦点方法可以设置焦点方法可以设置焦点例如，可以在例如，可以在例如，可以在例如，可以在 Form1Form1窗体的窗体的窗体的窗体的LoadLoad事件中添加如下事件中添加如下事件中添加如下事件中添加如下代码，使得程序开始时光标（焦点）位于文本框代码，使得程序开始时光标（焦点）位于文本框代码，使得程序开始时光标（焦点）位于文本框代码，使得程序开始时光标（焦点）位于文本框Text3Text3中。

中 Private Sub Form_LoadPrivate Sub Form_Load（）（）（）（） Form1.show ' Form1.show ' 显示显示显示显示Form1Form1窗体窗体窗体窗体 Text3.Text3.SetfocusSetfocus ' ' 使焦点位于文本框使焦点位于文本框使焦点位于文本框使焦点位于文本框Text3Text3中中中中 End SubEnd Sub浙江蜗牛网络-VB论坛： 1）用鼠标单击选择另一个对象，用）用鼠标单击选择另一个对象，用）用鼠标单击选择另一个对象，用）用鼠标单击选择另一个对象，用[ [Tab]Tab]键移动，或用快键移动，或用快键移动，或用快键移动，或用快捷键：捷键：捷键：捷键：（（（（2 2）代码中对另一个对象使用）代码中对另一个对象使用）代码中对另一个对象使用）代码中对另一个对象使用SetFocusSetFocus方法改变焦点方法改变焦点方法改变焦点方法改变焦点说明：当对象的说明：当对象的说明：当对象的说明：当对象的EnabledEnabled和和和和VisibleVisible属性都为属性都为属性都为属性都为TrueTrue时，它才能时，它才能时，它才能时，它才能接受焦点。

接受焦点接受焦点接受焦点6.7.2￿￿6.7.2￿￿6.7.2￿￿6.7.2￿￿TabTabTabTab顺序顺序顺序顺序所谓所谓所谓所谓TabTab顺序，就是用户按顺序，就是用户按顺序，就是用户按顺序，就是用户按[ [Tab]Tab]键时，焦点在各个控件之间键时，焦点在各个控件之间键时，焦点在各个控件之间键时，焦点在各个控件之间移动的顺序在一般情况下，移动的顺序在一般情况下，移动的顺序在一般情况下，移动的顺序在一般情况下，TabTab顺序由控件建立时的先后顺序顺序由控件建立时的先后顺序顺序由控件建立时的先后顺序顺序由控件建立时的先后顺序确定可以通过设置控件的可以通过设置控件的可以通过设置控件的可以通过设置控件的TabIndexTabIndex属性来改变它的属性来改变它的属性来改变它的属性来改变它的TabTab顺序TabIndexTabIndex属性值决定了它在属性值决定了它在属性值决定了它在属性值决定了它在TabTab顺序中的位置顺序中的位置顺序中的位置顺序中的位置浙江蜗牛网络-VB论坛： 多窗体多窗体前前前前面面面面我我我我们们们们已已已已设设设设计计计计了了了了不不不不少少少少VBVB应应应应用用用用程程程程序序序序，，，，这这这这些些些些程程程程序序序序有有有有的的的的较较较较简简简简单单单单，，，，有有有有的的的的较较较较复复复复杂杂杂杂。

但但但但它它它它们们们们都都都都有有有有一一一一个个个个共共共共同同同同的的的的特特特特点点点点，，，，即即即即只只只只有有有有一一一一个个个个窗窗窗窗体体体体在在在在实实实实际际际际应应应应用用用用中中中中，，，，特特特特别别别别是是是是对对对对于于于于较较较较复复复复杂杂杂杂的的的的应应应应用用用用程程程程序序序序，，，，单单单单一一一一窗窗窗窗体体体体往往往往往往往往不不不不能能能能满满满满足足足足需需需需要要要要VBVB允允允允许许许许对对对对多多多多个个个个窗窗窗窗体体体体进进进进行行行行处处处处理理理理，，，，多多多多重重重重窗窗窗窗体体体体（（（（Multi Multi FormForm））））程程程程序序序序中中中中的的的的每每每每个个个个窗窗窗窗体体体体都都都都可可可可以以以以有有有有自自自自己己己己的的的的界界界界面面面面和和和和代代代代码码码码，，，，完完完完成成成成各各各各自自自自的功能6.8.1￿￿6.8.1￿￿6.8.1￿￿6.8.1￿￿与多窗体有关的操作与多窗体有关的操作与多窗体有关的操作与多窗体有关的操作1 1．添加窗体．添加窗体．添加窗体．添加窗体添添添添加加加加窗窗窗窗体体体体是是是是指指指指在在在在当当当当前前前前工工工工程程程程中中中中添添添添加加加加一一一一个个个个新新新新的的的的窗窗窗窗体体体体或或或或者者者者把把把把一一一一个个个个属属属属于于于于其其其其它它它它工工工工程程程程的的的的窗窗窗窗体体体体添添添添加加加加到到到到当当当当前前前前工工工工程程程程中中中中。

添添添添加加加加一一一一个个个个新新新新窗窗窗窗体体体体的的的的方方方方法法法法有有有有“ “菜单法菜单法菜单法菜单法” ”、、、、“ “工具栏法工具栏法工具栏法工具栏法” ”等浙江蜗牛网络-VB论坛： 2．当前窗体的切换．当前窗体的切换．当前窗体的切换．当前窗体的切换3 3．删除窗体．删除窗体．删除窗体．删除窗体4 4．多窗体程序的保存．多窗体程序的保存．多窗体程序的保存．多窗体程序的保存5 5．启动窗体的设置．启动窗体的设置．启动窗体的设置．启动窗体的设置拥拥拥拥有有有有多多多多个个个个窗窗窗窗体体体体的的的的应应应应用用用用程程程程序序序序，，，，默默默默认认认认情情情情况况况况下下下下，，，，在在在在设设设设计计计计阶阶阶阶段段段段建建建建立立立立的的的的第第第第一一一一个个个个窗窗窗窗体体体体为为为为启启启启动动动动窗窗窗窗体体体体即即即即应应应应用用用用程程程程序序序序开开开开始始始始运运运运行行行行时时时时，，，，先先先先运运运运行行行行这这这这个个个个窗窗窗窗体体体体如如如如果果果果要要要要改改改改变变变变系系系系统统统统默默默默认认认认的的的的启启启启动窗体，需要另外设置。

动窗体，需要另外设置动窗体，需要另外设置动窗体，需要另外设置浙江蜗牛网络-VB论坛： 1．．．．LoadLoad语句语句语句语句格式：格式：格式：格式：Load Load 窗体名称窗体名称窗体名称窗体名称LoadLoad语句把一个窗体装入内存语句把一个窗体装入内存语句把一个窗体装入内存语句把一个窗体装入内存2 2．．．．ShowShow方法方法方法方法格式：［窗体名称格式：［窗体名称格式：［窗体名称格式：［窗体名称. .］］］］Show Show ［［［［模式］模式］模式］模式］ShowShow方法用来显示一个窗体方法用来显示一个窗体方法用来显示一个窗体方法用来显示一个窗体浙江蜗牛网络-VB论坛： 3．．．．UnloadUnload语句语句语句语句格式：格式：格式：格式：Unload Unload 窗体名称窗体名称窗体名称窗体名称该该该该语语语语句句句句与与与与LoadLoad语语语语句句句句的的的的功功功功能能能能相相相相反反反反，，，，它它它它清清清清除除除除内内内内存存存存中中中中指指指指定的窗体定的窗体定的窗体定的窗体4 4．．．．HideHide方法方法方法方法格式：格式：格式：格式：[ [窗体名称窗体名称窗体名称窗体名称.] .]HideHideHideHide方方方方法法法法使使使使窗窗窗窗体体体体隐隐隐隐藏藏藏藏起起起起来来来来，，，，不不不不在在在在屏屏屏屏幕幕幕幕上上上上显显显显示示示示，，，，但但但但此此此此时时时时窗窗窗窗体体体体仍仍仍仍在在在在内内内内存存存存中中中中。

因因因因此此此此，，，，它它它它与与与与UnloadUnload语语语语句句句句的的的的作作作作用用用用是不一样的是不一样的是不一样的是不一样的。