Question

vb image控件问题 调试错误 急求

Private Sub Command1_Click()Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static i, x, y As Integer
Image1(i).Visible = True x = Image1(i).Left + 200 * Rnd y = Image1(i).Top - 100 * Rnd i = (i + 1) Mod 2 Image1(i).Move x, y Image1(i).Visible = False





Answer 1

Static i, x, y As Integer
相当于
Static i
Static x
Static y As Integer
也就是说
Static i As Variant
Static x As Variant
Static y As Integer
因此i和x并不是你预期的Integer型，而是Variant型，而Variant型变量在未赋值时的值是Empty不是0，这样就会提示类型不匹配了。
应该改为
Static i As Integer, x As Integer, y As Integer

追问

这样改了 还是一样的错误提示

追答

这么说的话问题就清楚了，你这个Image1并不是控件数组！你在属性窗口把Image1的Index属性设为0，另一个Image控件也改名为Image1，Index属性设为1

Answer 2

测试不会出错。

请检查一下你的Image1控件组是否有0的下标。

追问

所谓的0的下标是指哪里？

追答

就是Image1的Index属性。