Question

vb,一个image控件组,如何用时间控件设置循环单击这个控件组

我的image控件组代码如下：
Private Sub Image2_Click(Index As Integer)
Select Case Index
Case 0
Image1.Picture = Image2(0).Picture
Case 1
Image1.Picture = Image2(1).Picture
Case 2
Image1.Picture = Image2(2).Picture
Case 3
Image1.Picture = Image2(3).Picture
Case 4
Image1.Picture = Image2(4).Picture
Case 5
Image1.Picture = Image2(5).Picture
End Select
end sub

Private Sub Timer1_Timer()
Dim i
For i = 0 To 5
　 Image2_Click (i)
Next i
End Sub　　结果不是一个一个显示，而是只显示第一个和第五个。

为什么没有成功呢？

Answer 1

Dim i As Integer
Private Sub Form_Load()
    With Timer1
        .Interval = 1 * 1000
        .Enabled = True
    End With
End Sub

Private Sub Image1_Click(Index As Integer)
    MsgBox "The Image Clicked:" & Index
End Sub

Private Sub Timer1_Timer()
    If i >= 32675 Then i = 0
    i = i + 1
    Image1_Click (i Mod Image1.Count)
End Sub

追问

我的image控件组代码如下：
Private Sub Image2_Click(Index As Integer)
Select Case Index
Case 0
.....
Case 1
...
Case 2
...
End Select
end sub

追答

那你改成相应的不就行了？

追问

Private Sub Timer1_Timer()
　　　　Dim i
　　　　For i = 0 To 5
　 　　　 Image2_Click (i)
　　　　Next i
　　　End Sub　　
　　结果不是一个一个显示，而是显示第一个跳到第五个。

追答

我原程序设置的是每秒一次，每个依次轮流

Answer 2

Dim i As Integer
Private Sub Form_Load()
i = 0
End Sub

Private Sub Image1_Click(Index As Integer)
MsgBox i
End Sub

Private Sub Timer1_Timer()
Call Image1_Click(i)
i = i + 1
If i \ Image1.Count = 1 Then i = 0
End Sub

 楼主什么意思，没看懂

追问

Private Sub Timer1_Timer()
Dim i
For i = 0 To 5
　 Image2_Click (i)
Next i
End Sub　　结果不是一个一个显示，而是显示第一个跳到第五个。

追答

楼主这样写是错误的，你这个i是局部变量，相当于每循环一次点五个，你硬要这样写，那就这样吧

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
Dim i
For i = 0 To 5
　 Image2_Click (i)
sleep(1000) ‘不加这个点的太快了，计算机反应不过来
Next i
End Sub　　

追问

像我这样的，如何正确写出代码？

追答

不是给你了吗？
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
Dim i
For i = 0 To 5
　 Image2_Click (i)
sleep(1000) ‘不加这个点的太快了，计算机反应不过来
Next i
End Sub　　

追问

想要每秒换一次的那种效果。还请多多关照。

追答

哦，我知道了，加一个timer,间隔设为1000

Dim i As Integer
Private Sub Image2_Click(Index As Integer)
  Image1.Picture = Image2(INDEX).Picture
End Select
end  sub
Private Sub Form_Load()
i = 0
End Sub
Private Sub Timer1_Timer()
Call Image1_Click(i)
i = i + 1
If i >Image2.Count-1 Then i = 0
End Sub