常用控件和多窗体.ppt

《常用控件和多窗体.ppt》由会员分享，可在线阅读，更多相关《常用控件和多窗体.ppt（72页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、关于常用控件与多窗体关于常用控件与多窗体第一张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.1 图片框与图像框图片框与图像框6.2 定时器定时器6.3 单选钮与复选框单选钮与复选框6.4 容器与框架容器与框架6.5 列表框与组合框列表框与组合框6.6 滚动条滚动条滚动条滚动条6.7 焦点与焦点与Tab顺序顺序6.8 多窗体多窗体第二张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.1 图片框与图像框图片框与图像框图图图图片片片片框框框框控控控控件件件件（PictureBoxPictureBox）和和和和图图图图像像像像框框框

2、框控控控控件件件件（ImageBoxImageBox）主主主主要要要要用用用用于于于于在在在在窗窗窗窗体体体体的的的的指指指指定定定定位位位位置置置置显显显显示示示示图图图图形形形形信信信信息息息息。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属性属性属性属性图图图图片

3、片片片框框框框和和和和图图图图像像像像框框框框中中中中显显显显示示示示的的的的图图图图片片片片由由由由PicturePicture属属属属性性性性决决决决定定定定。图图图图形文件可以在设计阶段装入，也可以在运行期间装入。形文件可以在设计阶段装入，也可以在运行期间装入。形文件可以在设计阶段装入，也可以在运行期间装入。形文件可以在设计阶段装入，也可以在运行期间装入。第三张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!（1 1）在设计阶段装入）在设计阶段装入）在设计阶段装入）在设计阶段装入在设计阶段，可以用属性窗口中的在设计阶段，可以用属性窗口中的在设计阶段，可以用属

4、性窗口中的在设计阶段，可以用属性窗口中的Picture Picture 属性装入图属性装入图属性装入图属性装入图形文件。形文件。形文件。形文件。（2 2）在运行期间装入）在运行期间装入）在运行期间装入）在运行期间装入在运行期间，可以用在运行期间，可以用在运行期间，可以用在运行期间，可以用LoadPictureLoadPicture函数把图形文件装入函数把图形文件装入函数把图形文件装入函数把图形文件装入图片框或图像框中。语句格式如下：图片框或图像框中。语句格式如下：图片框或图像框中。语句格式如下：图片框或图像框中。语句格式如下：对象名对象名对象名对象名.Picture=LoadPicture.P

5、icture=LoadPicture（filenamefilename）第四张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!2 2AutoSizeAutoSize属性属性属性属性该属性用于图片框。决定控件是否自动改变大小以显示图该属性用于图片框。决定控件是否自动改变大小以显示图该属性用于图片框。决定控件是否自动改变大小以显示图该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为像全部内容。缺省值为像全部内容。缺省值为像全部内容。缺省值为FalseFalse，此时保持控件大小不变，超出，此时保持控件大小不变，超出，此时保持控件大小不变，超出，此时

6、保持控件大小不变，超出控件区域的内容被裁减掉；若值为控件区域的内容被裁减掉；若值为控件区域的内容被裁减掉；若值为控件区域的内容被裁减掉；若值为TrueTrue时，自动改变控件大时，自动改变控件大时，自动改变控件大时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。小以显示图片全部内容（注意：不是图形改变大小）。小以显示图片全部内容（注意：不是图形改变大小）。小以显示图片全部内容（注意：不是图形改变大小）。3 3stretch stretch 属性属性属性属性用于图像框。当该属性的取值为用于图像框。当该属性的取值为用于图像框。当该属性的取值为用于图像框。当该属性的取值为FalseF

7、alse时，图像控件将自时，图像控件将自时，图像控件将自时，图像控件将自动改变大小以与图形的大小相适应；当其值为动改变大小以与图形的大小相适应；当其值为动改变大小以与图形的大小相适应；当其值为动改变大小以与图形的大小相适应；当其值为TrueTrue时，显示在时，显示在时，显示在时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可控件中的图像的大小将完全适合于控件的大小，这时，图片可控件中的图像的大小将完全适合于控件的大小，这时，图片可控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。能会变形。能会变形。能会变形。第五张，PPT共七十二页，创作于2022年6月请单击鼠标

8、左键换页请单击鼠标左键换页!6.1.2 6.1.2 图片框、图像框的区别图片框、图像框的区别图片框、图像框的区别图片框、图像框的区别（1 1）图片框控件可以作为其它控件的容器。）图片框控件可以作为其它控件的容器。）图片框控件可以作为其它控件的容器。）图片框控件可以作为其它控件的容器。（2 2）图图图图片片片片框框框框可可可可以以以以通通通通过过过过PrintPrint方方方方法法法法接接接接收收收收文文文文本本本本，而而而而图图图图像像像像框框框框则则则则不能接收用不能接收用不能接收用不能接收用PrintPrint方法输入的信息。方法输入的信息。方法输入的信息。方法输入的信息。（3 3）图像框

9、比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。）图像框比图片框占用的内存少，显示速度快。第六张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.2 定时器定时器VBVB提提提提供供供供了了了了一一一一种种种种叫叫叫叫定定定定时时时时器器器器（TimerTimer）的的的的控控控控件件件件。定定定定时时时时器器器器每每每每隔隔隔隔一一一一定定定定的的的的时时时时间间间间间间间间隔隔隔隔就就就就产产产产生生生生一一一一次次次次TimerTimer事事事事件件件件（可可可可理理理理解解解解为为为为

10、报报报报时时时时），用户可以根据这个特性设置时间间隔控制某些操作或用于计时。用户可以根据这个特性设置时间间隔控制某些操作或用于计时。用户可以根据这个特性设置时间间隔控制某些操作或用于计时。用户可以根据这个特性设置时间间隔控制某些操作或用于计时。1 1属性属性属性属性定定定定时时时时器器器器控控控控件件件件的的的的属属属属性性性性不不不不是是是是很很很很多多多多，最最最最常常常常用用用用的的的的是是是是IntervalInterval属属属属性性性性，该该该该属属属属性性性性用用用用来来来来决决决决定定定定两两两两次次次次调调调调用用用用定定定定时时时时器器器器的的的的间间间间隔隔隔隔，以以以以

11、msms为为为为单单单单位位位位，取取取取值值值值范范范范围围围围为为为为0 06553565535，所所所所以以以以最最最最大大大大时时时时间间间间间间间间隔隔隔隔不不不不能能能能超超超超过过过过66s66s，该该该该属属属属性性性性的的的的缺缺缺缺省省省省值值值值为为为为0 0，即即即即定定定定时时时时器器器器控控控控件件件件不不不不起起起起作作作作用用用用。如如如如果果果果希希希希望望望望每每每每秒秒秒秒产产产产生生生生n n个个个个事事事事件件件件，则应设置属性则应设置属性则应设置属性则应设置属性IntervalInterval的值为的值为的值为的值为1000/1000/n n。第七张

12、，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!2 2事件事件事件事件定时器只支持定时器只支持定时器只支持定时器只支持TimerTimer事件。对于一个含有定时器控件的窗体，事件。对于一个含有定时器控件的窗体，事件。对于一个含有定时器控件的窗体，事件。对于一个含有定时器控件的窗体，每经过一段由属性每经过一段由属性每经过一段由属性每经过一段由属性IntervalInterval指定的时间间隔，就产生一个指定的时间间隔，就产生一个指定的时间间隔，就产生一个指定的时间间隔，就产生一个TimerTimer事件。事件。事件。事件。【例例例例6.26.2】建立数字计时器，要求

13、每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。建立数字计时器，要求每秒钟时间变化一次。设计界面：设计界面：设计界面：设计界面：在在在在窗窗窗窗体体体体上上上上添添添添加加加加一一一一个个个个定定定定时时时时器器器器控控控控件件件件、一一一一个个个个标标标标签签签签，并并并并按按按按表表表表6-16-1设置属性。设置属性。设置属性。设置属性。第八张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第九张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!程序代码如下：程序代码如下：程序代码

14、如下：程序代码如下：Private Sub Timer1_TimerPrivate Sub Timer1_Timer（）（）（）（）Label1.FontSize=48Label1.FontSize=48 Label1.Caption Label1.Caption=Time Time 将将将将TimeTime函函函函数数数数返返返返回回回回的的的的系系系系统统统统时时时时间间间间显显显显示示示示在在在在标签中标签中标签中标签中 End SubEnd Sub执行结果如下图执行结果如下图执行结果如下图执行结果如下图6-36-3所示，每隔所示，每隔所示，每隔所示，每隔1s1s钟显示一次时间。钟显示一

15、次时间。钟显示一次时间。钟显示一次时间。第十张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第十一张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.3 单选钮与复选框单选钮与复选框有有有有时时时时希希希希望望望望在在在在应应应应用用用用程程程程序序序序的的的的界界界界面面面面上上上上提提提提供供供供一一一一些些些些项项项项目目目目，让让让让用用用用户户户户从从从从几几几几个个个个选选选选项项项项中中中中选选选选择择择择其其其其中中中中之之之之一一一一，这这这这就就就就要要要要用用用用“单单单单选选选选钮钮钮钮”控控控控件件件件。

16、如如如如果果果果有有有有多多多多个个个个选选选选择择择择框框框框，每每每每个个个个选选选选择择择择框框框框都都都都是是是是独独独独立立立立的的的的、互互互互不不不不影影影影响响响响的的的的，用用用用户户户户可可可可以以以以任任任任意意意意选选选选择择择择它它它它们们们们的状态组合，则可以用的状态组合，则可以用的状态组合，则可以用的状态组合，则可以用“复选框复选框复选框复选框”控件。控件。控件。控件。6.3.1 6.3.1 单选钮单选钮单选钮单选钮单单单单选选选选钮钮钮钮（OptionButtonOptionButton）通通通通常常常常成成成成组组组组出出出出现现现现，主主主主要要要要用用用用

17、于于于于处处处处理理理理“多多多多选选选选一一一一”的的的的问问问问题题题题。用用用用户户户户在在在在一一一一组组组组单单单单选选选选钮钮钮钮中中中中必必必必须须须须选选选选择择择择一一一一项项项项，并并并并且且且且最最最最多多多多只只只只能能能能选选选选择择择择一一一一项项项项。当当当当某某某某一一一一项项项项被被被被选选选选定定定定后后后后，其其其其左左左左边边边边的的的的圆圆圆圆圈圈圈圈中中中中出出出出现现现现一一一一个个个个黑黑黑黑点点点点。例例例例如如如如，图图图图6-46-4所所所所示示示示就就就就是是是是一一一一组组组组单单单单选选选选钮钮钮钮，用用用用户户户户只只只只能能能能在

18、在在在这这这这3 3个个个个单选钮选项中选择一个。单选钮选项中选择一个。单选钮选项中选择一个。单选钮选项中选择一个。第十二张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第十三张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!1 1属性属性属性属性（1 1）ValueValue属性属性属性属性该该该该属属属属性性性性表表表表示示示示单单单单选选选选按按按按钮钮钮钮选选选选中中中中或或或或不不不不被被被被选选选选中中中中的的的的状状状状态态态态。TrueTrue为为为为选选选选中中中中；FalseFalse为不被选中。为不被选中。为不

19、被选中。为不被选中。（2 2）CaptionCaption属性属性属性属性该属性显示出现在单选钮旁边的文本。该属性显示出现在单选钮旁边的文本。该属性显示出现在单选钮旁边的文本。该属性显示出现在单选钮旁边的文本。（3 3）StyleStyle属性属性属性属性该该该该属属属属性性性性用用用用来来来来设设设设置置置置控控控控件件件件的的的的外外外外观观观观。值值值值为为为为0 0时时时时，控控控控件件件件显显显显示示示示如如如如图图图图6-46-4所示标准样式；值为所示标准样式；值为所示标准样式；值为所示标准样式；值为1 1时，控件外观类似命令按钮。时，控件外观类似命令按钮。时，控件外观类似命令按钮

20、。时，控件外观类似命令按钮。一一一一般般般般说说说说来来来来，单单单单选选选选钮钮钮钮总总总总是是是是作作作作为为为为一一一一个个个个组组组组（单单单单选选选选钮钮钮钮组组组组）发发发发挥挥挥挥作作作作用用用用的的的的。图图图图6-46-4关于颜色的单选钮就是一个按钮组。关于颜色的单选钮就是一个按钮组。关于颜色的单选钮就是一个按钮组。关于颜色的单选钮就是一个按钮组。第十四张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!2 2事件事件事件事件单选钮常用事件是单选钮常用事件是单选钮常用事件是单选钮常用事件是ClickClick事件。事件。事件。事件。【例例例例6.4

21、6.4】程序运行后，单击某个单选钮，在标签中显示程序运行后，单击某个单选钮，在标签中显示程序运行后，单击某个单选钮，在标签中显示程序运行后，单击某个单选钮，在标签中显示相应的字体。运行结果如图相应的字体。运行结果如图相应的字体。运行结果如图相应的字体。运行结果如图6-56-5所示。所示。所示。所示。分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和分析：需要在窗体上建立一个标签和3 3个单选钮，其主要属性个单选钮，其主要属性个单选钮，其主要属性个单选钮，其主要属性设置如表设置如表设置如表设置如表6-26-2所示。所示。所示。所示。第十五张，PPT共

22、七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第十六张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第十七张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!事件过程代码如下：事件过程代码如下：事件过程代码如下：事件过程代码如下：Private Sub kai_ClickPrivate Sub kai_Click（）（）（）（）Label1.FontName=Label1.FontName=楷体楷体楷体楷体_gb2312_gb2312 End Sub End Sub Private Sub li_Click Pr

23、ivate Sub li_Click（）（）（）（）Label1.FontName=Label1.FontName=隶书隶书隶书隶书 End Sub End Sub Private Sub song_Click Private Sub song_Click（）（）（）（）Label1.FontName=Label1.FontName=宋体宋体宋体宋体 End Sub End Sub第十八张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.3.2 6.3.2 复选框复选框复选框复选框复复复复选选选选框框框框（CheckBoxCheckBox）也也也也称称称称检检检

24、检查查查查框框框框，单单单单击击击击复复复复选选选选框框框框一一一一次次次次时时时时被被被被选选选选中中中中，左左左左边边边边出出出出现现现现“”“”号号号号，再再再再次次次次单单单单击击击击则则则则取取取取消消消消选选选选中中中中，清清清清除除除除复复复复选选选选框框框框中中中中的的的的“”“”。可可可可同同同同时时时时使使使使多多多多个个个个复复复复选选选选框框框框处处处处于于于于选选选选中中中中状状状状态态态态，这这这这一一一一点点点点和单选按钮不同。如图和单选按钮不同。如图和单选按钮不同。如图和单选按钮不同。如图6-66-6所示，有四个复选框。所示，有四个复选框。所示，有四个复选框。所

25、示，有四个复选框。第十九张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第二十张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!1 1属性属性属性属性（1 1）ValueValue属性属性属性属性决定复选框的状态：决定复选框的状态：决定复选框的状态：决定复选框的状态：00未选中，未选中，未选中，未选中，11已选中，已选中，已选中，已选中，22变灰暗。变灰暗。变灰暗。变灰暗。（2 2）PicturePicture属性属性属性属性用来指定当复选框被设计成图形按钮时的图像。用来指定当复选框被设计成图形按钮时的图像。用来指定当复选框被设计成

26、图形按钮时的图像。用来指定当复选框被设计成图形按钮时的图像。2 2事件事件事件事件复选框常用事件为复选框常用事件为复选框常用事件为复选框常用事件为ClickClick事件。事件。事件。事件。第二十一张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!【例例例例6.56.5】用复选框控制文本是否加下划线和斜体显示。在程用复选框控制文本是否加下划线和斜体显示。在程用复选框控制文本是否加下划线和斜体显示。在程用复选框控制文本是否加下划线和斜体显示。在程序执行期间，如果选定序执行期间，如果选定序执行期间，如果选定序执行期间，如果选定“加下划线加下划线加下划线加下划线”复选框

27、，则文本框中的内容就复选框，则文本框中的内容就复选框，则文本框中的内容就复选框，则文本框中的内容就加上了下划线，如果清除加上了下划线，如果清除加上了下划线，如果清除加上了下划线，如果清除“加下划线加下划线加下划线加下划线”复选框，则文本框中的内容复选框，则文本框中的内容复选框，则文本框中的内容复选框，则文本框中的内容就没有下划线；如果选定就没有下划线；如果选定就没有下划线；如果选定就没有下划线；如果选定“斜体斜体斜体斜体”复选框，则文本框中的文字字形复选框，则文本框中的文字字形复选框，则文本框中的文字字形复选框，则文本框中的文字字形就变成斜体，如果清除就变成斜体，如果清除就变成斜体，如果清除就

28、变成斜体，如果清除“斜体斜体斜体斜体”复选框，则文本框中的文字字形就复选框，则文本框中的文字字形就复选框，则文本框中的文字字形就复选框，则文本框中的文字字形就不是斜体。运行界面如图不是斜体。运行界面如图不是斜体。运行界面如图不是斜体。运行界面如图6-76-7所示。所示。所示。所示。第二十二张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第二十三张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!设计界面：设计界面：设计界面：设计界面：在在在在窗窗窗窗体体体体上上上上建建建建立立立立一一一一个个个个文文文文本本本本框框框框，两两两两个个

29、个个复复复复选选选选框框框框。3 3个个个个控控控控件件件件的的的的属属属属性如表性如表性如表性如表6-36-3所示。所示。所示。所示。第二十四张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!编写如下事件过程：编写如下事件过程：编写如下事件过程：编写如下事件过程：Private Sub Check1_ClickPrivate Sub Check1_Click（）（）（）（）If Check1.Value=1 ThenIf Check1.Value=1 Then Text1.FontUnderline=True Text1.FontUnderline=True E

30、lse Else Text1.FontUnderline=False Text1.FontUnderline=False End If End If End Sub End Sub第二十五张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!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

31、第二十六张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.4 容器与框架容器与框架所所所所谓谓谓谓容容容容器器器器，就就就就是是是是可可可可以以以以在在在在其其其其上上上上放放放放置置置置其其其其它它它它控控控控件件件件对对对对象象象象的的的的一一一一种种种种对对对对象象象象。窗窗窗窗体体体体、图图图图片片片片框框框框和和和和框框框框架架架架都都都都是是是是容容容容器器器器。容容容容器器器器内内内内所所所所有有有有控控控控件件件件成成成成为一个组合，随容器一起移动、显示、消失和屏蔽。为一个组合，随容器一起移动、显示、消失和屏蔽。为一个组合，随容器一起移动、显示

32、、消失和屏蔽。为一个组合，随容器一起移动、显示、消失和屏蔽。在在在在前前前前一一一一节节节节例例例例6.36.3中中中中，是是是是在在在在一一一一个个个个窗窗窗窗体体体体上上上上建建建建立立立立一一一一组组组组单单单单选选选选按按按按钮钮钮钮，若若若若要要要要在在在在同同同同一一一一窗窗窗窗体体体体上上上上建建建建立立立立几几几几组组组组相相相相互互互互独独独独立立立立的的的的单单单单选选选选按按按按钮钮钮钮，通通通通常常常常用用用用框框框框架架架架控控控控件件件件（FrameFrame）将将将将每每每每一一一一组组组组单单单单选选选选钮钮钮钮框框框框起起起起来来来来，这这这这样样样样在在在在

33、一一一一个个个个框框框框架架架架内内内内的的的的单单单单选选选选钮成为一组，对一组单选钮的操作不会影响其它组的单选钮。钮成为一组，对一组单选钮的操作不会影响其它组的单选钮。钮成为一组，对一组单选钮的操作不会影响其它组的单选钮。钮成为一组，对一组单选钮的操作不会影响其它组的单选钮。第二十七张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!在窗体上创建框架及其内部控件时，应先添加框架控件，然在窗体上创建框架及其内部控件时，应先添加框架控件，然在窗体上创建框架及其内部控件时，应先添加框架控件，然在窗体上创建框架及其内部控件时，应先添加框架控件，然后单击工具箱上的控件，用

34、后单击工具箱上的控件，用后单击工具箱上的控件，用后单击工具箱上的控件，用“+”+”指针在框架中以拖拽的方式添加指针在框架中以拖拽的方式添加指针在框架中以拖拽的方式添加指针在框架中以拖拽的方式添加控件，框架内的控件不能被拖出框架外。不能用双击的方式向框架控件，框架内的控件不能被拖出框架外。不能用双击的方式向框架控件，框架内的控件不能被拖出框架外。不能用双击的方式向框架控件，框架内的控件不能被拖出框架外。不能用双击的方式向框架中添加控件，也不能先画出控件再添加框架。如果要用框架将窗体中添加控件，也不能先画出控件再添加框架。如果要用框架将窗体中添加控件，也不能先画出控件再添加框架。如果要用框架将窗体

35、中添加控件，也不能先画出控件再添加框架。如果要用框架将窗体上现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架上现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架上现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架上现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架中。中。中。中。第二十八张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!1 1属性属性属性属性（1 1）CaptionCaption属性属性属性属性框架的标题，位于框架的左上角，用于注明框架的用途。框架的标题，位于框架的左上角，用于注明框架的用途。框架的标题，位于框架的左上角，

36、用于注明框架的用途。框架的标题，位于框架的左上角，用于注明框架的用途。（2 2）EnabledEnabled属性属性属性属性决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把决定框架中的对象是否可用，通常把EnabledEnabled属性设置为属性设置为属性设置为属性设置为TrueTrue，以使框架内的控件成为可以操作的。，以使框架内的控件成为可以操作的。，以使框架内的控件成为可以操作的。，以使框架内的控件成为可以操作的。2 2事件事件事件事件ClickClick和和和和DblClickDblClick。在大多数情况下，我们用框架控件。在大多数情况

37、下，我们用框架控件。在大多数情况下，我们用框架控件。在大多数情况下，我们用框架控件对控件进行分组，没有必要响应它的事件。对控件进行分组，没有必要响应它的事件。对控件进行分组，没有必要响应它的事件。对控件进行分组，没有必要响应它的事件。第二十九张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!【例例例例6.66.6】使用两个单选钮组来改变文本框中文字的颜色和使用两个单选钮组来改变文本框中文字的颜色和使用两个单选钮组来改变文本框中文字的颜色和使用两个单选钮组来改变文本框中文字的颜色和大小。运行结果如图大小。运行结果如图大小。运行结果如图大小。运行结果如图6-86-8所

38、示。所示。所示。所示。设计界面：设计界面：设计界面：设计界面：在窗体上添加一个标签控件，一个命令按钮；添加一在窗体上添加一个标签控件，一个命令按钮；添加一在窗体上添加一个标签控件，一个命令按钮；添加一在窗体上添加一个标签控件，一个命令按钮；添加一个框架控件，在框架控件上画上个框架控件，在框架控件上画上个框架控件，在框架控件上画上个框架控件，在框架控件上画上3 3个单选钮控件（颜色按钮个单选钮控件（颜色按钮个单选钮控件（颜色按钮个单选钮控件（颜色按钮组）；再添加一个框架控件，在框架控件上画上两个单选钮控组）；再添加一个框架控件，在框架控件上画上两个单选钮控组）；再添加一个框架控件，在框架控件上画

39、上两个单选钮控组）；再添加一个框架控件，在框架控件上画上两个单选钮控件（字体大小按钮组）。两个框架的件（字体大小按钮组）。两个框架的件（字体大小按钮组）。两个框架的件（字体大小按钮组）。两个框架的Caption Caption 属性分别设置为属性分别设置为属性分别设置为属性分别设置为“颜色颜色颜色颜色”和和和和“字体大小字体大小字体大小字体大小”，其它控件属性的设置可以按照图，其它控件属性的设置可以按照图，其它控件属性的设置可以按照图，其它控件属性的设置可以按照图6-86-8所示所示所示所示自己进行。自己进行。自己进行。自己进行。第三十张，PPT共七十二页，创作于2022年6月请单击鼠标左键换

40、页请单击鼠标左键换页!第三十一张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!编写代码如下：编写代码如下：编写代码如下：编写代码如下：Private Sub Command1_ClickPrivate Sub Command1_Click（）（）（）（）endend End Sub End Sub Private Sub Option1_Click Private Sub Option1_Click（）（）（）（）蓝色单选钮蓝色单选钮蓝色单选钮蓝色单选钮 Label1.ForeColor=&HFF0000Label1.ForeColor=&HFF0000 End

41、 Sub End Sub Private Sub Option2_Click Private Sub Option2_Click（）（）（）（）红色单选钮红色单选钮红色单选钮红色单选钮 Label1.ForeColor=&HFF&Label1.ForeColor=&HFF&End Sub End Sub第三十二张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!Private Sub Option3_Click Private Sub Option3_Click（）（）（）（）绿色单选钮绿色单选钮绿色单选钮绿色单选钮 Label1.ForeColor=&HFF00&

42、Label1.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=20Label

43、1.FontSize=20 End Sub End Sub第三十三张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.5 列表框与组合框列表框与组合框列列列列表表表表框框框框（ListBoxListBox）控控控控件件件件将将将将一一一一系系系系列列列列的的的的选选选选项项项项组组组组合合合合成成成成一一一一个个个个列列列列表表表表，用用用用户户户户可可可可以以以以选选选选择择择择其其其其中中中中的的的的一一一一个个个个或或或或几几几几个个个个选选选选项项项项，但但但但不不不不能能能能向向向向列列列列表表表表清清清清单单单单中中中中输输输输入入入入项项项项目目目

44、目；组组组组合合合合框框框框（ComboBoxComboBox）控控控控件件件件是是是是综综综综合合合合文文文文本本本本框框框框和和和和列列列列表表表表框框框框特特特特性性性性而而而而形形形形成成成成的的的的一一一一种种种种控控控控件件件件，用用用用户户户户可可可可通通通通过过过过在在在在组组组组合合合合框框框框中中中中输输输输入入入入文本来选定项目，也可从列表中选定项目。文本来选定项目，也可从列表中选定项目。文本来选定项目，也可从列表中选定项目。文本来选定项目，也可从列表中选定项目。第三十四张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!6.5.1 6.5.1

45、 列表框列表框列表框列表框列表框控件（列表框控件（列表框控件（列表框控件（ListBoxListBox）的主要用途在于提供列表式的）的主要用途在于提供列表式的）的主要用途在于提供列表式的）的主要用途在于提供列表式的多个数据项供用户选择。在列表框中放入若干个项的名字，多个数据项供用户选择。在列表框中放入若干个项的名字，多个数据项供用户选择。在列表框中放入若干个项的名字，多个数据项供用户选择。在列表框中放入若干个项的名字，用户可以通过单击某一项或多项来选择自己所需要的项目。用户可以通过单击某一项或多项来选择自己所需要的项目。用户可以通过单击某一项或多项来选择自己所需要的项目。用户可以通过单击某一项

46、或多项来选择自己所需要的项目。如果放入的项较多，超过了列表框设计时可显示的项目数，如果放入的项较多，超过了列表框设计时可显示的项目数，如果放入的项较多，超过了列表框设计时可显示的项目数，如果放入的项较多，超过了列表框设计时可显示的项目数，则系统会自动在列表框边上加一个垂直滚动条。则系统会自动在列表框边上加一个垂直滚动条。则系统会自动在列表框边上加一个垂直滚动条。则系统会自动在列表框边上加一个垂直滚动条。第三十五张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!1 1属性属性属性属性（1 1）ListList属性属性属性属性该属性是一个字符串数组，用来保存列表框中的

47、各个该属性是一个字符串数组，用来保存列表框中的各个该属性是一个字符串数组，用来保存列表框中的各个该属性是一个字符串数组，用来保存列表框中的各个数据项内容。数据项内容。数据项内容。数据项内容。ListList数组的下标从数组的下标从数组的下标从数组的下标从0 0开始，即开始，即开始，即开始，即ListList（0 0）保存表）保存表）保存表）保存表中的第一个数据项的内容。中的第一个数据项的内容。中的第一个数据项的内容。中的第一个数据项的内容。ListList（1 1）保存第二个数据项的内容，）保存第二个数据项的内容，）保存第二个数据项的内容，）保存第二个数据项的内容，依次类推，依次类推，依次类推

48、，依次类推，ListList（ListCount-1ListCount-1）保存表中的最后一个数据项的）保存表中的最后一个数据项的）保存表中的最后一个数据项的）保存表中的最后一个数据项的内容。内容。内容。内容。在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图在窗体上添加一个列表框，其外观如图6-96-9所示，图上所显所示，图上所显所示，图上所显所示，图上所显示的示的示的示的“List1”List1”是控件的名称，而不是列表项中的数据项。是控件的名称，而不是列表项中的数据项。是控件的名称，而不是列表项中的数据项。是控件的名称，而不是列表项中的

49、数据项。第三十六张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!第三十七张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!（2 2）ListCountListCount属性属性属性属性该该该该属属属属性性性性记记记记录录录录了了了了列列列列表表表表框框框框中中中中的的的的数数数数据据据据项项项项数数数数，该该该该属属属属性性性性只只只只能能能能在在在在程程程程序序序序中引用它。中引用它。中引用它。中引用它。（3 3）TextText属性属性属性属性用用用用于于于于存存存存放放放放被被被被选选选选中中中中列列列列表表表表项项项项的的的

50、的文文文文本本本本内内内内容容容容。该该该该属属属属性性性性是是是是只只只只读读读读的的的的，不不不不能能能能在在在在属属属属性性性性窗窗窗窗口口口口中中中中设设设设置置置置，也也也也不不不不能能能能在在在在程程程程序序序序中中中中设设设设置置置置，只只只只用用用用于于于于获获获获取取取取当前选定的列表项的内容。可在程序中引用当前选定的列表项的内容。可在程序中引用当前选定的列表项的内容。可在程序中引用当前选定的列表项的内容。可在程序中引用TextText属性值。属性值。属性值。属性值。第三十八张，PPT共七十二页，创作于2022年6月请单击鼠标左键换页请单击鼠标左键换页!（4 4）ListIn