《常用控件与多窗体课件.ppt》由会员分享，可在线阅读，更多相关《常用控件与多窗体课件.ppt（72页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、关于常用控件与多窗体关于常用控件与多窗体现在学习的是第1页，共72页6.1 图片框与图像框图片框与图像框6.2 定时器定时器6.3 单选钮与复选框单选钮与复选框6.4 容器与框架容器与框架6.5 列表框与组合框列表框与组合框6.6 滚动条滚动条6.7 焦点与焦点与Tab顺序顺序6.8 多窗体多窗体现在学习的是第2页，共72页6.1 图片框与图像框图片框与图像框图图图图片片片片框框框框控控控控件件件件（PictureBoxPictureBox）和和和和图图图图像像像像框框框框控控控控件件件件（ImageBoxImageBox）主主主主要要要要用用用用于于于于在在在在窗窗窗窗体体体体的的的的指指指
2、指定定定定位位位位置置置置显显显显示示示示图图图图形形形形信信信信息息息息。VB VB 6.06.0支支支支持持持持 .bmp.bmp、.ico.ico、.wmf.wmf、.emf.emf、.jpg.jpg、.gif.gif等格式的图形文件。等格式的图形文件。等格式的图形文件。等格式的图形文件。6.1.1 6.1.1 图片框、图像框的常用属性图片框、图像框的常用属性图片框、图像框的常用属性图片框、图像框的常用属性1 1PicturePicture属性属性属性属性图图图图片片片片框框框框和和和和图图图图像像像像框框框框中中中中显显显显示示示示的的的的图图图图片片片片由由由由PicturePict
3、ure属属属属性性性性决决决决定定定定。图图图图形文件可以在设计阶段装入，也可以在运行期间装入。形文件可以在设计阶段装入，也可以在运行期间装入。形文件可以在设计阶段装入，也可以在运行期间装入。形文件可以在设计阶段装入，也可以在运行期间装入。现在学习的是第3页，共72页（1 1）在设计阶段装入）在设计阶段装入）在设计阶段装入）在设计阶段装入在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的Picture Picture 属性装入图属性装入图属性装入图属性装入图形文件。形文件。形文件。形文件。（2 2）在运行期间装入）在运行期间
4、装入）在运行期间装入）在运行期间装入在运行期间，可以用在运行期间，可以用在运行期间，可以用在运行期间，可以用LoadPictureLoadPicture函数把图形文件装函数把图形文件装函数把图形文件装函数把图形文件装入图片框或图像框中。语句格式如下：入图片框或图像框中。语句格式如下：入图片框或图像框中。语句格式如下：入图片框或图像框中。语句格式如下：对象名对象名对象名对象名.Picture=LoadPicture.Picture=LoadPicture（filenamefilename）现在学习的是第4页，共72页2 2AutoSizeAutoSize属性属性属性属性该属性用于图片框。决定控件
5、是否自动改变大小以显示该属性用于图片框。决定控件是否自动改变大小以显示该属性用于图片框。决定控件是否自动改变大小以显示该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为图像全部内容。缺省值为图像全部内容。缺省值为图像全部内容。缺省值为FalseFalse，此时保持控件大小不变，超，此时保持控件大小不变，超，此时保持控件大小不变，超，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为出控件区域的内容被裁减掉；若值为出控件区域的内容被裁减掉；若值为出控件区域的内容被裁减掉；若值为TrueTrue时，自动改变控件大时，自动改变控件大时，自动改变控件大时，自动改变控件大小以显
6、示图片全部内容（注意：不是图形改变大小）。小以显示图片全部内容（注意：不是图形改变大小）。小以显示图片全部内容（注意：不是图形改变大小）。小以显示图片全部内容（注意：不是图形改变大小）。3 3stretch stretch 属性属性属性属性用于图像框。当该属性的取值为用于图像框。当该属性的取值为用于图像框。当该属性的取值为用于图像框。当该属性的取值为FalseFalse时，图像控件将自时，图像控件将自时，图像控件将自时，图像控件将自动改变大小以与图形的大小相适应；当其值为动改变大小以与图形的大小相适应；当其值为动改变大小以与图形的大小相适应；当其值为动改变大小以与图形的大小相适应；当其值为Tr
7、ueTrue时，显示在时，显示在时，显示在时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能控件中的图像的大小将完全适合于控件的大小，这时，图片可能控件中的图像的大小将完全适合于控件的大小，这时，图片可能控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。会变形。会变形。会变形。现在学习的是第5页，共72页6.1.2 6.1.2 图片框、图像框的区别图片框、图像框的区别图片框、图像框的区别图片框、图像框的区别（1 1）图片框控件可以作为其它控件的容器。）图片框控件可以作为其它控件的容器。）图片框控件可以作为其它控件的容器。）图片框控件可以作为其它控件的容器。（2 2
8、）图图图图片片片片框框框框可可可可以以以以通通通通过过过过PrintPrint方方方方法法法法接接接接收收收收文文文文本本本本，而而而而图图图图像像像像框框框框则不能接收用则不能接收用则不能接收用则不能接收用PrintPrint方法输入的信息。方法输入的信息。方法输入的信息。方法输入的信息。（3 3）图像框比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。现在学习的是第6页，共72页6.2 定时器定时器VBVB提提提提供供供供了了了了一一一一种种种种叫叫叫叫定定定定时时时时器器器器（T
9、imerTimer）的的的的控控控控件件件件。定定定定时时时时器器器器每每每每隔隔隔隔一一一一定定定定的的的的时时时时间间间间间间间间隔隔隔隔就就就就产产产产生生生生一一一一次次次次TimerTimer事事事事件件件件（可可可可理理理理解解解解为为为为报报报报时时时时），用用用用户户户户可可可可以以以以根根根根据据据据这这这这个个个个特特特特性性性性设设设设置置置置时时时时间间间间间间间间隔隔隔隔控控控控制制制制某某某某些些些些操操操操作作作作或或或或用用用用于计时。于计时。于计时。于计时。1 1属性属性属性属性定定定定时时时时器器器器控控控控件件件件的的的的属属属属性性性性不不不不是是是是很
10、很很很多多多多，最最最最常常常常用用用用的的的的是是是是IntervalInterval属属属属性性性性，该该该该属属属属性性性性用用用用来来来来决决决决定定定定两两两两次次次次调调调调用用用用定定定定时时时时器器器器的的的的间间间间隔隔隔隔，以以以以msms为为为为单单单单位位位位，取取取取值值值值范范范范围围围围为为为为0 06553565535，所所所所以以以以最最最最大大大大时时时时间间间间间间间间隔隔隔隔不不不不能能能能超超超超过过过过66s66s，该该该该属属属属性性性性的的的的缺缺缺缺省省省省值值值值为为为为0 0，即即即即定定定定时时时时器器器器控控控控件件件件不不不不起起起起
11、作作作作用用用用。如如如如果果果果希希希希望望望望每每每每秒秒秒秒产产产产生生生生n n个事件，则应设置属性个事件，则应设置属性个事件，则应设置属性个事件，则应设置属性IntervalInterval的值为的值为的值为的值为1000/1000/n n。现在学习的是第7页，共72页2 2事件事件事件事件定时器只支持定时器只支持定时器只支持定时器只支持TimerTimer事件。对于一个含有定时器控件的事件。对于一个含有定时器控件的事件。对于一个含有定时器控件的事件。对于一个含有定时器控件的窗体，每经过一段由属性窗体，每经过一段由属性窗体，每经过一段由属性窗体，每经过一段由属性IntervalInt
12、erval指定的时间间隔，就产生一指定的时间间隔，就产生一指定的时间间隔，就产生一指定的时间间隔，就产生一个个个个TimerTimer事件。事件。事件。事件。【例例例例6.26.2】建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。设计界面：设计界面：设计界面：设计界面：在在在在窗窗窗窗体体体体上上上上添添添添加加加加一一一一个个个个定定定定时时时时器器器器控控控控件件件件、一一一一个个个个标标标标签签签签，并并并并按按按按表表表表6-16-1设设设设置属性。置属性。置属性。置属性。现
13、在学习的是第8页，共72页现在学习的是第9页，共72页程序代码如下：程序代码如下：程序代码如下：程序代码如下：Private Sub Timer1_TimerPrivate Sub Timer1_Timer（）（）（）（）Label1.FontSize=48Label1.FontSize=48 Label1.Caption Label1.Caption=Time Time 将将将将TimeTime函函函函数数数数返返返返回回回回的的的的系系系系统统统统时时时时间间间间显显显显示在标签中示在标签中示在标签中示在标签中 End SubEnd Sub执行结果如下图执行结果如下图执行结果如下图执行结果
14、如下图6-36-3所示，每隔所示，每隔所示，每隔所示，每隔1s1s钟显示一次时间。钟显示一次时间。钟显示一次时间。钟显示一次时间。现在学习的是第10页，共72页现在学习的是第11页，共72页6.3 单选钮与复选框单选钮与复选框有有有有时时时时希希希希望望望望在在在在应应应应用用用用程程程程序序序序的的的的界界界界面面面面上上上上提提提提供供供供一一一一些些些些项项项项目目目目，让让让让用用用用户户户户从从从从几几几几个个个个选选选选项项项项中中中中选选选选择择择择其其其其中中中中之之之之一一一一，这这这这就就就就要要要要用用用用“单单单单选选选选钮钮钮钮”控控控控件件件件。如如如如果果果果有有
15、有有多多多多个个个个选选选选择择择择框框框框，每每每每个个个个选选选选择择择择框框框框都都都都是是是是独独独独立立立立的的的的、互互互互不不不不影影影影响响响响的的的的，用用用用户户户户可以任意选择它们的状态组合，则可以用可以任意选择它们的状态组合，则可以用可以任意选择它们的状态组合，则可以用可以任意选择它们的状态组合，则可以用“复选框复选框复选框复选框”控件。控件。控件。控件。6.3.1 6.3.1 单选钮单选钮单选钮单选钮单单单单选选选选钮钮钮钮（OptionButtonOptionButton）通通通通常常常常成成成成组组组组出出出出现现现现，主主主主要要要要用用用用于于于于处处处处理理
16、理理“多多多多选选选选一一一一”的的的的问问问问题题题题。用用用用户户户户在在在在一一一一组组组组单单单单选选选选钮钮钮钮中中中中必必必必须须须须选选选选择择择择一一一一项项项项，并并并并且且且且最最最最多多多多只只只只能能能能选选选选择择择择一一一一项项项项。当当当当某某某某一一一一项项项项被被被被选选选选定定定定后后后后，其其其其左左左左边边边边的的的的圆圆圆圆圈圈圈圈中中中中出出出出现现现现一一一一个个个个黑黑黑黑点点点点。例例例例如如如如，图图图图6-46-4所所所所示示示示就就就就是是是是一一一一组组组组单单单单选选选选钮钮钮钮，用用用用户户户户只只只只能能能能在这在这在这在这3 3
17、个单选钮选项中选择一个。个单选钮选项中选择一个。个单选钮选项中选择一个。个单选钮选项中选择一个。现在学习的是第12页，共72页现在学习的是第13页，共72页1 1属性属性属性属性（1 1）ValueValue属性属性属性属性该该该该属属属属性性性性表表表表示示示示单单单单选选选选按按按按钮钮钮钮选选选选中中中中或或或或不不不不被被被被选选选选中中中中的的的的状状状状态态态态。TrueTrue为为为为选选选选中中中中；FalseFalse为不被选中。为不被选中。为不被选中。为不被选中。（2 2）CaptionCaption属性属性属性属性该属性显示出现在单选钮旁边的文本。该属性显示出现在单选钮旁
18、边的文本。该属性显示出现在单选钮旁边的文本。该属性显示出现在单选钮旁边的文本。（3 3）StyleStyle属性属性属性属性该该该该属属属属性性性性用用用用来来来来设设设设置置置置控控控控件件件件的的的的外外外外观观观观。值值值值为为为为0 0时时时时，控控控控件件件件显显显显示示示示如如如如图图图图6-6-4 4所示标准样式；值为所示标准样式；值为所示标准样式；值为所示标准样式；值为1 1时，控件外观类似命令按钮。时，控件外观类似命令按钮。时，控件外观类似命令按钮。时，控件外观类似命令按钮。一一一一般般般般说说说说来来来来，单单单单选选选选钮钮钮钮总总总总是是是是作作作作为为为为一一一一个个
19、个个组组组组（单单单单选选选选钮钮钮钮组组组组）发发发发挥挥挥挥作作作作用的。图用的。图用的。图用的。图6-46-4关于颜色的单选钮就是一个按钮组。关于颜色的单选钮就是一个按钮组。关于颜色的单选钮就是一个按钮组。关于颜色的单选钮就是一个按钮组。现在学习的是第14页，共72页2 2事件事件事件事件单选钮常用事件是单选钮常用事件是单选钮常用事件是单选钮常用事件是ClickClick事件。事件。事件。事件。【例例例例6.46.4】程序运行后，单击某个单选钮，在标签中显示相程序运行后，单击某个单选钮，在标签中显示相程序运行后，单击某个单选钮，在标签中显示相程序运行后，单击某个单选钮，在标签中显示相应的
20、字体。运行结果如图应的字体。运行结果如图应的字体。运行结果如图应的字体。运行结果如图6-56-5所示。所示。所示。所示。分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和3 3个单选钮，其主要个单选钮，其主要个单选钮，其主要个单选钮，其主要属性设置如表属性设置如表属性设置如表属性设置如表6-26-2所示。所示。所示。所示。现在学习的是第15页，共72页现在学习的是第16页，共72页现在学习的是第17页，共72页事件过程代码如下：事件过程代码如下：事件过程代码如下：事件过程代码如下：Private Sub kai_Cl
21、ickPrivate Sub kai_Click（）（）（）（）Label1.FontName=Label1.FontName=楷体楷体楷体楷体_gb2312_gb2312 End Sub End Sub Private Sub li_Click Private Sub li_Click（）（）（）（）Label1.FontName=Label1.FontName=隶书隶书隶书隶书 End Sub End Sub Private Sub song_Click Private Sub song_Click（）（）（）（）Label1.FontName=Label1.FontName=宋体宋体宋体
22、宋体 End Sub End Sub现在学习的是第18页，共72页6.3.2 6.3.2 复选框复选框复选框复选框复复复复选选选选框框框框（CheckBoxCheckBox）也也也也称称称称检检检检查查查查框框框框，单单单单击击击击复复复复选选选选框框框框一一一一次次次次时时时时被被被被选选选选中中中中，左左左左边边边边出出出出现现现现“”“”号号号号，再再再再次次次次单单单单击击击击则则则则取取取取消消消消选选选选中中中中，清清清清除除除除复复复复选选选选框框框框中中中中的的的的“”“”。可可可可同同同同时时时时使使使使多多多多个个个个复复复复选选选选框框框框处处处处于于于于选选选选中中中中
23、状状状状态态态态，这这这这一一一一点点点点和单选按钮不同。如图和单选按钮不同。如图和单选按钮不同。如图和单选按钮不同。如图6-66-6所示，有四个复选框。所示，有四个复选框。所示，有四个复选框。所示，有四个复选框。现在学习的是第19页，共72页现在学习的是第20页，共72页1 1属性属性属性属性（1 1）ValueValue属性属性属性属性决定复选框的状态：决定复选框的状态：决定复选框的状态：决定复选框的状态：00未选中，未选中，未选中，未选中，11已选中，已选中，已选中，已选中，22变灰暗。变灰暗。变灰暗。变灰暗。（2 2）PicturePicture属性属性属性属性用来指定当复选框被设计成
24、图形按钮时的图像。用来指定当复选框被设计成图形按钮时的图像。用来指定当复选框被设计成图形按钮时的图像。用来指定当复选框被设计成图形按钮时的图像。2 2事件事件事件事件复选框常用事件为复选框常用事件为复选框常用事件为复选框常用事件为ClickClick事件。事件。事件。事件。现在学习的是第21页，共72页【例例例例6.56.5】用复选框控制文本是否加下划线和斜体显示。用复选框控制文本是否加下划线和斜体显示。用复选框控制文本是否加下划线和斜体显示。用复选框控制文本是否加下划线和斜体显示。在程序执行期间，如果选定在程序执行期间，如果选定在程序执行期间，如果选定在程序执行期间，如果选定“加下划线加下划
25、线加下划线加下划线”复选框，则文本框复选框，则文本框复选框，则文本框复选框，则文本框中的内容就加上了下划线，如果清除中的内容就加上了下划线，如果清除中的内容就加上了下划线，如果清除中的内容就加上了下划线，如果清除“加下划线加下划线加下划线加下划线”复选框，复选框，复选框，复选框，则文本框中的内容就没有下划线；如果选定则文本框中的内容就没有下划线；如果选定则文本框中的内容就没有下划线；如果选定则文本框中的内容就没有下划线；如果选定“斜体斜体斜体斜体”复选框，复选框，复选框，复选框，则文本框中的文字字形就变成斜体，如果清除则文本框中的文字字形就变成斜体，如果清除则文本框中的文字字形就变成斜体，如果
26、清除则文本框中的文字字形就变成斜体，如果清除“斜体斜体斜体斜体”复选复选复选复选框，则文本框中的文字字形就不是斜体。运行界面如图框，则文本框中的文字字形就不是斜体。运行界面如图框，则文本框中的文字字形就不是斜体。运行界面如图框，则文本框中的文字字形就不是斜体。运行界面如图6-76-7所所所所示。示。示。示。现在学习的是第22页，共72页现在学习的是第23页，共72页设计界面：设计界面：设计界面：设计界面：在在在在窗窗窗窗体体体体上上上上建建建建立立立立一一一一个个个个文文文文本本本本框框框框，两两两两个个个个复复复复选选选选框框框框。3 3个个个个控控控控件件件件的的的的属性如表属性如表属性如
27、表属性如表6-36-3所示。所示。所示。所示。现在学习的是第24页，共72页编写如下事件过程：编写如下事件过程：编写如下事件过程：编写如下事件过程：Private Sub Check1_ClickPrivate Sub Check1_Click（）（）（）（）If Check1.Value=1 ThenIf Check1.Value=1 Then Text1.FontUnderline=True Text1.FontUnderline=True Else Else Text1.FontUnderline=False Text1.FontUnderline=False End If End If
28、 End Sub End Sub现在学习的是第25页，共72页 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现在学习的是第26页，共72页6.4 容器与框架容器与框架所所所所谓谓谓谓容容容容器器器器，就就就就是是是是可可可可以以以以在在在在其其其其上上上上放放放放置置置置其其其其它它它它控控控控件件件件对对对对
29、象象象象的的的的一一一一种种种种对对对对象象象象。窗窗窗窗体体体体、图图图图片片片片框框框框和和和和框框框框架架架架都都都都是是是是容容容容器器器器。容容容容器器器器内内内内所所所所有有有有控控控控件成为一个组合，随容器一起移动、显示、消失和屏蔽。件成为一个组合，随容器一起移动、显示、消失和屏蔽。件成为一个组合，随容器一起移动、显示、消失和屏蔽。件成为一个组合，随容器一起移动、显示、消失和屏蔽。在在在在前前前前一一一一节节节节例例例例6.36.3中中中中，是是是是在在在在一一一一个个个个窗窗窗窗体体体体上上上上建建建建立立立立一一一一组组组组单单单单选选选选按按按按钮钮钮钮，若若若若要要要要在
30、在在在同同同同一一一一窗窗窗窗体体体体上上上上建建建建立立立立几几几几组组组组相相相相互互互互独独独独立立立立的的的的单单单单选选选选按按按按钮钮钮钮，通通通通常常常常用用用用框框框框架架架架控控控控件件件件（FrameFrame）将将将将每每每每一一一一组组组组单单单单选选选选钮钮钮钮框框框框起起起起来来来来，这这这这样样样样在在在在一一一一个个个个框框框框架架架架内内内内的的的的单单单单选选选选钮钮钮钮成成成成为为为为一一一一组组组组，对对对对一一一一组组组组单单单单选选选选钮钮钮钮的的的的操操操操作作作作不不不不会会会会影影影影响其它组的单选钮。响其它组的单选钮。响其它组的单选钮。响其它
31、组的单选钮。现在学习的是第27页，共72页在窗体上创建框架及其内部控件时，应先添加框架控在窗体上创建框架及其内部控件时，应先添加框架控在窗体上创建框架及其内部控件时，应先添加框架控在窗体上创建框架及其内部控件时，应先添加框架控件，然后单击工具箱上的控件，用件，然后单击工具箱上的控件，用件，然后单击工具箱上的控件，用件，然后单击工具箱上的控件，用“+”+”指针在框架中以拖拽指针在框架中以拖拽指针在框架中以拖拽指针在框架中以拖拽的方式添加控件，框架内的控件不能被拖出框架外。不能用的方式添加控件，框架内的控件不能被拖出框架外。不能用的方式添加控件，框架内的控件不能被拖出框架外。不能用的方式添加控件，
32、框架内的控件不能被拖出框架外。不能用双击的方式向框架中添加控件，也不能先画出控件再添加框双击的方式向框架中添加控件，也不能先画出控件再添加框双击的方式向框架中添加控件，也不能先画出控件再添加框双击的方式向框架中添加控件，也不能先画出控件再添加框架。如果要用框架将窗体上现有的控件进行分组，可先选定架。如果要用框架将窗体上现有的控件进行分组，可先选定架。如果要用框架将窗体上现有的控件进行分组，可先选定架。如果要用框架将窗体上现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架中。控件，将它们剪切后粘贴到框架中。控件，将它们剪切后粘贴到框架中。控件，将它们剪切后粘贴到框架中。现在学习的是第28页
33、，共72页1 1属性属性属性属性（1 1）CaptionCaption属性属性属性属性框架的标题，位于框架的左上角，用于注明框架的用框架的标题，位于框架的左上角，用于注明框架的用框架的标题，位于框架的左上角，用于注明框架的用框架的标题，位于框架的左上角，用于注明框架的用途。途。途。途。（2 2）EnabledEnabled属性属性属性属性决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把EnabledEnabled属性设置为属性设置为属性设置为属性设置为TrueTrue，以使框架内的控件成为可以操作的。，以使框架内的
34、控件成为可以操作的。，以使框架内的控件成为可以操作的。，以使框架内的控件成为可以操作的。2 2事件事件事件事件ClickClick和和和和DblClickDblClick。在大多数情况下，我们用框架控件对。在大多数情况下，我们用框架控件对。在大多数情况下，我们用框架控件对。在大多数情况下，我们用框架控件对控件进行分组，没有必要响应它的事件。控件进行分组，没有必要响应它的事件。控件进行分组，没有必要响应它的事件。控件进行分组，没有必要响应它的事件。现在学习的是第29页，共72页【例例例例6.66.6】使用两个单选钮组来改变文本框中文字的使用两个单选钮组来改变文本框中文字的使用两个单选钮组来改变文
35、本框中文字的使用两个单选钮组来改变文本框中文字的颜色和大小。运行结果如图颜色和大小。运行结果如图颜色和大小。运行结果如图颜色和大小。运行结果如图6-86-8所示。所示。所示。所示。设计界面：设计界面：设计界面：设计界面：在窗体上添加一个标签控件，一个命令按钮；添加在窗体上添加一个标签控件，一个命令按钮；添加在窗体上添加一个标签控件，一个命令按钮；添加在窗体上添加一个标签控件，一个命令按钮；添加一个框架控件，在框架控件上画上一个框架控件，在框架控件上画上一个框架控件，在框架控件上画上一个框架控件，在框架控件上画上3 3个单选钮控件（颜色个单选钮控件（颜色个单选钮控件（颜色个单选钮控件（颜色按钮组
36、）；再添加一个框架控件，在框架控件上画上两按钮组）；再添加一个框架控件，在框架控件上画上两按钮组）；再添加一个框架控件，在框架控件上画上两按钮组）；再添加一个框架控件，在框架控件上画上两个单选钮控件（字体大小按钮组）。两个框架的个单选钮控件（字体大小按钮组）。两个框架的个单选钮控件（字体大小按钮组）。两个框架的个单选钮控件（字体大小按钮组）。两个框架的Caption Caption 属性分别设置为属性分别设置为属性分别设置为属性分别设置为“颜色颜色颜色颜色”和和和和“字体大小字体大小字体大小字体大小”，其它控件属性的，其它控件属性的，其它控件属性的，其它控件属性的设置可以按照图设置可以按照图设
37、置可以按照图设置可以按照图6-86-8所示自己进行。所示自己进行。所示自己进行。所示自己进行。现在学习的是第30页，共72页现在学习的是第31页，共72页编写代码如下：编写代码如下：编写代码如下：编写代码如下：Private Sub Command1_ClickPrivate Sub Command1_Click（）（）（）（）endend End Sub End Sub Private Sub Option1_Click Private Sub Option1_Click（）（）（）（）蓝色单选钮蓝色单选钮蓝色单选钮蓝色单选钮 Label1.ForeColor=&HFF0000Label1.
38、ForeColor=&HFF0000 End Sub End Sub Private Sub Option2_Click Private Sub Option2_Click（）（）（）（）红色单选钮红色单选钮红色单选钮红色单选钮 Label1.ForeColor=&HFF&Label1.ForeColor=&HFF&End Sub End Sub现在学习的是第32页，共72页 Private Sub Option3_Click Private Sub Option3_Click（）（）（）（）绿色单选钮绿色单选钮绿色单选钮绿色单选钮 Label1.ForeColor=&HFF00&Label1
39、.ForeColor=&HFF00&End Sub End Sub Private Sub Option4_Click Private Sub Option4_Click（）（）（）（）文字大小文字大小文字大小文字大小1010单选钮单选钮单选钮单选钮 Label1.FontSize=10Label1.FontSize=10 End Sub End Sub Private Sub Option5_Click Private Sub Option5_Click（）（）（）（）文字大小文字大小文字大小文字大小2020单选钮单选钮单选钮单选钮 Label1.FontSize=20Label1.Font
40、Size=20 End Sub End Sub现在学习的是第33页，共72页6.5 列表框与组合框列表框与组合框列列列列表表表表框框框框（ListBoxListBox）控控控控件件件件将将将将一一一一系系系系列列列列的的的的选选选选项项项项组组组组合合合合成成成成一一一一个个个个列列列列表表表表，用用用用户户户户可可可可以以以以选选选选择择择择其其其其中中中中的的的的一一一一个个个个或或或或几几几几个个个个选选选选项项项项，但但但但不不不不能能能能向向向向列列列列表表表表清清清清单单单单中中中中输输输输入入入入项项项项目目目目；组组组组合合合合框框框框（ComboBoxComboBox）控控控
41、控件件件件是是是是综综综综合合合合文文文文本本本本框框框框和和和和列列列列表表表表框框框框特特特特性性性性而而而而形形形形成成成成的的的的一一一一种种种种控控控控件件件件，用用用用户户户户可可可可通通通通过过过过在在在在组组组组合合合合框框框框中中中中输输输输入文本来选定项目，也可从列表中选定项目。入文本来选定项目，也可从列表中选定项目。入文本来选定项目，也可从列表中选定项目。入文本来选定项目，也可从列表中选定项目。现在学习的是第34页，共72页6.5.1 6.5.1 列表框列表框列表框列表框列表框控件（列表框控件（列表框控件（列表框控件（ListBoxListBox）的主要用途在于提供列表式
42、的多）的主要用途在于提供列表式的多）的主要用途在于提供列表式的多）的主要用途在于提供列表式的多个数据项供用户选择。在列表框中放入若干个项的名字，用户可个数据项供用户选择。在列表框中放入若干个项的名字，用户可个数据项供用户选择。在列表框中放入若干个项的名字，用户可个数据项供用户选择。在列表框中放入若干个项的名字，用户可以通过单击某一项或多项来选择自己所需要的项目。如果放入的以通过单击某一项或多项来选择自己所需要的项目。如果放入的以通过单击某一项或多项来选择自己所需要的项目。如果放入的以通过单击某一项或多项来选择自己所需要的项目。如果放入的项较多，超过了列表框设计时可显示的项目数，则系统会自动在项
43、较多，超过了列表框设计时可显示的项目数，则系统会自动在项较多，超过了列表框设计时可显示的项目数，则系统会自动在项较多，超过了列表框设计时可显示的项目数，则系统会自动在列表框边上加一个垂直滚动条。列表框边上加一个垂直滚动条。列表框边上加一个垂直滚动条。列表框边上加一个垂直滚动条。现在学习的是第35页，共72页1 1属性属性属性属性（1 1）ListList属性属性属性属性该属性是一个字符串数组，用来保存列表框中的各该属性是一个字符串数组，用来保存列表框中的各该属性是一个字符串数组，用来保存列表框中的各该属性是一个字符串数组，用来保存列表框中的各个数据项内容。个数据项内容。个数据项内容。个数据项内
44、容。ListList数组的下标从数组的下标从数组的下标从数组的下标从0 0开始，即开始，即开始，即开始，即ListList（0 0）保存）保存）保存）保存表中的第一个数据项的内容。表中的第一个数据项的内容。表中的第一个数据项的内容。表中的第一个数据项的内容。ListList（1 1）保存第二个数据项的）保存第二个数据项的）保存第二个数据项的）保存第二个数据项的内容，依次类推，内容，依次类推，内容，依次类推，内容，依次类推，ListList（ListCount-1ListCount-1）保存表中的最后一个数）保存表中的最后一个数）保存表中的最后一个数）保存表中的最后一个数据项的内容。据项的内容。
45、据项的内容。据项的内容。在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图6-96-9所示，图上所显所示，图上所显所示，图上所显所示，图上所显示的示的示的示的“List1”List1”是控件的名称，而不是列表项中的数据项。是控件的名称，而不是列表项中的数据项。是控件的名称，而不是列表项中的数据项。是控件的名称，而不是列表项中的数据项。现在学习的是第36页，共72页现在学习的是第37页，共72页（2 2）ListCountListCount属性属性属性属性该该该该属属属属性性性性记记记记录录录录了了了了列列列列
46、表表表表框框框框中中中中的的的的数数数数据据据据项项项项数数数数，该该该该属属属属性性性性只只只只能能能能在在在在程程程程序中引用它。序中引用它。序中引用它。序中引用它。（3 3）TextText属性属性属性属性用用用用于于于于存存存存放放放放被被被被选选选选中中中中列列列列表表表表项项项项的的的的文文文文本本本本内内内内容容容容。该该该该属属属属性性性性是是是是只只只只读读读读的的的的，不不不不能能能能在在在在属属属属性性性性窗窗窗窗口口口口中中中中设设设设置置置置，也也也也不不不不能能能能在在在在程程程程序序序序中中中中设设设设置置置置，只只只只用用用用于于于于获获获获取取取取当当当当前前
47、前前选选选选定的列表项的内容。可在程序中引用定的列表项的内容。可在程序中引用定的列表项的内容。可在程序中引用定的列表项的内容。可在程序中引用TextText属性值。属性值。属性值。属性值。现在学习的是第38页，共72页（4 4）ListIndexListIndex属性属性属性属性该属性是该属性是该属性是该属性是ListList数组中，被选中的列表项的下标值（即索引数组中，被选中的列表项的下标值（即索引数组中，被选中的列表项的下标值（即索引数组中，被选中的列表项的下标值（即索引号）。如果用户选择了多个列表项，则号）。如果用户选择了多个列表项，则号）。如果用户选择了多个列表项，则号）。如果用户选择
48、了多个列表项，则ListIndexListIndex是最近所选列是最近所选列是最近所选列是最近所选列表项的索引号；如果用户没有从列表框中选择任何一项，则表项的索引号；如果用户没有从列表框中选择任何一项，则表项的索引号；如果用户没有从列表框中选择任何一项，则表项的索引号；如果用户没有从列表框中选择任何一项，则ListIndexListIndex为为为为1 1。程序运行时，可以使用。程序运行时，可以使用。程序运行时，可以使用。程序运行时，可以使用ListIndexListIndex属性判断属性判断属性判断属性判断列表框中哪一项被选中。列表框中哪一项被选中。列表框中哪一项被选中。列表框中哪一项被选中
49、。例如，在列表框例如，在列表框例如，在列表框例如，在列表框List1List1中选中第中选中第中选中第中选中第2 2项，即项，即项，即项，即List1.ListList1.List数组的数组的数组的数组的第第第第2 2项，则项，则项，则项，则ListIndexListIndex1 1（ListIndexListIndex从从从从0 0开始）。开始）。开始）。开始）。ListIndexListIndex属性不能在设计时设置，只有程序运行时属性不能在设计时设置，只有程序运行时属性不能在设计时设置，只有程序运行时属性不能在设计时设置，只有程序运行时才起作用。才起作用。才起作用。才起作用。现在学习的是
50、第39页，共72页（5 5）SelectedSelected属性属性属性属性该属性是一个逻辑数组，其元素对应列表框中相应的项。该属性是一个逻辑数组，其元素对应列表框中相应的项。该属性是一个逻辑数组，其元素对应列表框中相应的项。该属性是一个逻辑数组，其元素对应列表框中相应的项。表示相应的项在程序运行期间是否被选中。例如，表示相应的项在程序运行期间是否被选中。例如，表示相应的项在程序运行期间是否被选中。例如，表示相应的项在程序运行期间是否被选中。例如，SelectedSelected（0 0）的值为）的值为）的值为）的值为TrueTrue，表示第一项被选中，如为，表示第一项被选中，如为，表示第一项