Question

在VB中用时钟控件编写一个走马灯的程序

也就是timer

Answer 1

3个控件 一个PICTUREBOX 一个TIMER 一个PictureClip（部件自己添加microsoft pictureclip control 6.0）
自己定义好PictureClip的“行”，“列”的值 三行六列 18张小图
Dim a As Integer '在模块说明中定义a变量
Private Sub Form_Load()
'指定picture1的图形为PictureClip控件中的第二个图形区域
picture1.picture=PictureClip1.GraphicCell(1)
'定义变量a的初始值和定时控件的时间间隔属性
a=1
Timer1.Interval=100
End Sub

Private Sub Timer1_Timer()
'每发生一次Timer事件时改变变量a的值
a=a＋1:If a=18 Then a=0
'利用变量值的改变给picture1控件指定不同的图形
picture1.picture=PictureClip1.GraphicCell(a)
End Sub

Answer 2

定义变量a的初始值和定时控件的时间间隔属性
a=1
Timer1.Interval=100
End Sub

Answer 3

建一个Label1,Timer1,不用做别的设置。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
Label1.AutoSize = True
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Label1.Left = IIf(Label1.Left > Width, -Label1.Width, Label1.Left + 10)
End Sub

Answer 4

给你这个简单思路,自己改进下效果.
一个label控件和一个timer控件.
Public i As Integer
Private Sub Timer1_Timer()
If i >= Me.Width Then
i = 0
End If
i = i + 1000
label1.left = i
End Sub