图6.40测试表图6.41调查表6.2按图6.41所示界面设计一个调查表。6.3设计一个数字钟，能显示当前时间，并能在指定的下课时间进行报时，界面如图6.42所示。图6.42数字钟6.4利用计时器控制一个圆，使其在窗体上每隔100毫秒就移动一下。6.5利用滚动条控制窗体的背景色，使其随滚动条值的改变而改变。6.6利用列表框设计一个可对本学期选修课程进行课程添加、修改和删除的应用程序。图6.30设置属性后的界面3)编写代码代码编写如下：PrivateSubTimer1_Timer()Form1.ScaleWidth是Form1右下角的横坐标IfLabel1.Left+Label1.WidthForm1.ScaleWidthThenLabel1.Left=Form1.ScaleLeft如果标签将要移出窗体Form1，则标签从最左开始往右移Form1.ScaleLeft是Form1左下角的横坐标ElseLabel1.MoveLabel1.Left+30标签向右移EndIfEndSub运行程序，结果如图6.31所示。图6.31滚动字幕6.5图像框和图片框案例10图像框1．学习目标利用计时器和图像框设计一个简单的动画。通过本案例的学习，掌握图像框的Picture、Visible等属性的用法。2．相关知识图片类控件主要用于在窗体的指定位置显示图形信息，常见的有图像框(Image)和图片框(PictureBox)。图像框只用来显示图形，而图片框除可以显示图形以外，还可以作为其他控件的容器和显示以Print方法输出的文本。图像框与图片框的缺省名分别为ImageX(X为1，2，3，…)和PictureX。如果只单纯地显示图形，则一般采用图像框。用图像框显示图形时，占用的内存比图片框的少。图像框有Stretch(拉伸)属性，当将它设为True时，装入的图形可根据图像框的大小自动压缩或扩大；当将它设为False时，图像框会自动改变大小以适应图形大小。图像框及图片框的图形加载都是通过设置Picture属性来完成的。其设置方法与其他控件的相同，可通过属性表或设置代码来完成。设置Picture属性时，只有符合以下6种格式的图形文件才能被加载：①?.bmp位图文件，即Windows的标准文件；②?.gif文件，属“无损压缩”文件；③?.jpg文件，是JPEG压缩文件，属“有损压缩”文件；④?.wmf文件，是绘图命令构成的文件；⑤?.ico图标文件或?.cur指针文件；⑥?.dib文件，即位图文件。此外，图形的加载也可以通过剪贴板来完成，即先使用任意图形软件工具制作一个图形，然后利用剪贴板的“复制”、“粘贴”命令将图形插入到所需位置。利用LoadPicture函数加载图形的语句形式：对象名.Picture=LoadPicture([Filename])其中，对象名可以是图像框、图片框、窗体的名称；Filename是一个字符串，为包括路径在内的图形文件名，当省略Filename时表示清除控件已装载的图形。语句功能：在运行时，通过引用LoadPicture函数加载指定文件的图片。例如：运行时，要将D盘pict文件夹中图形文件a.jpg内保存的图片显示于图像框Image1中，则应执行语句：Image1.Picture=LoadPicture(D:\pict\a.jpg)清除所显示的图片，则应执行语句：Image1.Picture=LoadPicture()注意：采用在属性表中设置Picture属性、利用剪贴板复制图形和使用LoadPicture函数加载这三种方法加载图形时，可根据实际应用的需要选用相应的方法。3．程序实现1)界面设计初始界面如图6.32所示。2)属性设置属性设置如表6.10所示。设置属性后的界面如图6.33所示。图6.32初始界面表6.10属性设置图6.33设置属性后的界面3)编写代码代码编写如下：PrivateSubTimer1_Timer()DimsAsIntegers=Int(Rnd*3)+1利用Rnd函数随机产生1、2、3SelectCasesCase1Image1.V