vb时钟控件控制移动

《vb时钟控件控制移动》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、一、实验目的、目标掌搓VB程序设计语言的窗体，输入输出框、以及常用内部控件（标签、文本框、命令按钮和时钟）的使用方法，并结合实例进行应用。二、实验内容课本77页3（3）设计一个窗体，依靠1个时钟，使4个标签（或4个形状）为蓝色、紫色、黄色、绿色彩条，有规律的移动，同时依靠时钟，使两个分别显示“快乐”、“学习”的标签，有规律的进行词组交换。三、实验过程与步骤1.新建一个工程及一个窗体2.在窗体屮，加入4个标签，打开属性窗门，设置他们的大小一致，分别将backcolor设置成蓝色、紫色、黄色、绿色然后将4个标签拖到指定的位置，如下

2、图:&FormlcdS221.在窗体中加入一个时钟控件，调整其enabled为true,interval值为1.（要使标签移动的速度快且自然，不会一跳一跳的，所以interval设置为最小1）（名称）TimerlEnabledTrueIndexInterval1Left840TagTop480双击时钟控件打开代码窗口，输入以下代码:DimaAsIntegerPrivateSubForm_Load0a=10EndSubPrivateSubTimerl一Timer0I£a=10ThenLabell.Top=Labell.Top+3

3、0Label2.Top=Label2.Top-30Label3.Top=Label3.Top-30Label4.Top=Label4.Top+30I£Labell.Top>3840Thena=-10ElseLabell.Top=Labell.Top-30Label2.Top=Label2.Top+30Label3.Top=Label3.Top+30Label4.Top=Label4.Top-30I£Labell.Top<=0Thena=10EndIfEndSub这些代码的作用就是使labell,2,3,4在窗体上下移动。一开始

4、定义一个数值类型的a,使其值为10，则下面if语么」执行ifa=10then后面的，执行到a=_10就开始执行else的语句，执行完else语句后，a又变成10,则又返冋执行前面的语句，如此，就可以实现标签在窗体上下移动。1.在窗体中加入两个标签，label5,6,在屌性窗口将其caption改为“快乐”“学习”，将标签的backcolor改为灰色，字体为黑体48号，forecolor为&H00FF8080&，&H00C0C000&O并将其autosize改为true。置于窗体中间。2.再加入一个时钟控件，用来控制标签进行有规

5、律的词组变化。将吋钟控件的属性设置如下（因为要使其变化慢一些，所以interval取1000）:按字母序I按分类序I（名称）Timer2EnabledTrueIndexInterval「1000LeftJ1440TagJTop360双击打幵代码窗口，在timer2那里输入以下代码:PrivateSubTimer2JTimer0IfLabelS.Caption=“快乐"ThenLabelS.Caption="学Label6.Caption=良乐〃LabelB.ForeColor=^JfCOCOOOLabels.ForeColor

6、=^JtFF8080ElseIfLabelS.Caption=罗习“ThenLabelS.Caption=“■民东“Label6.Caption=“学Label6.ForeColor=^JtFF8080Labels.ForeColor=^JfCOCOOOEndIfEndIfEndSub代码的作用是实现两个标签在快乐，学习中不断变换。并且字体的颜色也不断变换。1.将所有标签排版好并运行调试排版如下：7.输出工程并保存工程四、测试数据及运行结果QFormliL^l®.A.I五、实验总结、经验分享一开始，我写的程序是使标签1，4移到

7、最底的时候，它的top回到0,又从顶移到底，标签2,3移到最顶时，它的top回到最底，乂从底移到顶，和应的代码如下：PrivateSubTimer3—Timer0Labell.Top=Labell.Top+30Label2.Top=Label2.Top-30Label3.Top=Label3.Top-30Label4.Top=Label4.Top+30IfLabel2.Top=-3360ThenLabel2.Top=7200Label3.Top=7200Labell.Top=-3360Label4.Top=-3360EndIf

8、EndSub-3360为标签去到最顶时其top的值，7200为标签去到最底是top的值。如此就使标签有规律的移动，如工程2.但是这不是我想要做的结果，我想做的是使标签碰到窗体的边后就返回。于是我想了很多种方法都不行，木来想让其中一个到达top为0的时候所有都转向，因为我的标签