VB基础教程第八章

《VB基础教程第八章》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6章常用控件与多窗体第3章介绍了窗体的使用及最基本控件的属性、事件和方法。本章介绍另外的几个常用控件以及多窗体。主要内容有：图片框与图像框、定时器、单选钮与复选框、框架、列表框与组合框滚动条、焦点与Tab顺序、多窗体。退出6.1图片框与图像框6.2定时器6.3单选钮与复选框6.4容器与框架6.5列表框与组合框6.6滚动条6.7焦点与Tab顺序6.8多窗体6.1图片框与图像框图片框控件（PictureBox）和图像框控件（ImageBox）主要用于在窗体的指定位置显示图形信息。VB6.0支持.bmp、.ico、.wmf、.emf、.

2、jpg、.gif等格式的图形文件。6.1.1图片框、图像框的常用属性1．Picture属性图片框和图像框中显示的图片由Picture属性决定。图形文件可以在设计阶段装入，也可以在运行期间装入。（1）在设计阶段装入在设计阶段，可以用属性窗口中的Picture属性装入图形文件。（2）在运行期间装入在运行期间，可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下：对象名.Picture=LoadPicture（[filename]）2．AutoSize属性该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容

3、。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。3．stretch属性用于图像框。当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。6.1.2图片框、图像框的区别（1）图片框控件可以作为其它控件的容器。（2）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。（3）图像框比图片框占用的内

4、存少，显示速度快。6.2定时器VB提供了一种叫定时器（Timer）的控件。定时器每隔一定的时间间隔就产生一次Timer事件（可理解为报时），用户可以根据这个特性设置时间间隔控制某些操作或用于计时。1．属性定时器控件的属性不是很多，最常用的是Interval属性，该属性用来决定两次调用定时器的间隔，以ms为单位，取值范围为0～65535，所以最大时间间隔不能超过66s，该属性的缺省值为0，即定时器控件不起作用。如果希望每秒产生n个事件，则应设置属性Interval的值为1000/n。2．事件定时器只支持Timer事件。对于一个含有定时

5、器控件的窗体，每经过一段由属性Interval指定的时间间隔，就产生一个Timer事件。【例6.2】建立数字计时器，要求每秒钟时间变化一次。设计界面：在窗体上添加一个定时器控件、一个标签，并按表6-1设置属性。程序代码如下：PrivateSubTimer1_Timer（）Label1.FontSize=48Label1.Caption=Time'将Time函数返回的系统时间显示在标签中EndSub执行结果如下图6-3所示，每隔1s钟显示一次时间。6.3单选钮与复选框有时希望在应用程序的界面上提供一些项目，让用户从几个选项中选择其中之

6、一，这就要用“单选钮”控件。如果有多个选择框，每个选择框都是独立的、互不影响的，用户可以任意选择它们的状态组合，则可以用“复选框”控件。6.3.1单选钮单选钮（OptionButton）通常成组出现，主要用于处理“多选一”的问题。用户在一组单选钮中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。例如，图6-4所示就是一组单选钮，用户只能在这3个单选钮选项中选择一个。1．属性（1）Value属性该属性表示单选按钮选中或不被选中的状态。True为选中；False为不被选中。（2）Caption属性该属性

7、显示出现在单选钮旁边的文本。（3）Style属性该属性用来设置控件的外观。值为0时，控件显示如图6-4所示标准样式；值为1时，控件外观类似命令按钮。一般说来，单选钮总是作为一个组（单选钮组）发挥作用的。图6-4关于颜色的单选钮就是一个按钮组。2．事件单选钮常用事件是Click事件。【例6.4】程序运行后，单击某个单选钮，在标签中显示相应的字体。运行结果如图6-5所示。分析：需要在窗体上建立一个标签和3个单选钮，其主要属性设置如表6-2所示。事件过程代码如下：PrivateSubkai_Click（）Label1.FontName="

8、楷体_gb2312"EndSubPrivateSubli_Click（）Label1.FontName="隶书"EndSubPrivateSubsong_Click（）Label1.FontName="宋体"EndSub6.3.2复选