不知错在哪里呀在线等呀

[dong12]

Private Sub Timer1_Timer()
Dim im(4) As Image
Dim i As Integer
请问各位高手我下面的代码错在哪里呀，为何走到If im(i).Visible = True Then 就出现错误呀
Dim k As Integer
For i = 0 To 3

If im(i).Visible = True Then
im((i + 1) Mod 4).Visible = True
For k = 0 To 2

im((i + k + 2) Mod 4).Visible = False
Exit For
Next
End If

Next
End Sub

[一叫美女都抢着答应]

是不是你的im(i)没有正确引用对象

[rainstormmaster]

Dim im(4) As Image后

还要用代码在窗体上添加控件

[dong12]

楼上的各位能不能具体一点呀，错在哪里呀，怎样改正呀，急呀
Private Sub Timer1_Timer()
Dim im(4) As Image
Dim i As Integer
Dim k As Integer
For i = 0 To 3

If im(i).Visible = True Then
im((i + 1) Mod 4).Visible = True
For k = 0 To 2

im((i + k + 2) Mod 4).Visible = False
Exit For
Next
End If

Next
End Sub
请问各位高手我下面的代码错在哪里呀，为何走到If im(i).Visible = True Then 就出现错误呀

[cryptonym]

Dim im(4) As Image
你的这个对象数组里面没有创建对象。所以你取他的属性的时候会出错。

[airon2002]

Dim im(4) As Image

im(4) 不是控件!!!!!!

[vbanddelphi]

你的im时代表一个image控件吗？如果是的话，有没有设置成是控件数组（index属性啊），没有的话会出错，如果是没有在窗体上放置控件，那么你上面的代码还没有生成控件肯定会出错了（不知道有没有错呢）

[dong12]

怎样创建对象呀，我在窗体上已经放上四个IMAGE控件了呀，还用创建吗，如果创建对象，我怎样做呀

[cryptonym]

Private Sub Command1_Click()

Dim im(4) As Image
Dim i As Integer
'请问各位高手我下面的代码错在哪里呀，为何走到If im(i).Visible = True Then 就出现错误呀
Dim k As Integer
For i = 0 To 3

Set im(i) = Me.Controls.Add("VB.Image", "inamge1" & i) '加上这句话就可以了

If im(i).Visible = True Then
im((i + 1) Mod 4).Visible = True
For k = 0 To 2

im((i + k + 2) Mod 4).Visible = False
Exit For
Next
End If

Next
End Sub

[chtlover]

up

[dong12]

to vbanddelphi(一枝梨花我在窗上放四个 IMAGE控件呀，INDEX 分别设为0，1，2，3，
to cryptonym(渔小鱼)Set im(i) = Me.Controls.Add("VB.Image", "inamge1" & i)此句话在VB不好用呀ADD没有这个属性呀