Question

VB问题怎么用Timer控制3个Image

vb中怎么用Timer控制3个Image连续依次出现 一直循环 要代码谢谢

Answer 1

不用那么麻烦的。直接用几个If判断语句就可以实现。
Private Sub Timer1_Timer()
If Image1.Visible = True Then
Image1.Visible = False
Image2.Visible = True
Else
If Image2.Visible = True Then
Image2.Visible = False
Image3.Visible = True
Else
If Image3.Visible = True Then
Image3.Visible = False
Image1.Visible = True
End If
End If
End If
End Sub
可以先把image2和image3的visible属性设为false
就会一次出现image1、image2、image3
分分给我。。（我的方法可最简单哈~不想他们说的新手看不懂代码~）

Answer 2

把它们命名为imgGif
并依次设置属性Index 为 0 1 2
Private sub timer1_timer()
static n as integer
dim i as long
for i= imgGif.lbound to imgGif.Ubound
if i = n then
imgGfi(i).Visible=true
else
imgGif(i).Visible=false
end if
n = n +1
if n=3 then n= 0
next
end sub

不 要忘记设置timer1.interval 属性,一般为1000(毫秒,即1秒)

Answer 3

把3个Image控件做成控件数组，可以先在窗体上添加1个Image控件，选中它按右键复制，再按右键粘贴就可以创建控件数组了。或者先添加3个Image控件，再把它们的名称改成一样也可以。然后把Index属性为0的控件的Visible属性设为True，其它的都设为False，这一步也可以在窗体的Load事件里进行设置。Timer控件的代码就很简单了。

Private Sub Timer1_Timer()
Static i As Integer

Image1(i).Visible = False
i = (i + 1) Mod Image1.Count
Image1(i).Visible = True
End Sub

如果不在设计窗体时对Image控件和Timer控件的属性进行设置，就需要在窗体的Load事件里设置。

Private Sub Form_Load()
Dim i As Integer

Image1(0).Visible = True
'这里本来不用循环的，这样做可以用于不止3个控件的情况
For i = 1 To Image1.UBound
Image1(i).Visible = False
Next
Timer1.Interval = 1000 '设置时间间隔为1秒
Timer1.Enabled = True
End Sub

Answer 4

就做下程序