VB时钟控件控制移动

一、实验目的、目标
掌握VB程序设计语言的窗体，输入输出框、以及常用内部控件（标签、文本框、命令按钮和时钟）的使用方法，并结合实例进行应用。

二、实验内容
课本77页3（3）
设计一个窗体，依靠1个时钟，使4个标签（或4个形状）为蓝色、紫色、黄色、绿色彩条，有规律的移动，同时依靠时钟，使两个分别显示“快乐”、“学习”的标签，有规律的进行词组交换。

三、实验过程与步骤
1.新建一个工程及一个窗体
2.在窗体中，加入4个标签，打开属性窗口，设置他们的大小一致，分别将backcolor 设置成蓝色、紫色、黄色、绿色
然后将4个标签拖到指定的位置，如下图：
3.在窗体中加入一个时钟控件，调整其enabled为true，interval值为1.（要使标签移动的速度快且自然，不会一跳一跳的，所以interval设置为最小1）
双击时钟控件打开代码窗口，输入以下代码：
这些代码的作用就是使label1,2,3,4在窗体上下移动。

一开始定义一个数值类型的a,使其值为10，则下面if语句执行if a=10 then 后面的，执行到a=-10就开始执行else 的语句，执行完else语句后，a又变成10，则又返回执行前面的语句，如此，就可以实现标签在窗体上下移动。

4.在窗体中加入两个标签，label5,6，在属性窗口将其caption改为“快乐”“学习”，将标签的backcolor改为灰色，字体为黑体48号，forecolor为&H00FF8080&，&H00C0C000&。

并将其autosize改为true。

置于窗体中间。

5.再加入一个时钟控件，用来控制标签进行有规律的词组变化。

将时钟控件的属性设置如下（因为要使其变化慢一些，所以interval取1000）：
双击打开代码窗口，在timer2那里输入以下代码：
代码的作用是实现两个标签在快乐，学习中不断变换。

并且字体的颜色也不断变换。

6.将所有标签排版好并运行调试
排版如下：
7.输出工程并保存工程
四、测试数据及运行结果
五、实验总结、经验分享
一开始，我写的程序是使标签1,4移到最底的时候，它的top回到0，又从顶移到底，标签2,3移到最顶时，它的top回到最底，又从底移到顶，相应的代码如下：
-3360为标签去到最顶时其top的值，7200为标签去到最底是top的值。

如此就使标签有
规律的移动，如工程2.
但是这不是我想要做的结果，我想做的是使标签碰到窗体的边后就返回。

于是我想了很多种方法都不行，本来想让其中一个到达top为0的时候所有都转向，因为我的标签是对其的，所有可以控制一个然后控制全部，然后我写了以下代码：
结果执行了之后达不到效果，才发现两个if语句自相矛盾了。

然后我就想通过改变一个变量的正负来改变加减，于是又写了以下代码：
结果还是自相矛盾了，在if后面的语句不知道怎么写才能让其选择做而不自相矛盾，后来就想到用一个变量的改变来控制，于是写了以下代码：
这回就成功了，期间用了很多种方法，想了很多个思路都实现不了，总之我觉得学语言还是好多调试。