如何逐个清除我已经画好了的16个image控件？，使用控件数组总是无法成功

Dim A As Long

Private Sub Command1_Click()
A = 1
Image(A).Picture = LoadPicture()

End Sub

方法1：Set Image1.Picture = Nothing
方法2：Image1.Picture = LoadPicture("")

收到的鲜花

• 高三党 于 2014-06-16 07:03 送鲜花  3朵   附言：我很赞同

现在有一个command1按钮和image控件数组：image（0）到image（15），我想按一次键就清除一个图标，

Dim a As Integer
a = 0


Private Sub Command1_Click()
a = a + 1



 Image(a).Picture = LoadPicture("")

End Sub

但是无法成功

a= 0.............那行代码是放在Private Sub Form_Load()
事件中的，打错了，。。。
现在还是不行，它提示“编译错误：无效限定符”并且自动将“Image（a）”用蓝底框起来，“Private Sub Command1_Click()”这行用黄底框了起来，
不能理由是什么？

我知道答案了，用image.item()可实现，谢谢；了

控件数组应该直接“控件名（索引号）”就可以访问的。你在3楼的错误是使用了关键字做控件名（image是vb默认的一个类关键字，如果将控件数组名改为image1就可以了）。
我非常怀疑你用image.item(a)的方法获得成功，反正我没成功，错误提示为类不支持该方法。

[ 本帖最后由 xzlxzlxzl 于 2014-6-16 08:22 编辑 ]

真的成功了，我的是vb6.0