1.我想问timer dim index as integer声明写在哪里?
回答:这个时间控件不用声明的,新建好控件后-双击控件就可写代码。
2.timer控件的index怎么使用?
回答:一般情况下,如果你用不到时间控件组的话“timer控件的index属性”可以不用管它。
副加:timer控件的index属性意义:index 本是索引的意思,比如用根绳子牵引着做某件事情,章节的进行任务。
'添加一个Image控件 并将其做成控件数组(下标分别为:0 1 2) 一个Timer控件 设置Interval=100 示例代码如下:
Private Sub Form_Load()
For i = 1 To 2
Image1(i).Left = Image1(0).Left
Image1(i).Top = Image1(0).Top
Next i
End Sub
Private Sub Timer1_Timer()
Static Index As Integer
Image1(Index).ZOrder 0
Index = Index + 1
If Index > 2 Then Index = 0
End Sub
timer dim index as integer
Private Sub Timer1_Timer()
Set Form1.Picture = Image1(index).Picture
index = index + 1
If index > 3 Then index = 0
End Sub
接楼上,在Form1中添加一个按钮和7个Timer(不要嫌多,这样作出来效果极佳!)