VB时钟控件控制移动.doc

一、实验目的、目标 掌握VB程序设计语言的窗体，输入输出框、以及常用内部控件（标签、文本框、命令按钮和时钟）的使用方法，并结合实例进行应用。 二、实验内容 课本77页3（3） 设计一个窗体，依靠1个时钟，使4个标签（或4个形状）为蓝色、紫色、黄色、绿色彩条，有规律的移动，同时依靠时钟，使两个分别显示“快乐”、“学习”的标签，有规律的进行词组交换。 三、实验过程与步骤 1.新建一个工程及一个窗体 2.在窗体中，加入4个标签，打开属性窗口，设置他们的大小一致，分别将backcolor设置成蓝色、紫色、黄色、绿色 然后将4个标签拖到指定的位置，如下图： 在窗体中加入一个时钟控件，调整其enabled为true，interval值为1.（要使标签移动的速度快且自然，不会一跳一跳的，所以interval设置为最小1） 双击时钟控件打开代码窗口，输入以下代码： 这些代码的作用就是使label1,2,3,4在窗体上下移动。一开始定义一个数值类型的a,使其值为10，则下面if语句执行if a=10 then 后面的，执行到a=-10就开始执行else的语句，执行完else语句后，a又变成10，则又返回执行前面的语句，如此，就可以实现标签在窗体上下移动。 在窗体中加入两个标签，label5,6，在属性窗口将其caption改为“快乐”“学习”，将标签的backcolor改为灰色，字体为黑体48号，forecolor为H00FF8080，H00C0C000。并将其autosize改为true。置于窗体中间。 再加入一个时钟控件，用来控制标签进行有规律的词组变化。 将时钟控件的属性设置如下（因为要使其变化慢一些，所以interval取1000）： 双击打开代码窗口，在timer2那里输入以下代码： 代码的作用是实现两个标签在快乐，学习中不断变换。并且字体的颜色也不断变换。 将所有标签排版好并运行调试 排版如下： 7.输出工程并保存工程 四、测试数据及运行结果 五、实验总结、经验分享 一开始，我写的程序是使标签1,4移到最底的时候，它的top回到0，又从顶移到底，标签2,3移到最顶时，它的top回到最底，又从底移到顶，相应的代码如下： -3360为标签去到最顶时其top的值，7200为标签去到最底是top的值。如此就使标签有规律的移动，如工程2. 但是这不是我想要做的结果，我想做的是使标签碰到窗体的边后就返回。于是我想了很多种方法都不行，本来想让其中一个到达top为0的时候所有都转向，因为我的标签是对其的，所有可以控制一个然后控制全部，然后我写了以下代码： 结果执行了之后达不到效果，才发现两个if语句自相矛盾了。然后我就想通过改变一个变量的正负来改变加减，于是又写了以下代码： 结果还是自相矛盾了，在if后面的语句不知道怎么写才能让其选择做而不自相矛盾，后来就想到用一个变量的改变来控制，于是写了以下代码： 这回就成功了，期间用了很多种方法，想了很多个思路都实现不了，总之我觉得学语言还是好多调试。 第 1 页 共 2 页