有问题请教一下! - VB6论坛

sundaypjj

等　级：新手上路
帖　子：2
专家分：0
注　册：2004-10-14

楼主

问题点数：0 回复次数：2

有问题请教一下!

实验7：

内容与步骤

1. 使用时间控件来实现一个简单的动画

(1) 创建窗体

窗体Form1由三个标签、四个时间控件（timtime和timsmile、timmove、timflase）和三个图像框(imgsmile)组成

（2）设置窗体控件，在窗体上创建各控件如，下图所示

图像框imgsile

时间控件用于每秒显示系统时间，timsmile用于不同图片的定时显示，timmove用于使“你好！欢迎你使用00系统”文字从左到右水平移动，timflase使“早上好！”文字以不同的颜色显示。按钮cmdclose 用于关闭窗口；用三个图像框imgsile组成控件数组分别用于显示不同的笑脸图象。

创建控件数组有如下的方法：

1. 首先创建一个图片框控件imgsile，然后通过复制该imgsile控件并将其粘贴到窗体上。即可！

（3）设置控件属性如下图所示：

对象	控件的名称（name属性）	属性名	属性值
form	Form1	caption	笑脸动画
image	imgsmile	Index Stretch visible	0、1、2、3 true false
Label	Label1 Label2 Label3 Label4	Caption Caption Caption Caption	早上好现在时间是：空你好！欢迎你使用00系统
Timer	Timtime Timsmile Timmov timflase	Interval Interval Interval Interval	1000 500 1000 1000

（4）请根据要求编写代码，

这个label4标签从左到右移动的代码如何写啊?还有那个显示三张图片的代码!请各个位大哥指导指导一下!

搜索更多相关主题的帖子: 标签　动画　

2004-11-04 16:19

sundaypjj

等　级：新手上路
帖　子：2
专家分：0
注　册：2004-10-14

第 3 楼

得分:0

小弟我就是不知道如何写代码!劳烦大哥你知道一下啦!其实我已经完成了一部分!就乘图片显示那里没有完成而已!我写的代码是!

Private Sub Command1_Click() End End Sub

Private Sub timflase_Timer() Label1.ForeColor = QBColor(Rnd * 20) End Sub

Private Sub Timmov_Timer() Dim i As Integer For i = Form1.ScaleWidth - Label4.Width To Form1.ScaleWidth Label4.Left = Label4.Left + 1 If Label4.Left = Form1.ScaleWidth Then Label4.Left = 0 End If Next i End Sub

Private Sub Timtime_Timer() Label3.Caption = Now End Sub

2004-11-04 18:00